paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* (slightly modified) patch by Laaca - avoid disappearing mouse cursor

Browse Source 
git-svn-id: trunk@10590 -
This commit is contained in:
Tomas Hajny 2008-03-30 19:31:48 +00:00
parent b2253c0bd9
commit a71092edb0
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/go32v2/mouse.pp
View File

@ -21,6 +21,9 @@ interface
{ tells the mouse unit to draw the mouse cursor itself }
procedure DoCustomMouse(b : boolean);
const
MouseIsVisible: boolean = false;
implementation
@ -55,7 +58,6 @@ const
CallCounter : longint = 0;
{$endif DEBUG}
drawmousecursor : boolean = false;
mouseisvisible : boolean = false;
{ position where the mouse was drawn the last time }
oldmousex : longint = -1;
oldmousey : longint = -1;
@ -586,6 +588,7 @@ begin
popl %ebp
.LShowMouseExit:
end;
MouseIsVisible := true;
end;
@ -615,6 +618,7 @@ begin
popl %ebp
.LHideMouseExit:
end;
MouseIsVisible := false;
end;

7
rtl/go32v2/video.pp
View File

@ -194,7 +194,12 @@ begin
end;
procedure SysUpdateScreen(Force: Boolean);
var
Is_Mouse_Vis: boolean;
begin
Is_Mouse_Vis := MouseIsVisible; {MouseIsVisible is from Mouse unit}
if Is_Mouse_Vis then
HideMouse;
if not force then
begin
asm
@ -216,6 +221,8 @@ begin
dosmemput(videoseg,0,videobuf^,VideoBufSize);
move(videobuf^,oldvideobuf^,VideoBufSize);
end;
if Is_Mouse_Vis then
ShowMouse;
end;
Procedure DoSetVideoMode(Params: Longint);