unit1.dfm

一个比较好用的串口调试程序,适合自己的学习用.

object Form1: TForm1
  Left = 379
  Top = 161
  BorderStyle = bsSingle
  Caption = #20018#21475#35843#35797#21161#25163'V1.2'
  ClientHeight = 428
  ClientWidth = 687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 129
    Height = 324
    Align = alLeft
    Color = clSkyBlue
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 27
      Height = 13
      Caption = #20018#21475':'
    end
    object Label2: TLabel
      Left = 8
      Top = 40
      Width = 39
      Height = 13
      Caption = #27874#29305#29575':'
    end
    object Label3: TLabel
      Left = 8
      Top = 64
      Width = 39
      Height = 13
      Caption = #26657#39564#20301':'
    end
    object Label4: TLabel
      Left = 8
      Top = 88
      Width = 39
      Height = 13
      Caption = #25968#25454#20301':'
    end
    object Label5: TLabel
      Left = 8
      Top = 112
      Width = 39
      Height = 13
      Caption = #20572#27490#20301':'
    end
    object U_Status: TShape
      Left = 14
      Top = 140
      Width = 25
      Height = 17
      Brush.Color = clRed
      Pen.Color = clMaroon
      Shape = stCircle
    end
    object U_Port: TComboBox
      Left = 48
      Top = 8
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'COM1'
      OnChange = U_PortChange
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        'COM6'
        'COM7'
        'COM8'
        'COM9'
        'COM10'
        'COM11'
        'COM12'
        'COM13'
        'COM14'
        'COM15'
        'COM16')
    end
    object U_Bond: TComboBox
      Left = 48
      Top = 32
      Width = 73
      Height = 21
      ItemHeight = 13
      ItemIndex = 6
      TabOrder = 1
      Text = '9600'
      OnChange = U_BondChange
      Items.Strings = (
        '110'
        '300'
        '600'
        '1200'
        '2400'
        '4800'
        '9600'
        '14400'
        '19200'
        '38400'
        '56000'
        '57600'
        '115200')
    end
    object U_Check: TComboBox
      Left = 48
      Top = 56
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = 'NONE'
      OnChange = U_CheckChange
      Items.Strings = (
        'NONE'
        'ODD'
        'EVEN'
        'SPACE'
        'MARK')
    end
    object U_Data: TComboBox
      Left = 48
      Top = 80
      Width = 73
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = '8'
      OnChange = U_DataChange
      Items.Strings = (
        '5'
        '6'
        '7'
        '8')
    end
    object U_Stop: TComboBox
      Left = 48
      Top = 104
      Width = 73
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = '1'
      OnChange = U_StopChange
      Items.Strings = (
        '1'
        '2')
    end
    object U_OPEN: TButton
      Left = 48
      Top = 136
      Width = 73
      Height = 25
      Caption = #20851#38381#20018#21475
      TabOrder = 5
      OnClick = U_OPENClick
    end
    object Panel3: TPanel
      Left = 1
      Top = 163
      Width = 127
      Height = 160
      Align = alBottom
      Color = clSkyBlue
      TabOrder = 6
      object T_Clear: TButton
        Left = 8
        Top = 8
        Width = 65
        Height = 25
        Caption = #28165#31354#25509#25910#21306
        TabOrder = 0
        OnClick = T_ClearClick
      end
      object Panel4: TPanel
        Left = 80
        Top = 3
        Width = 49
        Height = 25
        BevelOuter = bvLowered
        Color = clTeal
        TabOrder = 1
        object Label6: TLabel
          Left = 8
          Top = 8
          Width = 39
          Height = 13
          Caption = #25509#25910#21306':'
        end
      end
      object T_Stop: TButton
        Left = 8
        Top = 36
        Width = 65
        Height = 25
        Caption = #20572#27490#26174#31034
        TabOrder = 2
        OnClick = T_StopClick
      end
      object T_AutoClear: TCheckBox
        Left = 12
        Top = 64
        Width = 73
        Height = 17
        Hint = #24403#25991#20214#38271#24230#36229#36807'62'#34892#26102#33258#21160#28165#31354
        Caption = #33258#21160#28165#31354
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object T_Save: TButton
        Left = 8
        Top = 132
        Width = 49
        Height = 25
        Caption = #20445#23384
        TabOrder = 4
        OnClick = T_SaveClick
      end
      object Panel5: TPanel
        Left = 0
        Top = 88
        Width = 129
        Height = 41
        Color = clSkyBlue
        TabOrder = 5
        object T_TypeSet: TCheckBox
          Left = 12
          Top = 3
          Width = 73
          Height = 17
          Hint = #36873#20013#23558#20197#35268#33539#30340#26684#24335#26174#31034','#21542#21017#23558#25353#22269#26631#30721#26174#31034
          Caption = #26684#24335#26174#31034
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnClick = T_TypeSetClick
        end
        object T_Type_Hex: TRadioButton
          Left = 11
          Top = 21
          Width = 44
          Height = 17
          Hint = #25509#25910#21306#20197#21313#20845#36827#21046#35268#33539#26684#24335#26174#31034','#22914#25910#21040'12,'#23558#26174#31034#20026'0B'
          Caption = 'Hex'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = T_Type_HexClick
        end
        object T_Type_Dec: TRadioButton
          Left = 75
          Top = 21
          Width = 113
          Height = 17
          Hint = #25509#25910#21306#20197#21313#36827#21046#35268#33539#26684#24335#26174#31034','#22914#25910#21040'12,'#23558#26174#31034#20026'012'
          Caption = 'Dec'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnClick = T_Type_DecClick
        end
      end
      object T_SaveAs: TButton
        Left = 67
        Top = 132
        Width = 54
        Height = 25
        Caption = #21478#23384#20026
        ParentShowHint = False
        ShowHint = False
        TabOrder = 6
        OnClick = T_SaveAsClick
      end
    end
  end
  object DISPLAY: TMemo
    Left = 129
    Top = 0
    Width = 558
    Height = 324
    Align = alClient
    Lines.Strings = (
      'DISPLAY')
    ScrollBars = ssVertical
    TabOrder = 1
    WantTabs = True
  end
  object Panel2: TPanel
    Left = 0
    Top = 324
    Width = 687
    Height = 104
    Align = alBottom
    Color = clSkyBlue
    TabOrder = 2
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 168
      Height = 75
      Align = alLeft
      Color = clSkyBlue
      TabOrder = 0
      object Label8: TLabel
        Left = 6
        Top = 57
        Width = 54
        Height = 13
        Caption = #21608#26399':         '
      end
      object Label9: TLabel
        Left = 84
        Top = 57
        Width = 33
        Height = 13
        Caption = #27627#31186'   '
      end
      object Panel8: TPanel
        Left = 120
        Top = 4
        Width = 49
        Height = 25
        BevelOuter = bvLowered
        Color = clTeal
        TabOrder = 0
        object Label7: TLabel
          Left = 2
          Top = 7
          Width = 39
          Height = 13
          Caption = #21457#36865#21306':'
        end
      end
      object S_Clear: TButton
        Left = 8
        Top = 5
        Width = 73
        Height = 25
        Caption = #28165#31354#21457#36865#21306
        TabOrder = 1
        OnClick = S_ClearClick
      end
      object Auto_Send: TCheckBox
        Left = 8
        Top = 33
        Width = 81
        Height = 17
        Caption = #33258#21160#21457#36865
        TabOrder = 2
        OnClick = Auto_SendClick
      end
      object Send_Button: TButton
        Left = 117
        Top = 31
        Width = 49
        Height = 41
        Caption = #21457#36865
        TabOrder = 3
        OnClick = Send_ButtonClick
      end
      object AutoSend_Time: TEdit
        Left = 35
        Top = 52
        Width = 46
        Height = 21
        TabOrder = 4
        Text = 'AutoSend_Time'
        OnChange = AutoSend_TimeChange
      end
    end
    object PANEL7: TPanel
      Left = 1
      Top = 76
      Width = 685
      Height = 27
      Align = alBottom
      Color = clSkyBlue
      TabOrder = 1
      object Label10: TLabel
        Left = 512
        Top = 8
        Width = 85
        Height = 13
        Caption = #26085#35759#21046#20316'V1.2     '
      end
      object Label11: TLabel
        Left = 454
        Top = 8
        Width = 51
        Height = 13
        Hint = #28857#20987#36827#20837#21319#32423#32593#22336
        Caption = #36719#20214#21319#32423' '
        Color = clYellow
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        OnClick = Label11Click
      end
      object Label12: TLabel
        Left = 407
        Top = 8
        Width = 39
        Height = 13
        Hint = #28857#20987#33719#21462#32852#31995#26041#24335
        Caption = #32852#31995#25105' '
        Color = clAqua
        ParentColor = False
        ParentShowHint = False
        ShowHint = True
        OnClick = Label12Click
      end
      object RXCount: TPanel
        Left = 36
        Top = 6
        Width = 77
        Height = 17
        BevelOuter = bvLowered
        Caption = 'RX:0'
        Color = clSkyBlue
        TabOrder = 0
      end
      object TXCount: TPanel
        Left = 114
        Top = 6
        Width = 79
        Height = 17
        BevelOuter = bvLowered
        Caption = 'TX:0'
        Color = clSkyBlue
        TabOrder = 1
      end
      object ClearTXRX: TButton
        Left = 198
        Top = 5
        Width = 72
        Height = 20
        Caption = #35745#25968#22120#28165#38646
        TabOrder = 2
        OnClick = ClearTXRXClick
      end
      object Send_Files: TButton
        Left = 342
        Top = 5
        Width = 60
        Height = 20
        Caption = #21457#36865#25991#20214
        TabOrder = 3
        OnClick = Send_FilesClick
      end
      object Close_Uart: TButton
        Left = 622
        Top = 5
        Width = 60
        Height = 20
        Caption = #20851#38381#31243#24207
        TabOrder = 4
        OnClick = Close_UartClick
      end
      object FrontShow: TPanel
        Left = 5
        Top = 7
        Width = 25
        Height = 17
        Hint = #36873#25321#26159#21542#24635#22312#26368#21069
        Caption = 'TOP'
        Color = 16777088
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clFuchsia
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = FrontShowClick
      end
      object Open_Filse: TButton
        Left = 276
        Top = 5
        Width = 60
        Height = 20
        Caption = #25171#24320#25991#20214
        TabOrder = 6
        OnClick = Open_FilseClick
      end
    end
    object Send_Box: TMemo
      Left = 169
      Top = 1
      Width = 517
      Height = 75
      Align = alClient
      Lines.Strings = (
        'Send_Box')
      ScrollBars = ssVertical
      TabOrder = 2
      OnChange = Send_BoxChange
    end
  end
  object MSComm1: TMSComm
    Left = 320
    Top = 112
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000010000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    FileName = 'RXData'
    Filter = 'Text File(*.txt)|*.txt'
    Left = 232
    Top = 112
  end
  object Timer1: TTimer
    Tag = 1
    Interval = 1
    OnTimer = Timer1Timer
    Left = 272
    Top = 112
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Text Files(*.txt)|*.txt'
    Left = 200
    Top = 112
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 352
    Top = 112
  end
end