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