-
Notifications
You must be signed in to change notification settings - Fork 2
/
FMXFormAppMain.fmx
362 lines (362 loc) · 9.7 KB
/
FMXFormAppMain.fmx
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
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
object frmPanelAppMain: TfrmPanelAppMain
Left = 0
Top = 0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = Single
Caption = 'Form1'
ClientHeight = 280
ClientWidth = 337
Position = Designed
Visible = True
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop, iPhone, iPad]
DesignerMasterStyle = 0
object tmrClock: TTimer
OnTimer = tmrClockTimer
Left = 144
Top = 136
end
object tmrAutoStart: TTimer
OnTimer = tmrAutoStartTimer
Left = 280
Top = 136
end
object layoutMain: TLayout
Align = Client
Size.Width = 337.000000000000000000
Size.Height = 258.000000000000000000
Size.PlatformDefault = False
object Button1: TButton
Action = actPanelShow
Enabled = True
ImageIndex = -1
Position.X = 232.000000000000000000
Position.Y = 24.000000000000000000
TabOrder = 0
end
object Button11: TButton
Action = actPanelMonoscope
Enabled = True
ImageIndex = -1
Position.X = 24.000000000000000000
Position.Y = 64.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
end
object Button2: TButton
Action = actPanelHide
Enabled = True
ImageIndex = -1
Position.X = 232.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 2
end
object Button3: TButton
Action = actPanelAutoFit
Enabled = True
ImageIndex = -1
Position.X = 128.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 3
end
object Button5: TButton
Action = actFileStart
Enabled = True
ImageIndex = -1
Position.X = 24.000000000000000000
Position.Y = 24.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
end
object Button7: TButton
Action = actFileStop
Enabled = True
ImageIndex = -1
Position.X = 128.000000000000000000
Position.Y = 24.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
end
object Button8: TButton
Enabled = False
StyledSettings = [Family, Style, FontColor]
Position.Y = 85.000000000000000000
Size.Width = 305.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TabOrder = 6
Text = 'Cell finished'
TextSettings.Font.Size = 18.000000000000000000
Visible = False
end
object comboboxPanelTopLeftScreen: TComboBox
Items.Strings = (
'Window')
ItemIndex = 0
Position.X = 24.000000000000000000
Position.Y = 200.000000000000000000
Size.Width = 289.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 7
end
object edtEventCode: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 8
Text = '0123456789AB'
Position.X = 208.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
Visible = False
end
object Label1: TLabel
AutoSize = True
Position.X = 24.000000000000000000
Position.Y = 183.000000000000000000
Size.Width = 39.000000000000000000
Size.Height = 16.000000000000000000
Size.PlatformDefault = False
TextSettings.WordWrap = False
Text = 'Display'
end
object Label3: TLabel
Action = actPanelKeepAspectRatio
Enabled = True
Position.X = 80.000000000000000000
Position.Y = 98.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
end
object Label8: TLabel
Action = actPanelScaling
Enabled = True
Position.X = 80.000000000000000000
Position.Y = 140.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
end
object Label9: TLabel
Action = actPanelClipping
Enabled = True
Position.X = 240.000000000000000000
Position.Y = 98.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
end
object switchPanelClipping: TSwitch
Action = actPanelClipping
Enabled = True
Position.X = 184.000000000000000000
Position.Y = 104.000000000000000000
Size.Width = 48.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TabOrder = 14
end
object switchPanelKeepAspectRatio: TSwitch
Action = actPanelKeepAspectRatio
Enabled = True
Position.X = 24.000000000000000000
Position.Y = 104.000000000000000000
Size.Width = 48.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TabOrder = 15
end
object switchPanelScaling: TSwitch
Action = actPanelScaling
Enabled = True
Position.X = 24.000000000000000000
Position.Y = 146.000000000000000000
Size.Width = 48.000000000000000000
Size.Height = 20.000000000000000000
Size.PlatformDefault = False
TabOrder = 16
end
end
object StatusBar1: TStatusBar
Position.Y = 258.000000000000000000
ShowSizeGrip = False
Size.Width = 337.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
end
object popupmenuTrayIcon: TPopupMenu
Left = 184
Top = 200
object MenuItem8: TMenuItem
Action = actViewOpenMainWindow
Enabled = True
ImageIndex = -1
end
object MenuItem23: TMenuItem
Text = '-'
end
object MenuItem24: TMenuItem
Action = actFileStart
Enabled = True
ImageIndex = -1
end
object MenuItem25: TMenuItem
Action = actFileStop
Enabled = True
ImageIndex = -1
end
object MenuItem26: TMenuItem
Text = '-'
end
object MenuItem27: TMenuItem
Action = actPanelMonoscope
Enabled = True
ImageIndex = -1
end
object MenuItem32: TMenuItem
Action = actPanelShow
Enabled = True
ImageIndex = -1
end
object MenuItem33: TMenuItem
Action = actPanelHide
Enabled = True
ImageIndex = -1
end
object MenuItem28: TMenuItem
Text = '-'
end
object MenuItem29: TMenuItem
Action = actPanelClipping
Enabled = True
ImageIndex = -1
end
object MenuItem30: TMenuItem
Action = actPanelScaling
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem31: TMenuItem
Action = actPanelKeepAspectRatio
Enabled = True
Locked = True
ImageIndex = -1
end
object MenuItem35: TMenuItem
Action = actPanelAutoFit
Enabled = True
ImageIndex = -1
end
object MenuItem37: TMenuItem
Text = '-'
end
object MenuItem36: TMenuItem
Action = actFileExit
Enabled = True
ImageIndex = -1
end
end
object ActionList1: TActionList
OnUpdate = ActionList1Update
Left = 88
Top = 200
object actPanelMonoscope: TAction
Category = 'Panel'
AutoCheck = True
Text = 'Monoscope'
ShortCut = 123
OnExecute = actPanelMonoscopeExecute
OnUpdate = actPanelMonoscopeUpdate
end
object actPanelClipping: TAction
Category = 'Panel'
Text = 'Clipping'
Checked = True
ShortCut = 32888
OnExecute = actPanelClippingExecute
OnUpdate = actPanelClippingUpdate
end
object actPanelScaling: TAction
Category = 'Panel'
Text = 'Scaling'
Checked = True
ShortCut = 32889
OnExecute = actPanelScalingExecute
OnUpdate = actPanelScalingUpdate
end
object actPanelKeepAspectRatio: TAction
Category = 'Panel'
Text = 'Keep aspect ratio'
Checked = True
ShortCut = 32890
OnExecute = actPanelKeepAspectRatioExecute
OnUpdate = actPanelKeepAspectRatioUpdate
end
object actFileStart: TAction
Category = 'File'
Text = 'Start'
ShortCut = 116
OnExecute = actFileStartExecute
OnUpdate = EnabledIfNotRunning
end
object actFileStop: TAction
Category = 'File'
Text = 'Stop'
ShortCut = 117
OnExecute = actFileStopExecute
OnUpdate = EnabledIfRunning
end
object actPanelShow: TAction
Category = 'Panel'
Text = 'Show'
ShortCut = 120
OnExecute = actPanelShowExecute
OnUpdate = actPanelShowUpdate
end
object actFileConfig: TAction
Category = 'File'
Text = 'Config...'
OnExecute = actFileConfigExecute
OnUpdate = EnabledIfNotRunning
end
object actPanelHide: TAction
Category = 'Panel'
Text = 'Hide'
ShortCut = 121
OnExecute = actPanelHideExecute
OnUpdate = actPanelHideUpdate
end
object actViewOpenMainWindow: TAction
Category = 'View'
Text = 'Open'
OnExecute = actViewOpenMainWindowExecute
OnUpdate = actViewOpenMainWindowUpdate
end
object actPanelAutoFit: TAction
Category = 'Panel'
Text = 'Autofit'
ShortCut = 122
OnExecute = actPanelAutoFitExecute
OnUpdate = actPanelAutoFitUpdate
end
object actFileExit: TAction
Category = 'File'
Text = 'Quit'
OnExecute = actFileExitExecute
end
end
end