forked from VE3NEA/OmniRig
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathMain.dfm
484 lines (484 loc) · 13.2 KB
/
Main.dfm
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
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
object MainForm: TMainForm
Left = 237
Top = 116
BorderStyle = bsDialog
Caption = 'Omni-Rig Settings'
ClientHeight = 355
ClientWidth = 411
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000007777000000000000000000
0000000777777777700000000000000000000077777777777700000000000000
0000077777777777777000000000000000007777777777777777000000000000
0000777777777777777700000000000000007777777777777777000000000000
0007777777777777777770000000000000077777777777777777700000000000
0007777777777777777770000000000000877777777777777777780000000000
8878777777777799977777880000000877887777777777999777887780000887
888877777777779997778888788008F8888887777777777777788888878008F8
888888777777777777888888878008F88FAFAFA7777777777FAFAFA8878008F8
8AFAFAFAFA7777FAFAFAFAF8878008F88FAFAFAFAFAFAFAFAFAFAFA8878008F8
8AFAF8FAFAFA8AFAFA8AFAF8878008F88FAFA8AFAFAF8FAFAF8FAFA8878008F8
8AFAF8FAFAFA8AFAFA8AFAF8878008F88FAFAFAFAFAFAFAFAFAFAFA8878008F8
8AFAFAFAFAFAFAFAFAFAFAF8878008F8888888888888888888888888878008F8
888888888888888888888888878008FFFFFFFFFFFFFFFFFFFFFFFFFFFF800888
888888888888888888888888888000000000000000000000000000000000FFFF
FFFFFFFFFFFFFFFFFFFFFFFC3FFFFFE007FFFFC003FFFF8001FFFF0000FFFF00
00FFFF0000FFFE00007FFE00007FFE00007FFC00003FF000000FE00000078000
0001800000018000000180000001800000018000000180000001800000018000
0001800000018000000180000001800000018000000180000001FFFFFFFF}
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnHide = FormHide
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 322
Width = 411
Height = 33
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
DesignSize = (
411
33)
object OkBtn: TButton
Left = 249
Top = 5
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&OK'
Default = True
ModalResult = 1
TabOrder = 0
OnClick = OkBtnClick
end
object CancelBtn: TButton
Left = 329
Top = 5
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 1
OnClick = CancelBtnClick
end
end
object TabControl1: TTabControl
Left = 0
Top = 0
Width = 411
Height = 322
Align = alClient
TabOrder = 1
Tabs.Strings = (
'RIG 1'
'RIG 2'
'About')
TabIndex = 0
OnChange = TabControl1Change
OnChanging = TabControl1Changing
object Panel2: TPanel
Left = 4
Top = 24
Width = 206
Height = 294
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object Label1: TLabel
Left = 14
Top = 43
Width = 19
Height = 13
Caption = 'Port'
FocusControl = PortComboBox
end
object Label2: TLabel
Left = 14
Top = 71
Width = 46
Height = 13
Caption = 'Baud rate'
FocusControl = BaudRateComboBox
end
object Label3: TLabel
Left = 14
Top = 99
Width = 42
Height = 13
Caption = 'Data bits'
FocusControl = DataBitsComboBox
end
object Label4: TLabel
Left = 14
Top = 127
Width = 26
Height = 13
Caption = 'Parity'
FocusControl = ParityComboBox
end
object Label5: TLabel
Left = 14
Top = 155
Width = 41
Height = 13
Caption = 'Stop bits'
FocusControl = StopBitsComboBox
end
object Label6: TLabel
Left = 14
Top = 182
Width = 22
Height = 13
Caption = 'RTS'
FocusControl = RtsComboBox
end
object Label10: TLabel
Left = 14
Top = 15
Width = 39
Height = 13
Caption = 'Rig type'
FocusControl = RigComboBox
end
object Label12: TLabel
Left = 14
Top = 238
Width = 53
Height = 13
Caption = 'Poll int., ms'
end
object Label14: TLabel
Left = 14
Top = 267
Width = 57
Height = 13
Caption = 'Timeout, ms'
end
object Label11: TLabel
Left = 14
Top = 210
Width = 23
Height = 13
Caption = 'DTR'
FocusControl = DtrComboBox
end
object PortComboBox: TComboBox
Left = 82
Top = 39
Width = 103
Height = 21
Style = csDropDownList
DropDownCount = 16
TabOrder = 0
Items.Strings = (
'COM 1'
'COM 2'
'COM 3'
'COM 4'
'COM 5'
'COM 6'
'COM 7'
'COM 8'
'COM 9'
'COM 10'
'COM 11'
'COM 12'
'COM 13'
'COM 14'
'COM 15'
'COM 16'
'COM 17'
'COM 18'
'COM 19'
'COM 20'
'')
end
object BaudRateComboBox: TComboBox
Left = 82
Top = 67
Width = 103
Height = 21
Style = csDropDownList
DropDownCount = 19
TabOrder = 1
end
object DataBitsComboBox: TComboBox
Left = 82
Top = 95
Width = 103
Height = 21
Style = csDropDownList
TabOrder = 2
Items.Strings = (
'5'
'6'
'7'
'8')
end
object ParityComboBox: TComboBox
Left = 82
Top = 123
Width = 103
Height = 21
Style = csDropDownList
TabOrder = 3
Items.Strings = (
'None'
'Odd'
'Even'
'Mark'
'Space')
end
object StopBitsComboBox: TComboBox
Left = 82
Top = 151
Width = 103
Height = 21
Style = csDropDownList
TabOrder = 4
Items.Strings = (
'1'
'1.5'
'2')
end
object RtsComboBox: TComboBox
Left = 82
Top = 179
Width = 103
Height = 21
Style = csDropDownList
TabOrder = 5
Items.Strings = (
'Low'
'High'
'Handshake')
end
object RigComboBox: TComboBox
Left = 82
Top = 11
Width = 103
Height = 21
Style = csDropDownList
DropDownCount = 16
TabOrder = 6
Items.Strings = (
'Yes'
'No')
end
object PollSpinEdit: TSpinEdit
Left = 82
Top = 235
Width = 103
Height = 22
MaxLength = 4
MaxValue = 2000
MinValue = 100
TabOrder = 7
Value = 100
end
object TimeoutSpinEdit: TSpinEdit
Left = 82
Top = 265
Width = 103
Height = 22
MaxLength = 4
MaxValue = 4000
MinValue = 100
TabOrder = 8
Value = 100
end
object DtrComboBox: TComboBox
Left = 82
Top = 207
Width = 103
Height = 21
Style = csDropDownList
TabOrder = 9
Items.Strings = (
'Low'
'High')
end
end
object Panel3: TPanel
Left = 210
Top = 24
Width = 197
Height = 294
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
Visible = False
DesignSize = (
197
294)
object Label8: TLabel
Left = 69
Top = 31
Width = 109
Height = 28
Caption = 'Omni-Rig'
Font.Charset = ANSI_CHARSET
Font.Color = clAqua
Font.Height = -25
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
end
object Image1: TImage
Left = 21
Top = 28
Width = 32
Height = 32
AutoSize = True
Picture.Data = {
055449636F6E0000010001002020100000000000E80200001600000028000000
2000000040000000010004000000000080020000000000000000000000000000
0000000000000000000080000080000000808000800000008000800080800000
80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
FFFFFF0000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000007777000000
0000000000000000000777777777700000000000000000000077777777777700
0000000000000000077777777777777000000000000000007777777777777777
0000000000000000777777777777777700000000000000007777777777777777
0000000000000007777777777777777770000000000000077777777777777777
7000000000000007777777777777777770000000000000877777777777777777
7800000000008878777777777799977777880000000877887777777777999777
887780000887888877777777779997778888788008F888888777777777777778
8888878008F8888888777777777777888888878008F88FAFAFA7777777777FAF
AFA8878008F88AFAFAFAFA7777FAFAFAFAF8878008F88FAFAFAFAFAFAFAFAFAF
AFA8878008F88AFAF8FAFAFA8AFAFA8AFAF8878008F88FAFA8AFAFAF8FAFAF8F
AFA8878008F88AFAF8FAFAFA8AFAFA8AFAF8878008F88FAFAFAFAFAFAFAFAFAF
AFA8878008F88AFAFAFAFAFAFAFAFAFAFAF8878008F888888888888888888888
8888878008F8888888888888888888888888878008FFFFFFFFFFFFFFFFFFFFFF
FFFFFF8008888888888888888888888888888880000000000000000000000000
00000000FFFFFFFFFFFFFFFFFFFFFFFFFFFC3FFFFFE007FFFFC003FFFF8001FF
FF0000FFFF0000FFFF0000FFFE00007FFE00007FFE00007FFC00003FF000000F
E000000780000001800000018000000180000001800000018000000180000001
8000000180000001800000018000000180000001800000018000000180000001
FFFFFFFF}
Transparent = True
end
object Label7: TLabel
Left = 67
Top = 29
Width = 109
Height = 28
Caption = 'Omni-Rig'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -25
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
end
object Label9: TLabel
Left = 72
Top = 64
Width = 59
Height = 13
Caption = 'Version 0.00'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 56
Top = 124
Width = 83
Height = 16
Caption = ' FREEWARE '
Color = clGreen
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
Transparent = True
end
object Label15: TLabel
Left = 8
Top = 272
Width = 184
Height = 13
Cursor = crHandPoint
Anchors = [akLeft, akBottom]
Caption = 'www.dxatlas.com/omnirig'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Courier'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label15Click
end
object Label16: TLabel
Left = 41
Top = 156
Width = 110
Height = 13
Caption = 'Copyright '#169' 2003-2021'
end
object Label17: TLabel
Left = 26
Top = 209
Width = 144
Height = 13
Cursor = crHandPoint
Anchors = [akLeft, akBottom]
Caption = '[email protected]'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Courier'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label17Click
end
object Label18: TLabel
Left = 32
Top = 172
Width = 132
Height = 13
Caption = 'Alex Shovkoplyas, VE3NEA'
end
end
end
object ApplicationEvents1: TApplicationEvents
OnMessage = ApplicationEvents1Message
Left = 56
Top = 324
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 92
Top = 324
end
end