Browse Source

* changed name of mouse unit to msmouse
* added warning that MouseHideWindow isn't (properly) supported under
Win98

Jonas Maebe 25 years ago
parent
commit
f9f214c14f

+ 7 - 4
docs/mouse.tex

@@ -1,6 +1,6 @@
-\chapter{The Mouse unit}
-The mouse unit provides basic Mouse handling under Dos (Go32v1 and Go32v2)
-Some general remarks about the mouse unit:
+\chapter{The MsMouse unit}
+The msmouse unit provides basic mouse handling under Dos (Go32v1 and Go32v2)
+Some general remarks about the msmouse unit:
 \begin{itemize}
 \begin{itemize}
 \item The mouse driver does not know when the text screen scrolls. This results
 \item The mouse driver does not know when the text screen scrolls. This results
 in unerased mouse cursors on the screen when the screen scrolls while the
 in unerased mouse cursors on the screen when the screen scrolls while the
@@ -15,7 +15,7 @@ both x and y by 8 (and add 1 if you want to have it 1 based).
 differ. For example, mode 13h (320*200 pixels) is handled by the mouse driver
 differ. For example, mode 13h (320*200 pixels) is handled by the mouse driver
 as 640*200, so you will have to multiply the X coordinates you give to the
 as 640*200, so you will have to multiply the X coordinates you give to the
 driver and divide the ones you get from it by 2 in that mode.
 driver and divide the ones you get from it by 2 in that mode.
-\item By default the mouse unit is compiled with the conditional define
+\item By default the msmouse unit is compiled with the conditional define
 MouseCheck. This causes every procedure/function of the unit to check the
 MouseCheck. This causes every procedure/function of the unit to check the
 MouseFound variable prior to doing anything. Of course this is not necessary,
 MouseFound variable prior to doing anything. Of course this is not necessary,
 so if you are sure you are not calling any mouse unit procedures when no
 so if you are sure you are not calling any mouse unit procedures when no
@@ -223,6 +223,9 @@ This may be annoying, but it's the way it's implemented in the mouse driver.
 While \var{xmin, ymin, xmax} and \var{ymax} are Longint parameters, 
 While \var{xmin, ymin, xmax} and \var{ymax} are Longint parameters, 
 only the lower 16 bits are used.
 only the lower 16 bits are used.
 
 
+Warning: it seems Win98 SE doesn't (properly) support this function,
+maybe this already the case with earlier versions too!
+
 \Errors
 \Errors
 None.
 None.
 \SeeAlso
 \SeeAlso

+ 1 - 1
docs/mouseex/mouse1.pp

@@ -2,7 +2,7 @@ Program Mouse1;
 
 
 {example for InitMouse and MouseFound}
 {example for InitMouse and MouseFound}
 
 
-Uses Mouse;
+Uses MsMouse;
 
 
 Begin
 Begin
   If MouseFound Then
   If MouseFound Then

+ 1 - 1
docs/mouseex/mouse10.pp

@@ -1,4 +1,4 @@
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var hor, vert: Longint;
 Var hor, vert: Longint;
     x, y: Longint;
     x, y: Longint;

+ 1 - 1
docs/mouseex/mouse2.pp

@@ -1,6 +1,6 @@
 {example for ShowMouse and HideMouse}
 {example for ShowMouse and HideMouse}
 
 
-Uses Mouse;
+Uses MsMouse;
 
 
 Begin
 Begin
   ClrScr;
   ClrScr;

+ 1 - 1
docs/mouseex/mouse3.pp

@@ -1,6 +1,6 @@
 {example for GetMouseState, IsLPressed, IsRPressed and IsMPressed}
 {example for GetMouseState, IsLPressed, IsRPressed and IsMPressed}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var X, Y, State: Longint;
 Var X, Y, State: Longint;
 
 

+ 1 - 1
docs/mouseex/mouse4.pp

@@ -1,6 +1,6 @@
 {example for SetMousePos}
 {example for SetMousePos}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Begin
 Begin
   If MouseFound Then
   If MouseFound Then

+ 1 - 1
docs/mouseex/mouse5.pp

@@ -1,6 +1,6 @@
 {example for GetLastButtonPress and GetLastButtonRelease}
 {example for GetLastButtonPress and GetLastButtonRelease}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var x, y, times: Longint;
 Var x, y, times: Longint;
     c: Char;
     c: Char;

+ 1 - 1
docs/mouseex/mouse6.pp

@@ -1,6 +1,6 @@
 {example for SetMouseXRange, SetMouseYRange and SetMouseWindow}
 {example for SetMouseXRange, SetMouseYRange and SetMouseWindow}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Begin
 Begin
   If MouseFound Then
   If MouseFound Then

+ 1 - 1
docs/mouseex/mouse7.pp

@@ -6,7 +6,7 @@
  on the screen over which you move the cursor. To get a "transparent" cursor,
  on the screen over which you move the cursor. To get a "transparent" cursor,
  use the Ascii value 0}
  use the Ascii value 0}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var ascii, fc, bc: Byte;
 Var ascii, fc, bc: Byte;
     x,y: Longint;
     x,y: Longint;

+ 1 - 1
docs/mouseex/mouse8.pp

@@ -2,7 +2,7 @@
 
 
 {warning: no error checking is performed on the input}
 {warning: no error checking is performed on the input}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var ascii: Byte;
 Var ascii: Byte;
     x,y: Longint;
     x,y: Longint;

+ 1 - 1
docs/mouseex/mouse9.pp

@@ -10,7 +10,7 @@
 
 
  Note: the mouse functions are zero-based, GotoXY is 1-based}
  Note: the mouse functions are zero-based, GotoXY is 1-based}
 
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 
 Var x, y, buttons: Longint;
 Var x, y, buttons: Longint;
     MouseOn: Boolean;
     MouseOn: Boolean;