* changed name of mouse unit to msmouse

* added warning that MouseHideWindow isn't (properly) supported under
    Win98
This commit is contained in:
Jonas Maebe 2000-04-14 08:11:21 +00:00
parent 8a7326f5a3
commit f9f214c14f
11 changed files with 17 additions and 14 deletions

View File

@ -1,6 +1,6 @@
\chapter{The Mouse unit} \chapter{The MsMouse unit}
The mouse unit provides basic Mouse handling under Dos (Go32v1 and Go32v2) The msmouse unit provides basic mouse handling under Dos (Go32v1 and Go32v2)
Some general remarks about the mouse unit: 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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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