瀏覽代碼

* in the go32v2 video unit, do not check MouseIsVisible, but instead call
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 -

nickysn 10 年之前
父節點
當前提交
dd285d7a16
共有 1 個文件被更改,包括 2 次插入7 次删除
  1. 2 7
      packages/rtl-console/src/go32v2/video.pp

+ 2 - 7
packages/rtl-console/src/go32v2/video.pp

@@ -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);