Browse Source

* the MouseIsVisible global variable from the go32v2 mouse unit moved to the
implementation part. Reasons for making it private:
1) its value is inaccurate when the mouse cursor is drawn by the int 33h mouse
driver (which is the case e.g. in the standard 80x25 and 80x50 vga text
modes, so quite a common case) and there's no way to make it accurate
(there's no function to read the mouse driver's internal 'hide counter')
2) code using this variable to hide the cursor temporarily before updating the
screen directly should instead always call HideMouse before updating and
ShowMouse after updating, thus relying on the mouse driver's hide count to
restore the mouse cursor to its original state
3) this variable is go32v2 specific and looks like it was meant only for
internal use anyway. It was only used by the go32v2 video unit when
updating the screen, but that was changed due to 2)

git-svn-id: trunk@29066 -

nickysn 10 years ago
parent
commit
c97d8079e7
1 changed files with 1 additions and 4 deletions
  1. 1 4
      packages/rtl-console/src/go32v2/mouse.pp

+ 1 - 4
packages/rtl-console/src/go32v2/mouse.pp

@@ -21,10 +21,6 @@ interface
 { tells the mouse unit to draw the mouse cursor itself }
 procedure DoCustomMouse(b : boolean);
 
-const
-  MouseIsVisible: boolean = false;
-
-
 implementation
 
 uses
@@ -51,6 +47,7 @@ var
   ActionRegs    : TRealRegs;external name '___v2prt0_rmcb_regs';
   v2prt0_ds_alias : word;external name '___v2prt0_ds_alias';
 const
+  MouseIsVisible: boolean = false;
   MousePresent : boolean = false;
   First_try    : boolean = true;
 {$ifdef DEBUG}