From c97d8079e7d8062c3dfe815894a4eea871ef052e Mon Sep 17 00:00:00 2001 From: nickysn Date: Thu, 13 Nov 2014 00:14:14 +0000 Subject: [PATCH] * 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 - --- packages/rtl-console/src/go32v2/mouse.pp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/packages/rtl-console/src/go32v2/mouse.pp b/packages/rtl-console/src/go32v2/mouse.pp index 6d4b903ca9..c03a466435 100644 --- a/packages/rtl-console/src/go32v2/mouse.pp +++ b/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}