Explorar o código

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

Jonas Maebe %!s(int64=25) %!d(string=hai) anos
pai
achega
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}
 \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
@@ -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
 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.
-\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
 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
@@ -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, 
 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
 None.
 \SeeAlso

+ 1 - 1
docs/mouseex/mouse1.pp

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

+ 1 - 1
docs/mouseex/mouse10.pp

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

+ 1 - 1
docs/mouseex/mouse2.pp

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

+ 1 - 1
docs/mouseex/mouse3.pp

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

+ 1 - 1
docs/mouseex/mouse4.pp

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

+ 1 - 1
docs/mouseex/mouse5.pp

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

+ 1 - 1
docs/mouseex/mouse6.pp

@@ -1,6 +1,6 @@
 {example for SetMouseXRange, SetMouseYRange and SetMouseWindow}
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 Begin
   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,
  use the Ascii value 0}
 
-Uses Mouse, Crt;
+Uses MsMouse, Crt;
 
 Var ascii, fc, bc: Byte;
     x,y: Longint;

+ 1 - 1
docs/mouseex/mouse8.pp

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

+ 1 - 1
docs/mouseex/mouse9.pp

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