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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
{
Mouse example for the PTCPas library
This source code is in the public domain
}
program MouseExample;
{$MODE objfpc}
uses
ptc, SysUtils;
var
console: IPTCConsole;
surface: IPTCSurface;
format: IPTCFormat;
event: IPTCEvent;
pixels: PUint32;
color: Uint32;
width, height: Integer;
I: Integer;
X, Y: Integer;
button: Boolean;
Done: Boolean = False;
begin
try
try
{ create console }
console := TPTCConsoleFactory.CreateNew;
{ create format }
format := TPTCFormatFactory.CreateNew(32, $FF0000, $FF00, $FF);
{ open the console }
console.open('Mouse example', format);
{ we're going to draw our own cursor, so disable the default cursor }
console.option('hide cursor');
{ create surface matching console dimensions }
surface := TPTCSurfaceFactory.CreateNew(console.width, console.height, format);
{ initialization }
X := 0;
Y := 0;
repeat
{ wait for events }
console.NextEvent(event, True, PTCAnyEvent);
{ handle mouse events }
if Supports(event, IPTCMouseEvent) then
begin
{ if there's more than one mouse event, process them all... }
repeat
X := (event as IPTCMouseEvent).X;
Y := (event as IPTCMouseEvent).Y;
button := PTCMouseButton1 in (event as IPTCMouseEvent).ButtonState;
until not console.NextEvent(event, False, [PTCMouseEvent]);
end;
{ handle keyboard events }
if Supports(event, IPTCKeyEvent) and (event as IPTCKeyEvent).Press then
begin
case (event as IPTCKeyEvent).Code of
PTCKEY_G: console.Option('grab mouse');
PTCKEY_U: console.Option('ungrab mouse');
PTCKEY_ESCAPE: Done := True;
end;
end;
{ clear surface }
surface.clear;
{ lock surface }
pixels := surface.lock;
try
{ get surface dimensions }
width := surface.width;
height := surface.height;
if button then
color := $00FF00 { green cursor, if button 1 is pressed }
else
color := $FFFFFF; { white cursor if button 1 is not pressed }
{ draw a small cross for a cursor }
for I := 2 to 10 do
begin
if (X - I) >= 0 then
pixels[X - I + Y * width] := color;
if (X + I) < width then
pixels[X + I + Y * width] := color;
if (Y - I) >= 0 then
pixels[X + (Y - I) * width] := color;
if (Y + I) < height then
pixels[X + (Y + I) * width] := color;
end;
finally
{ unlock surface }
surface.unlock;
end;
{ copy to console }
surface.copy(console);
{ update console }
console.update;
until Done;
finally
if Assigned(console) then
console.close;
end;
except
on error: TPTCError do
{ report error }
error.report;
end;
end.
|
