mian.~dfm

很好的串口调试程序

object Form1: TForm1
  Left = 204
  Top = 17
  Width = 447
  Height = 537
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clGreen
  Font.Height = -16
  Font.Name = #26032#23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000BBB00BBB0BBBBBB00BB00BBB0000000B
    000B00B000B00B000B0000B00000000B000B00B000B00B00B00000B00000000B
    000B000BBB000B00B00000B00000000B000B000B0B000B0B000000B00000000B
    000B000B0B000BBBB00000B00000000B000B000B0B000B000B0000B00000000B
    000B0000B0000B000B0B00B00B0000BBB0BBB000B000BBBBB00BBBBBBB000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF188198FEEDDBBDFEEDDB7DFEEE3
    B7DFEEEBAFDFEEEB87DFEEEBBBDFEEF7BADBC4770603FFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 16
    Top = 449
    Width = 55
    Height = 19
    Alignment = taCenter
    AutoSize = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 249
    Width = 121
    Height = 89
    Caption = #20018#21475#35774#32622
    Font.Charset = GB2312_CHARSET
    Font.Color = clTeal
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object RadioButton1: TRadioButton
      Left = 16
      Top = 31
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Caption = 'com1'
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 16
      Top = 62
      Width = 81
      Height = 17
      Cursor = crHandPoint
      Caption = 'com2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 353
    Width = 121
    Height = 89
    Caption = #27874#29305#29575
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object RadioButton3: TRadioButton
      Left = 16
      Top = 32
      Width = 89
      Height = 17
      Cursor = crHandPoint
      Caption = '19200'
      TabOrder = 0
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 16
      Top = 64
      Width = 73
      Height = 17
      Cursor = crHandPoint
      Caption = '9600'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = RadioButton4Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 16
    Width = 401
    Height = 65
    Caption = #21475#35774#32622
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object CheckBox1: TCheckBox
      Left = 16
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '7'
      TabOrder = 0
      OnClick = GroupBox3Click
    end
    object CheckBox2: TCheckBox
      Left = 62
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '6'
      TabOrder = 1
      OnClick = GroupBox3Click
    end
    object CheckBox3: TCheckBox
      Left = 109
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '5'
      TabOrder = 2
      OnClick = GroupBox3Click
    end
    object CheckBox4: TCheckBox
      Left = 156
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '4'
      TabOrder = 3
      OnClick = GroupBox3Click
    end
    object CheckBox5: TCheckBox
      Left = 203
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '3'
      TabOrder = 4
      OnClick = GroupBox3Click
    end
    object CheckBox6: TCheckBox
      Left = 250
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '2'
      TabOrder = 5
      OnClick = GroupBox3Click
    end
    object CheckBox7: TCheckBox
      Left = 297
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '1'
      TabOrder = 6
      OnClick = GroupBox3Click
    end
    object CheckBox8: TCheckBox
      Left = 344
      Top = 26
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = '0'
      TabOrder = 7
      OnClick = GroupBox3Click
    end
  end
  object Memo1: TMemo
    Left = 152
    Top = 257
    Width = 265
    Height = 209
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object GroupBox4: TGroupBox
    Left = 17
    Top = 90
    Width = 401
    Height = 63
    Caption = #23383#31526
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    TabStop = True
    object RadioButton5: TRadioButton
      Left = 16
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'a'
      TabOrder = 0
      OnClick = RadioButton5Click
    end
    object RadioButton6: TRadioButton
      Left = 63
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'b'
      TabOrder = 1
      OnClick = RadioButton6Click
    end
    object RadioButton7: TRadioButton
      Left = 110
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'c'
      TabOrder = 2
      OnClick = RadioButton7Click
    end
    object RadioButton8: TRadioButton
      Left = 157
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'd'
      TabOrder = 3
      OnClick = RadioButton8Click
    end
    object RadioButton9: TRadioButton
      Left = 204
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'e'
      TabOrder = 4
      OnClick = RadioButton9Click
    end
    object RadioButton10: TRadioButton
      Left = 251
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'f'
      TabOrder = 5
      OnClick = RadioButton10Click
    end
    object RadioButton11: TRadioButton
      Left = 298
      Top = 28
      Width = 33
      Height = 17
      Cursor = crHandPoint
      Caption = 'g'
      TabOrder = 6
      OnClick = RadioButton11Click
    end
    object RadioButton12: TRadioButton