blob: 184b4febaedb88965080d89c16091d5f4ba9a312 (
plain)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
program gpmex;
{
Example program to demonstrate the use of the gpm unit.
}
uses gpm;
var
connect : TGPMConnect;
event : tgpmevent;
begin
connect.EventMask:=GPM_MOVE or GPM_DRAG or GPM_DOWN or GPM_UP;
connect.DefaultMask:=0;
connect.MinMod:=0;
connect.MaxMod:=0;
if Gpm_Open(connect,0)=-1 then
begin
Writeln('No mouse handler present.');
Halt(1);
end;
Writeln('Click right button to end.');
Repeat
gpm_getevent(Event);
With Event do
begin
Write('Pos = (',X,',',Y,') Buttons : (');
if (buttons and Gpm_b_left)<>0 then
write('left ');
if (buttons and Gpm_b_right)<>0 then
write('right ');
if (buttons and Gpm_b_middle)<>0 then
Write('middle ');
Write(') Event : ');
Case EventType and $F of
GPM_MOVE: write('Move');
GPM_DRAG: write('Drag');
GPM_DOWN: write('Down');
GPM_UP: write('Up');
end;
Writeln;
end;
Until (Event.Buttons and gpm_b_right)<>0;
gpm_close;
end.
|
