mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-08 07:46:03 +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}
|
\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
|
||||||
|
@ -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,4 +1,4 @@
|
|||||||
Uses Mouse, Crt;
|
Uses MsMouse, Crt;
|
||||||
|
|
||||||
Var hor, vert: Longint;
|
Var hor, vert: Longint;
|
||||||
x, y: Longint;
|
x, y: Longint;
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
{example for ShowMouse and HideMouse}
|
{example for ShowMouse and HideMouse}
|
||||||
|
|
||||||
Uses Mouse;
|
Uses MsMouse;
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
ClrScr;
|
ClrScr;
|
||||||
|
@ -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,6 +1,6 @@
|
|||||||
{example for SetMousePos}
|
{example for SetMousePos}
|
||||||
|
|
||||||
Uses Mouse, Crt;
|
Uses MsMouse, Crt;
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
If MouseFound Then
|
If MouseFound Then
|
||||||
|
@ -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,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
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user