paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* in the go32v2 video unit, do not check MouseIsVisible, but instead call

Browse Source 
directly HideMouse/ShowMouse. It's safe to always call them, because the
  int 33h mouse driver maintains a hide counter, so it will keep the cursor
  hidden if it was already hidden. Additionally, when the cursor is drawn by
  the int 33h mouse driver, the value in the MouseIsVisible variable is
  actually wrong, because it doesn't take into account the hide counter
  maintained by the mouse driver.

git-svn-id: trunk@28980 -
This commit is contained in:
nickysn 2014-11-03 22:47:17 +00:00
parent 9419073608
commit dd285d7a16
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl-console/src/go32v2/video.pp
View File

@ -194,12 +194,8 @@ 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;
HideMouse;
if not force then
begin
asm
@ -221,8 +217,7 @@ begin
dosmemput(videoseg,0,videobuf^,VideoBufSize);
move(videobuf^,oldvideobuf^,VideoBufSize);
end;
if Is_Mouse_Vis then
ShowMouse;
ShowMouse;
end;
Procedure DoSetVideoMode(Params: Longint);