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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
object FormMain: TFormMain
Left = 401
Height = 337
Top = 207
Width = 478
BorderStyle = bsDialog
Caption = 'Test for mouse buttons and wheel'
ClientHeight = 337
ClientWidth = 478
OnCreate = FormCreate
OnMouseDown = FormMouseDown
OnMouseUp = FormMouseUp
OnMouseWheelDown = FormMouseWheelDown
OnMouseWheelUp = FormMouseWheelUp
OnMouseWheelLeft = FormMouseWheelLeft
OnMouseWheelRight = FormMouseWheelRight
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object ShapeWheel: TShape
Left = 176
Height = 254
Top = 24
Width = 104
end
object ShapeWheelUp: TShape
Left = 184
Height = 56
Top = 32
Width = 88
end
object Label1: TLabel
AnchorSideLeft.Control = ShapeWheel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeWheel
AnchorSideTop.Side = asrBottom
Left = 186
Height = 19
Top = 284
Width = 85
BorderSpacing.Top = 6
Caption = 'mouse wheel'
ParentColor = False
end
object ShapeWheelDown: TShape
Left = 184
Height = 56
Top = 216
Width = 88
end
object Label2: TLabel
AnchorSideLeft.Control = ShapeWheelUp
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeWheelUp
AnchorSideTop.Side = asrCenter
Left = 199
Height = 19
Top = 51
Width = 59
Caption = 'wheel up'
ParentColor = False
end
object Label3: TLabel
AnchorSideLeft.Control = ShapeWheelDown
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeWheelDown
AnchorSideTop.Side = asrCenter
Left = 190
Height = 19
Top = 235
Width = 77
Caption = 'wheel down'
ParentColor = False
end
object ShapeWheelRight: TShape
Left = 248
Height = 113
Top = 95
Width = 26
end
object ShapeWheelLeft: TShape
Left = 184
Height = 113
Top = 95
Width = 26
end
object Label4: TLabel
AnchorSideLeft.Control = ShapeWheelLeft
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeWheelLeft
AnchorSideTop.Side = asrCenter
Left = 186
Height = 19
Top = 142
Width = 22
Caption = 'left'
ParentColor = False
end
object Label5: TLabel
AnchorSideLeft.Control = ShapeWheelRight
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeWheelRight
AnchorSideTop.Side = asrCenter
Left = 245
Height = 19
Top = 142
Width = 32
Caption = 'right'
ParentColor = False
end
object ShapeButtonLeft: TShape
Left = 24
Height = 113
Top = 95
Width = 119
end
object ShapeButtonRight: TShape
Left = 312
Height = 113
Top = 95
Width = 119
end
object Label6: TLabel
AnchorSideLeft.Control = ShapeButtonLeft
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeButtonLeft
AnchorSideTop.Side = asrCenter
Left = 49
Height = 19
Top = 142
Width = 68
Caption = 'button left'
ParentColor = False
end
object Label7: TLabel
AnchorSideLeft.Control = ShapeButtonRight
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeButtonRight
AnchorSideTop.Side = asrCenter
Left = 332
Height = 19
Top = 142
Width = 78
Caption = 'button right'
ParentColor = False
end
object ShapeButtonExtra1: TShape
Left = 24
Height = 53
Top = 225
Width = 119
end
object Label8: TLabel
AnchorSideLeft.Control = ShapeButtonExtra1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeButtonExtra1
AnchorSideTop.Side = asrCenter
Left = 37
Height = 19
Top = 242
Width = 92
Caption = 'button extra 1'
ParentColor = False
end
object ShapeButtonExtra2: TShape
Left = 312
Height = 53
Top = 225
Width = 119
end
object Label9: TLabel
AnchorSideLeft.Control = ShapeButtonExtra2
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = ShapeButtonExtra2
AnchorSideTop.Side = asrCenter
Left = 325
Height = 19
Top = 242
Width = 92
Caption = 'button extra 2'
ParentColor = False
end
end
|
