forked from asousa-feup/FEUPAutom
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmain.lfm
3884 lines (3884 loc) · 112 KB
/
main.lfm
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
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object FMain: TFMain
Left = 357
Height = 568
Top = 131
Width = 704
Caption = 'FEUPAutom'
ClientHeight = 548
ClientWidth = 704
Color = clBtnFace
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Icon.Data = {
360D00000000010002002020000001000800A808000026000000101000000100
200068040000CE08000028000000200000004000000001000800000000008004
0000000000000000000000010000000000000000000080008000800000008080
0000008000000080800000008000C0C0C000C0DCC000F0CAA60080808000FF00
FF00FF000000FFFF000000FF000000FFFF000000FF00FFFFFF00F0FBFF00A4A0
A00004040400080808000C0C0C0011111100161616001C1C1C00222222002929
2900555555004D4D4D004242420039393900807CFF005050FF009300D600FFEC
CC00C6D6EF00D6E7E70090A9AD000000330000006600000099000000CC000033
00000033330000336600003399000033CC000033FF0000660000006633000066
6600006699000066CC000066FF00009900000099330000996600009999000099
CC000099FF0000CC000000CC330000CC660000CC990000CCCC0000CCFF0000FF
660000FF990000FFCC00330000003300330033006600330099003300CC003300
FF00333300003333330033336600333399003333CC003333FF00336600003366
330033666600336699003366CC003366FF003399000033993300339966003399
99003399CC003399FF0033CC000033CC330033CC660033CC990033CCCC0033CC
FF0033FF330033FF660033FF990033FFCC0033FFFF0066000000660033006600
6600660099006600CC006600FF00663300006633330066336600663399006633
CC006633FF00666600006666330066666600666699006666CC00669900006699
330066996600669999006699CC006699FF0066CC000066CC330066CC990066CC
CC0066CCFF0066FF000066FF330066FF990066FFCC00CC00FF00FF00CC009999
000099339900990099009900CC009900000099333300990066009933CC009900
FF00996600009966330099336600996699009966CC009933FF00999933009999
6600999999009999CC009999FF0099CC000099CC330066CC660099CC990099CC
CC0099CCFF0099FF000099FF330099CC660099FF990099FFCC0099FFFF00CC00
000099003300CC006600CC009900CC00CC0099330000CC333300CC336600CC33
9900CC33CC00CC33FF00CC660000CC66330099666600CC669900CC66CC009966
FF00CC990000CC993300CC996600CC999900CC99CC00CC99FF00CCCC0000CCCC
3300CCCC6600CCCC9900CCCCCC00CCCCFF00CCFF0000CCFF330099FF6600CCFF
9900CCFFCC00CCFFFF00CC003300FF006600FF009900CC330000FF333300FF33
6600FF339900FF33CC00FF33FF00FF660000FF663300CC666600FF669900FF66
CC00CC66FF00FF990000FF993300FF996600FF999900FF99CC00FF99FF00FFCC
0000FFCC3300FFCC6600FFCC9900FFCCCC00FFCCFF00FFFF3300CCFF6600FFFF
9900FFFFCC006666FF0066FF660066FFFF00FF666600FF66FF00FFFF66002100
A5005F5F5F00777777008686860096969600CBCBCB00B2B2B200D7D7D700DDDD
DD00E3E3E300EAEAEA00F1F1F100F8F8F800000000000000000000000000F500
0000000000000000000000000000000000000000000000000000000000F500F5
F5000000F50000000000000000000000000000000000000000000000F5001100
00F5F5F5F5F5000000000000000000000000000000000000000000F5001111FB
FB0000F500F5F500000000000000000000000000000000000000F50011FBFBF9
F7F400001100F5F50000000000000000000000000000000000F500FBFBF9F7F4
00001111111100F5F5000000000000000000000000000000F500FBF9F7F40000
111111121111110000F5F5000000000000000000000000F500F9F7F400001111
1111001112111111000000F5F5000000000000000000F500F7F4000011111111
00111100111111111100F40000F5F5000000000000F500F40000111111121111
1100111111111211111100F4F91400F5F5000000F50000001111111111110011
111100111100111211111114F4F9FB00F50000F5000011111111110011111100
11111112111100111212111114F400F5F5000000111111111100111100111111
0011111100111100111211111100F5F5F5F50000111111001111001111001111
111111111100111100111111111114F5F5000000001111110011110011110000
004C111111111111111111111111110000000000000011111112111100111100
0035355411111111111111111111111100000000000000111111001111111154
84353535340000111111111111110000000000000000000011111100111111A3
3584352D2D494800111111110000000000000000000000000011111100111111
54842D4A4A494948001100000000000000000000000000000000111111111111
F5342D4A4A4A4949480000000000000000000000000000000000001111111111
1100114B4A4A4A49494800000000000000000000000000000000000011111111
11004A114B4A4A4A494948000000000000000000000000000000000000111111
1111004A114B4A4A4A4949480000000000000000000000000000000000001111
000000004A114B4A4A4A49494800000000000000000000000000000000000000
00000000004A114B4A4A4A494948000000000000000000000000000000000000
0000000000004A114B4A4A494948480000000000000000000000000000000000
000000000000004A114B49494848484800000000000000000000000000000000
00000000000000004AEC49494848484900000000000000000000000000000000
000000000000000000494A494948494900000000000000000000000000000000
000000000000000000004A4A4A49490000000000000000000000000000000000
00000000000000000000004A4949000000000000000000000000000000000000
000000000000000000000000000000000000FFF7FFFFFFE1DFFFFFC00FFFFF80
07FFFF0003FFFE0001FFFC00007FF800001FF0000007E0000001C00000018000
00010000000080000001C0000003E0000001F0000003F800000FFC00003FFE00
00FFFF00007FFF80003FFFC0001FFFE0800FFFF3C007FFFFE003FFFFF001FFFF
F801FFFFFC01FFFFFE03FFFFFF07FFFFFF8F2800000010000000200000000100
2000000000004004000000000000000000000000000000000000000000000000
0000000000000000000000000000929292FF4E4E4EBF929292FF929292FF9292
92FF000000000000000000000000000000000000000000000000000000000000
00000000000000000000929292FF454545FFE6E6E6FF3D3D3DFF686868FF0000
00FF929292FF0000000000000000000000000000000000000000000000000000
000000000000929292FF323232FFFFFFFFFFA3A3A3FF1D1D1DFF929292FFEBEB
EBFF000000FF929292FF00000000000000000000000000000000000000000000
0000929292FF2C2C2CFFCBCBCBFF070707FF6F6F6FFFFFFFFFFFFFFFFFFFFFFF
FFFFE1E0E0FF000000FF929292FFA5A5A53F0000000000000000000000009292
92FF1D1D1DFF313131FF6F6F6FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFE8E7E7FF0D0D0DFF474747FF929292FF9191913F929292FF0000
00FF868686FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFDFDEDEFF000000FF4D4D4DFF929292FF000000FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFD5D5D5FF000000FF8E8E8EBF000000000000
00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF929292FF000000FF7BAFD4FFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE5E5E5FF000000FF000000000000
0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFCDE2D5FF2CAEFFFF0048B2FF0000
40FF1B031FFFFFFFFFFFFFFFFFFF000000FF929292FF00000000000000000000
000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF2D7C81FF11008DFF3D00
DCFF2A0094FF3F3443FF000000FF000000000000000000000000000000000000
00000000000000000000000000FFFFFFFFFFFFFFFFFF6F6951FFC3A5FFFF2200
DCFF3300CBFF34009DFF0F001BBF000000000000000000000000000000000000
0000000000000000000000000000000000FFFFFFFFFF000000FF000000BFD1BE
FFFF2200DCFF3300CBFF3E00A6FF0F001BBF0000000000000000000000000000
000000000000000000000000000000000000000000FF00000000000000000000
15BFD1BEFFFF2200DEFF3300BAFF3E0095FF0F001DBF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000100044BF997FE5FF330099FF330066FF330072FF0000007F000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000100032BF3300BFFF330098FF260072FF0000003F000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000100044BF19004CFF0000003F00000000F83FFFFFF01F
FFFFE00FFFFFC003FFFF8000FFFF0000FFFF0000FFFF8000FFFFC001FFFFE007
FFFFF007FFFFF803FFFFFD81FFFFFFC0FFFFFFE0FFFFFFF1FFFF
}
KeyPreview = True
Menu = MainMenu
OnActivate = FormActivate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyUp = FormKeyUp
OnShow = FormShow
LCLVersion = '2.0.10.0'
object PageControl: TPageControl
Left = 6
Height = 456
Top = 8
Width = 698
ActivePage = TabProject
Anchors = [akTop, akLeft, akRight, akBottom]
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabIndex = 0
TabOrder = 1
object TabProject: TTabSheet
Caption = 'Project'
ClientHeight = 430
ClientWidth = 690
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
object Bevel1: TBevel
Left = 8
Height = 142
Top = 128
Width = 573
end
object Label1: TLabel
Left = 8
Height = 13
Top = 8
Width = 45
Caption = 'Author(s):'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 8
Height = 13
Top = 32
Width = 52
Caption = 'Comments:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label6: TLabel
Left = 11
Height = 13
Top = 102
Width = 55
Caption = 'Period (ms):'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 14
Height = 13
Top = 214
Width = 22
Caption = 'Port:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 23
Height = 13
Top = 185
Width = 13
Caption = 'IP:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object LabelMBStatus: TLabel
Left = 156
Height = 13
Top = 147
Width = 69
Caption = 'ModBusStatus'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 298
Height = 13
Top = 214
Width = 55
Caption = '# Bits Write'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 298
Height = 13
Top = 186
Width = 56
Caption = '# Bits Read'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 192
Height = 13
Top = 213
Width = 42
Caption = 'Offset O:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object Label7: TLabel
Left = 197
Height = 13
Top = 184
Width = 37
Caption = 'Offset I:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentColor = False
ParentFont = False
end
object EditAuthors: TEdit
Left = 64
Height = 21
Top = 8
Width = 611
Anchors = [akTop, akLeft, akRight]
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnChange = EditAuthorsChange
ParentFont = False
TabOrder = 0
end
object EditComments: TEdit
Left = 64
Height = 21
Top = 32
Width = 611
Anchors = [akTop, akLeft, akRight]
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnChange = EditCommentsChange
ParentFont = False
TabOrder = 1
end
object CBGrafcet: TCheckBox
Left = 12
Height = 19
Top = 60
Width = 416
Caption = 'Enable Grafcet in Project - (Please use Window menu to show/hide grafcet window)'
Checked = True
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnChange = CBGrafcetChange
ParentFont = False
State = cbChecked
TabOrder = 2
end
object EditMBIP: TEdit
Left = 40
Height = 21
Top = 182
Width = 121
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 3
Text = 'localhost'
end
object EditMBPort: TEdit
Left = 40
Height = 21
Top = 210
Width = 121
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 4
Text = '5502'
end
object BSetParams: TButton
Left = 19
Height = 30
Top = 243
Width = 562
Caption = 'Set Params'
Default = True
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BSetParamsClick
ParentFont = False
TabOrder = 5
end
object EditPeriodMiliSec: TEdit
Left = 68
Height = 21
Top = 100
Width = 49
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 6
Text = '39'
end
object CBWinMessages: TCheckBox
Left = 22
Height = 19
Top = 132
Width = 101
Caption = 'F.A.1 Win Messg'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = CBWinMessagesClick
ParentFont = False
TabOrder = 7
end
object CBModBus: TCheckBox
Left = 22
Height = 19
Top = 149
Width = 59
Caption = 'ModBus'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = CBModBusClick
ParentFont = False
TabOrder = 8
end
object Button1: TButton
Left = 487
Height = 32
Top = 63
Width = 94
Caption = 'Editor Font'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = Button1Click
ParentFont = False
TabOrder = 9
end
object EditMBNRead: TEdit
Left = 360
Height = 21
Top = 181
Width = 24
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 10
Text = '48'
end
object EditMBNWrite: TEdit
Left = 360
Height = 21
Top = 210
Width = 24
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 11
Text = '48'
end
object EditMBOffs_I: TEdit
Left = 240
Height = 21
Top = 181
Width = 48
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 12
Text = '5392'
end
object EditMBOffs_O: TEdit
Left = 240
Height = 21
Top = 210
Width = 48
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 13
Text = '0'
end
object BResetWinPos: TButton
Left = 489
Height = 32
Top = 96
Width = 93
Caption = 'Rst Win Pos''s'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BResetWinPosClick
ParentFont = False
TabOrder = 14
end
object BTestMBRdWr: TButton
Left = 462
Height = 19
Top = 282
Width = 120
Caption = 'Set + Run Once (test)'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BTestMBRdWrClick
ParentFont = False
TabOrder = 15
end
object RGMBReadFunc: TRadioGroup
Left = 397
Height = 90
Top = 147
Width = 92
AutoFill = True
Caption = 'MB Read Func'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 72
ClientWidth = 88
Enabled = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ItemIndex = 1
Items.Strings = (
'Coils (#1)'
'InpBits (#2)'
'HoldRgs (#3)'
)
ParentFont = False
TabOrder = 16
end
object CBGen_C_Code: TCheckBox
Left = 12
Height = 19
Top = 77
Width = 261
Caption = 'Show Buttons and options to produce AVR C Code'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = CBGen_C_CodeClick
ParentFont = False
TabOrder = 17
end
object bFactio: TButton
Left = 470
Height = 19
Top = 352
Width = 110
Caption = 'Factory IO Test Stuff'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = bFactioClick
ParentFont = False
TabOrder = 18
end
object MemoDebugMB: TMemo
Left = 8
Height = 158
Top = 282
Width = 446
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 19
end
object BMBStatusCheck: TButton
Left = 470
Height = 22
Top = 371
Width = 110
Caption = 'Status'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BMBStatusCheckClick
ParentFont = False
TabOrder = 20
end
object BMBSampleRead: TButton
Left = 470
Height = 21
Top = 394
Width = 110
Caption = 'Sample Read'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BMBSampleReadClick
ParentFont = False
TabOrder = 21
end
object BMBSampleWrite: TButton
Left = 470
Height = 21
Top = 416
Width = 110
Caption = 'Sample Write'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = BMBSampleWriteClick
ParentFont = False
TabOrder = 22
end
object RGMBWriteFunc1: TRadioGroup
Left = 491
Height = 90
Top = 147
Width = 104
AutoFill = True
Caption = 'MB Write Func'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 72
ClientWidth = 100
Enabled = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ItemIndex = 0
Items.Strings = (
'Coils (#15)'
'InpBits'
'HoldRgs (#16)'
)
ParentFont = False
TabOrder = 23
end
object Button2: TButton
Left = 486
Height = 13
Top = 307
Width = 75
Caption = 'Test Read'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = Button2Click
ParentFont = False
TabOrder = 24
end
object Button3: TButton
Left = 487
Height = 13
Top = 320
Width = 75
Caption = 'TestWrite'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnClick = Button2Click
ParentFont = False
TabOrder = 25
end
object CBExamMode: TCheckBox
Left = 311
Height = 19
Top = 77
Width = 76
Caption = 'Exam Mode'
Enabled = False
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ParentFont = False
TabOrder = 26
end
object Bevel2: TBevel
Left = 18
Height = 42
Top = 129
Width = 106
Style = bsRaised
end
end
object TabST: TTabSheet
Caption = 'ST Editor'
ClientHeight = 450
ClientWidth = 690
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
ImageIndex = 1
ParentFont = False
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 6
Top = 369
Width = 690
Align = alBottom
MinSize = 25
OnCanResize = Splitter1CanResize
ResizeAnchor = akBottom
ResizeStyle = rsLine
end
inline SynEditST: TSynEdit
Left = 0
Height = 369
Top = 0
Width = 690
Align = alClient
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
ParentShowHint = False
TabOrder = 0
OnMouseMove = SynEditSTMouseMove
Gutter.Width = 55
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynAnySyn_ST
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9