1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{example for SetMouseAscii}
{warning: no error checking is performed on the input}
Uses MsMouse, Crt;
Var ascii: Byte;
x,y: Longint;
Begin
If MouseFound Then
Begin
ClrScr;
Writeln('Press any mouse button to quit after you''ve entered an Ascii value.');
Writeln;
Writeln('ASCII value of mouse cursor:');
ShowMouse;
Repeat
GotoXY(30,3);
ClrEol;
Readln(ascii);
SetMouseAscii(ascii)
Until (GetLastButtonPress(LButton,x,y) <> 0) Or
(GetLastButtonPress(RButton,x,y) <> 0) Or
(GetLastButtonPress(MButton,x,y) <> 0);
HideMouse
End;
End.
|
