mainfrm.~dfm

CAN测试程序。华控CAN50模块(can转usb)的测试程序（VC

object MainForm: TMainForm
  Left = 329
  Top = 236
  Width = 632
  Height = 376
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'HKCAN-Tester'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 41
    Top = 145
    Width = 60
    Height = 13
    Caption = #26495#21345#31867#22411#65306
  end
  object Label10: TLabel
    Left = 41
    Top = 145
    Width = 60
    Height = 13
    Caption = #26495#21345#31867#22411#65306
  end
  object Label18: TLabel
    Left = 17
    Top = 129
    Width = 60
    Height = 13
    Caption = #25104#21151#24103#25968#65306
  end
  object GroupBox3: TGroupBox
    Left = 217
    Top = 209
    Width = 401
    Height = 120
    Caption = #25509#25910
    TabOrder = 13
    object Label20: TLabel
      Left = 16
      Top = 33
      Width = 48
      Height = 13
      Caption = #25509#25910#24103#65306
    end
    object Label21: TLabel
      Left = 16
      Top = 72
      Width = 60
      Height = 13
      Caption = #25509#25910#24103#25968#65306
    end
    object RecCount_Edit: TEdit
      Left = 98
      Top = 68
      Width = 81
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object BtnClearRecCount: TButton
      Left = 338
      Top = 26
      Width = 48
      Height = 25
      Caption = #28165#38500
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BtnClearRecCountClick
    end
    object BtnRdDevStatus: TButton
      Left = 217
      Top = 64
      Width = 72
      Height = 25
      Caption = #35835#35774#22791#29366#24577
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BtnRdDevStatusClick
    end
    object DevStatus_Edit: TEdit
      Left = 304
      Top = 65
      Width = 81
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
      Text = '0'
    end
  end
  object GroupBox2: TGroupBox
    Left = 217
    Top = 9
    Width = 401
    Height = 193
    Caption = #21457#36865
    TabOrder = 12
    object Label4: TLabel
      Left = 16
      Top = 33
      Width = 48
      Height = 13
      Caption = #21457#36865#24103#65306
    end
    object Label5: TLabel
      Left = 16
      Top = 69
      Width = 60
      Height = 13
      Caption = #37325#21457#27425#25968#65306
    end
    object Label15: TLabel
      Left = 16
      Top = 116
      Width = 72
      Height = 13
      Caption = #24635#21457#36865#24103#25968#65306
    end
    object Label16: TLabel
      Left = 16
      Top = 151
      Width = 60
      Height = 13
      Caption = #25104#21151#24103#25968#65306
    end
    object Label17: TLabel
      Left = 184
      Top = 151
      Width = 60
      Height = 13
      Caption = #22833#36133#24103#25968#65306
    end
    object Label19: TLabel
      Left = 232
      Top = 116
      Width = 36
      Height = 13
      Caption = #39057#29575#65306
    end
    object Label22: TLabel
      Left = 352
      Top = 116
      Width = 35
      Height = 13
      Caption = '('#24103'/'#31186')'
    end
    object Label14: TLabel
      Left = 297
      Top = 69
      Width = 56
      Height = 13
      AutoSize = False
      Caption = #26174#31034#36807#31243
    end
    object Label6: TLabel
      Left = 208
      Top = 69
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #24490#29615#21457#36865
    end
    object BtnStopSend: TButton
      Left = 337
      Top = 27
      Width = 48
      Height = 25
      Caption = #20572#27490
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BtnStopSendClick
    end
    object ShowProc_CheckBox: TCheckBox
      Left = 356
      Top = 66
      Width = 17
      Height = 17
      Caption = 'ShowProc_CheckBox'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = ShowProc_CheckBoxClick
    end
    object SdTotalCount_Edit: TEdit
      Left = 96
      Top = 112
      Width = 113
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object SdOKCount_Edit: TEdit
      Left = 96
      Top = 148
      Width = 81
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object SdFaileCount_Edit: TEdit
      Left = 248
      Top = 148
      Width = 81
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object SdFreq_Edit: TEdit
      Left = 280
      Top = 112
      Width = 65
      Height = 24
      Color = cl3DLight
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
    end
    object BtnClearSendCount: TButton
      Left = 337
      Top = 146
      Width = 48
      Height = 25
      Caption = #28165#38500
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = BtnClearSendCountClick
    end
    object SdTryCount_Edit: TEdit
      Left = 96
      Top = 67
      Width = 81
      Height = 24
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 8
      Text = '1'
    end
    object SdCycle_CheckBox: TCheckBox
      Left = 268
      Top = 66
      Width = 17
      Height = 17
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
  end
  object GroupBox1: TGroupBox
    Left = 14
    Top = 9
    Width = 188
    Height = 320
    Caption = #37197#32622
    TabOrder = 11
    object Label7: TLabel
      Left = 26
      Top = 31
      Width = 60
      Height = 13
      Caption = #26495#21345#31867#22411#65306
    end
    object Label8: TLabel
      Left = 26
      Top = 70
      Width = 60
      Height = 13
      Caption = #39537#21160#31867#22411#65306
    end
    object Label11: TLabel
      Left = 26
      Top = 148
      Width = 48
      Height = 13
      Caption = #21457#36865#31471#65306
    end
    object Label12: TLabel
      Left = 26
      Top = 187
      Width = 48
      Height = 13
      Caption = #25509#25910#31471#65306
    end
    object Label13: TLabel
      Left = 26
      Top = 227
      Width = 60
      Height = 13
      Caption = #25509#25910#26041#24335#65306
    end
    object Label1: TLabel
      Left = 26
      Top = 109
      Width = 48
      Height = 13
      Caption = #27874#29305#29575#65306
    end
    object Label2: TLabel
      Left = 26
      Top = 292
      Width = 36
      Height = 13
      Caption = #29366#24577#65306
    end
    object DeviceStatus_Str: TLabel
      Left = 63
      Top = 292
      Width = 76
      Height = 13
      Caption = 'CAN'#21345#24050#20851#38381'  '
    end
  end
  object BtnInitCard: TButton
    Left = 43
    Top = 264
    Width = 55
    Height = 25
    Caption = #25171#24320
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BtnInitCardClick
  end
  object BtnCloseCard: TButton
    Left = 115
    Top = 264
    Width = 55
    Height = 25
    Caption = #20851#38381
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnCloseCardClick
  end
  object Send_Edit: TEdit
    Left = 288
    Top = 38
    Width = 159
    Height = 23
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    TabOrder = 2
    Text = 'abcdefg'
  end
  object Receive_Edit: TEdit
    Left = 288
    Top = 240
    Width = 159
    Height = 24
    Color = cl3DLight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object BtnSendFrm: TButton
    Left = 471
    Top = 35
    Width = 48
    Height = 25
    Caption = #21457#36865
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BtnSendFrmClick
  end
  object CanType_ComboBox: TComboBox
    Left = 105
    Top = 33
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 2
    ParentFont = False
    TabOrder = 5
    Text = 'CAN30B'
    OnChange = CanType_ComboBoxChange
    Items.Strings = (
      'CAN10S'
      'CAN20C'
      'CAN30B'
      'CAN50')
  end
  object DrvType_ComboBox: TComboBox
    Left = 105
    Top = 72
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 6
    Text = 'SYS'
    Items.Strings = (
      'SYS'
      'VXD')
  end
  object Baud_ComboBox: TComboBox
    Left = 105
    Top = 111
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 7
    Text = '1M'
    Items.Strings = (
      '1M'
      '500K'
      '250K'
      '125K'
      '50K'
      '20K'
      '10K'
      '5K')
  end
  object SdPort_ComboBox: TComboBox
    Left = 105
    Top = 150
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 8
    Text = 'Port0'
    Items.Strings = (
      'Port0'
      'Port1')
  end
  object RecPort_ComboBox: TComboBox
    Left = 105
    Top = 189
    Width = 73
    Height = 24
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 1
    ParentFont = False
    TabOrder = 9
    Text = 'Port1'
    Items.Strings = (
      'Port0'
      'Port1')
  end
  object RecType_ComboBox: TComboBox
    Left = 105
    Top = 228
    Width = 73
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ItemIndex = 0
    ParentFont = False
    TabOrder = 10
    Text = #20107#20214
    Items.Strings = (
      #20107#20214
      #36718#35810)
  end
end