CAN_terminal/CAN_Terminal.dfm

347 lines
8.8 KiB
Plaintext

object CANTerminal: TCANTerminal
Left = 100
Top = 100
Width = 801
Height = 600
Caption = 'CANTerminal "Hunderitter" v.07.04.2025'
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
000000000000000000000000000000000077788F000000087FF0008000000000
0077788F000000087FF000800000000000000000FFFFFFF00000778F00000000
00000000FFFFFFF00000778F000000000000FFFFFFFFFFFFF000778F00000000
0000FFFFFFFFFFFFF000778F000000000000FFFFFFFFFFFFF000778F00000000
00000FFFF000FFFF0000778F0000000000000FFFF000FFFF0000778F00000000
08FF000FF000FFF00000778F0000000008FF000FF000FFF00000778F00000000
78FF000000000000000BBB9BBB00000078FF000000000000000BBB9BBB000077
8F00000FF000FFF00007BBBF000000778F00000FF000FFF00007BBBF00000000
78FF0FFF00000FFF077888000000000078FF0FFF00000FFF0778880000000000
0888FFFFFFFFFFFF7888FF00000000000888FFFFFFFFFFFF7888FF0000000000
00778FFFFFFFFFFF888000000000000000778FF00000000F8880000000000000
00778F0077788F0088800000000000000000000777788FF00000000000000000
0000000777788FF000000000000000000000000770088FF00000000000000000
0000000770088FF0000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000FFFF
FFFFF80780CFF80780CFF800000FF800000FFC000003FC000003FC000003FC00
0003FC000003F8000603F8000603F0000003F0000003C0600E01C0600E018080
000380800003C000000FC000000FF000001FF000001FF80000FFF80000FFF800
00FFFC0001FFFC0001FFFF800FFFFF800FFFFF800FFFFF800FFFFFFFFFFF}
OldCreateOrder = False
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object RxLabel1: TRxLabel
Left = 429
Top = 464
Width = 39
Height = 13
Caption = 'CAN on'
end
object ProjectBox: TComboBox
Left = 10
Top = 20
Width = 150
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'ProjectBox'
OnChange = ProjectBoxChange
Items.Strings = (
'+ + Add project + +')
end
object GroupBox: TGroupBox
Left = 10
Top = 48
Width = 765
Height = 355
Caption = ' '#1055#1088#1086#1077#1082#1090' '
TabOrder = 1
object Label1: TLabel
Left = 32
Top = 40
Width = 15
Height = 13
Caption = 'RS'
end
object Label2: TLabel
Left = 104
Top = 48
Width = 60
Height = 13
Caption = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1086
end
object Label3: TLabel
Left = 176
Top = 64
Width = 67
Height = 13
Caption = #1055#1088#1080#1077#1084' <-- '#1057#1059
end
object Label4: TLabel
Left = 248
Top = 72
Width = 82
Height = 13
Caption = #1055#1077#1088#1077#1076#1072#1095#1072' --> '#1057#1059
end
object Label5: TLabel
Left = 328
Top = 80
Width = 14
Height = 13
Caption = 'Go'
end
object Label6: TLabel
Left = 48
Top = 152
Width = 15
Height = 13
Caption = 'RS'
end
object Label7: TLabel
Left = 136
Top = 184
Width = 60
Height = 13
Caption = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1086
end
object Label8: TLabel
Left = 240
Top = 208
Width = 67
Height = 13
Caption = #1055#1088#1080#1077#1084' <-- '#1057#1059
end
object Label9: TLabel
Left = 352
Top = 232
Width = 82
Height = 13
Caption = #1055#1077#1088#1077#1076#1072#1095#1072' --> '#1057#1059
end
object Label10: TLabel
Left = 456
Top = 248
Width = 14
Height = 13
Caption = 'Go'
end
end
object Memo1: TMemo
Left = 10
Top = 410
Width = 400
Height = 140
Lines.Strings = (
'')
TabOrder = 2
end
object CANswitch: TRxSwitch
Left = 432
Top = 410
Width = 33
Height = 49
Caption = 'CANswitch'
TabOrder = 3
OnClick = CANswitchClick
end
object GroupBox1: TGroupBox
Left = 672
Top = 448
Width = 273
Height = 169
Caption = 'UART'
TabOrder = 4
Visible = False
object RxLabel2: TRxLabel
Left = 24
Top = 18
Width = 31
Height = 13
Caption = 'Com:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object RxLabel6: TRxLabel
Left = 81
Top = 148
Width = 56
Height = 13
Caption = 'TimeWait'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object AbortKey: TSpeedButton
Left = 8
Top = 80
Width = 17
Height = 17
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
993337777F777F3377F3393999707333993337F77737333337FF993399933333
399377F3777FF333377F993339903333399377F33737FF33377F993333707333
399377F333377FF3377F993333101933399377F333777FFF377F993333000993
399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
99333773FF777F777733339993707339933333773FF7FFF77333333999999999
3333333777333777333333333999993333333333377777333333}
NumGlyphs = 2
Visible = False
end
object CBLockRS: TCheckBox
Left = 32
Top = 46
Width = 73
Height = 17
Caption = 'LockRS'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = CBLockRSClick
end
object RCom: TRxSpinEdit
Left = 64
Top = 16
Width = 41
Height = 21
MaxValue = 255.000000000000000000
Value = 1.000000000000000000
TabOrder = 1
OnChange = RComChange
end
object RGBaud: TRadioGroup
Left = 120
Top = 16
Width = 73
Height = 57
BiDiMode = bdLeftToRight
Caption = 'Baud'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'57600'
'115200')
ParentBiDiMode = False
ParentFont = False
TabOrder = 2
OnClick = RGBaudClick
end
object TimeWait: TRxSpinEdit
Left = 10
Top = 140
Width = 55
Height = 21
Value = 10.000000000000000000
TabOrder = 3
end
object PBRs: TProgressBar
Left = 40
Top = 80
Width = 73
Height = 17
Step = 2
TabOrder = 4
end
object Memo2: TMemo
Left = 162
Top = 88
Width = 167
Height = 73
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnChange = Memo2Change
end
end
object RadioGroup1: TRadioGroup
Left = 480
Top = 410
Width = 73
Height = 65
Caption = ' Can Speed '
TabOrder = 5
end
object Button125: TRadioButton
Left = 487
Top = 427
Width = 50
Height = 17
Caption = '125K'
TabOrder = 6
end
object Button250: TRadioButton
Left = 487
Top = 451
Width = 50
Height = 17
Caption = '250K'
Checked = True
TabOrder = 7
TabStop = True
end
object CanTimer: TTimer
Interval = 10
OnTimer = CanTimerTimer
Left = 744
Top = 8
end
object MyCommPort: TApdComPort
ComNumber = 1
Baud = 115200
PromptForPort = False
StopBits = 2
InSize = 65500
OutSize = 65000
AutoOpen = False
DTR = False
BufferFull = 58500
BufferResume = 5850
TraceSize = 4000000
TraceName = 'e:\APRO.TRC'
TraceHex = False
LogSize = 4000000
LogName = 'e:\APRO.LOG'
LogHex = False
UseEventWord = False
CommNotificationLevel = 1
TapiMode = tmNone
Left = 696
Top = 8
end
end