mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 20:02:38 +02:00
* changed name of mouse unit to msmouse
* added warning that MouseHideWindow isn't (properly) supported under Win98
This commit is contained in:
parent
8a7326f5a3
commit
f9f214c14f
@ -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
|
||||
|
@ -2,7 +2,7 @@ Program Mouse1;
|
||||
|
||||
{example for InitMouse and MouseFound}
|
||||
|
||||
Uses Mouse;
|
||||
Uses MsMouse;
|
||||
|
||||
Begin
|
||||
If MouseFound Then
|
||||
|
@ -1,4 +1,4 @@
|
||||
Uses Mouse, Crt;
|
||||
Uses MsMouse, Crt;
|
||||
|
||||
Var hor, vert: Longint;
|
||||
x, y: Longint;
|
||||
|
@ -1,6 +1,6 @@
|
||||
{example for ShowMouse and HideMouse}
|
||||
|
||||
Uses Mouse;
|
||||
Uses MsMouse;
|
||||
|
||||
Begin
|
||||
ClrScr;
|
||||
|
@ -1,6 +1,6 @@
|
||||
{example for GetMouseState, IsLPressed, IsRPressed and IsMPressed}
|
||||
|
||||
Uses Mouse, Crt;
|
||||
Uses MsMouse, Crt;
|
||||
|
||||
Var X, Y, State: Longint;
|
||||
|
||||
|
@ -1,6 +1,6 @@
|
||||
{example for SetMousePos}
|
||||
|
||||
Uses Mouse, Crt;
|
||||
Uses MsMouse, Crt;
|
||||
|
||||
Begin
|
||||
If MouseFound Then
|
||||
|
@ -1,6 +1,6 @@
|
||||
{example for GetLastButtonPress and GetLastButtonRelease}
|
||||
|
||||
Uses Mouse, Crt;
|
||||
Uses MsMouse, Crt;
|
||||
|
||||
Var x, y, times: Longint;
|
||||
c: Char;
|
||||
|
@ -1,6 +1,6 @@
|
||||
{example for SetMouseXRange, SetMouseYRange and SetMouseWindow}
|
||||
|
||||
Uses Mouse, Crt;
|
||||
Uses MsMouse, Crt;
|
||||
|
||||
Begin
|
||||
If MouseFound Then
|
||||
|
@ -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;
|
||||
|
@ -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;
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user