paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 03:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the MouseIsVisible global variable from the go32v2 mouse unit moved to the

Browse Source 
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 -
This commit is contained in:
nickysn 2014-11-13 00:14:14 +00:00
parent c40960466a
commit c97d8079e7
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl-console/src/go32v2/mouse.pp
View File

@ -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}