commmain.~dfm

这是一个PC机串口通信控制软件 开发环境：基于window xp的delphi 7.0平台 开发语言：pascal语言

object MainForm: TMainForm
  Left = 196
  Top = 105
  Width = 677
  Height = 490
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 333
    Width = 669
    Height = 111
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 257
      Height = 111
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Label6: TLabel
        Left = 8
        Top = 54
        Width = 72
        Height = 12
        Caption = #33258#21160#21457#36865#21608#26399
      end
      object Label7: TLabel
        Left = 136
        Top = 54
        Width = 24
        Height = 12
        Caption = #27627#31186
      end
      object Btn_Send: TButton
        Left = 176
        Top = 8
        Width = 65
        Height = 25
        Caption = #25163#21160#21457#36865
        TabOrder = 0
        OnClick = Btn_SendClick
      end
      object CB_hexSend: TCheckBox
        Left = 8
        Top = 6
        Width = 95
        Height = 17
        Caption = #21313#20845#36827#21046#21457#36865
        TabOrder = 1
      end
      object Btn_ClearMome: TButton
        Left = 176
        Top = 72
        Width = 65
        Height = 25
        Caption = #28165#31354#21457#36865
        TabOrder = 2
        OnClick = Btn_ClearMomeClick
      end
      object CB_AutoSend: TCheckBox
        Left = 8
        Top = 30
        Width = 169
        Height = 17
        Caption = #33258#21160#21457#36865'('#21608#26399#20462#25913#21518#37325#36873')'
        TabOrder = 3
        OnClick = CB_AutoSendClick
      end
      object Edt_Interval: TEdit
        Left = 88
        Top = 48
        Width = 41
        Height = 20
        TabOrder = 4
        Text = '1000'
        OnKeyPress = Edt_IntervalKeyPress
      end
      object Btn_OpenFile: TButton
        Left = 176
        Top = 40
        Width = 65
        Height = 25
        Caption = #25171#24320#25991#20214
        TabOrder = 5
        OnClick = Btn_OpenFileClick
      end
      object Btn_About: TButton
        Left = 8
        Top = 72
        Width = 65
        Height = 25
        Caption = #31995#32479#20449#24687
        TabOrder = 6
        OnClick = Btn_AboutClick
      end
      object Btn_CountReset: TButton
        Left = 92
        Top = 72
        Width = 65
        Height = 25
        Caption = #35745#25968#22797#20301
        TabOrder = 7
        OnClick = Btn_CountResetClick
      end
    end
    object Panel5: TPanel
      Left = 257
      Top = 0
      Width = 412
      Height = 111
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object SendMemo: TRichEdit
        Left = 0
        Top = 0
        Width = 412
        Height = 88
        Align = alClient
        Lines.Strings = (
          'http://www.56kc.com')
        ScrollBars = ssVertical
        TabOrder = 0
        OnKeyPress = SendMemoKeyPress
      end
      object Panel6: TPanel
        Left = 0
        Top = 88
        Width = 412
        Height = 23
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object CB_EnterSend: TCheckBox
          Left = 6
          Top = 5
          Width = 99
          Height = 17
          Caption = #22238#36710#21457#36865#25968#25454
          TabOrder = 0
        end
        object CB_AddCenter: TCheckBox
          Left = 112
          Top = 5
          Width = 97
          Height = 17
          Caption = #21457#36865#21518#32512#22238#36710
          TabOrder = 1
        end
        object CB_ShowSend: TCheckBox
          Left = 217
          Top = 5
          Width = 144
          Height = 17
          Caption = #21457#36865#25968#25454#21518#28165#31354#21457#36865#21306
          TabOrder = 2
        end
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 113
    Height = 333
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Btn_ClearView: TButton
      Left = 8
      Top = 176
      Width = 89
      Height = 25
      Caption = #28165#31354#26174#31034
      TabOrder = 0
      OnClick = Btn_ClearViewClick
    end
    object Btn_SaveView: TButton
      Left = 8
      Top = 211
      Width = 89
      Height = 25
      Caption = #20445#23384#26174#31034#25968#25454
      TabOrder = 1
      OnClick = Btn_SaveViewClick
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 113
      Height = 169
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 112
        Width = 36
        Height = 12
        Caption = #20572#27490#20301
      end
      object Label5: TLabel
        Left = 8
        Top = 88
        Width = 36
        Height = 12
        Caption = #25968#25454#20301
      end
      object Label4: TLabel
        Left = 8
        Top = 64
        Width = 36
        Height = 12
        Caption = #26657#39564#20301
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 36
        Height = 12
        Caption = #27874#29305#29575
      end
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 36
        Height = 12
        Caption = #20018'  '#21475
      end
      object Shape_ComState: TShape
        Left = 12
        Top = 139
        Width = 19
        Height = 19
        Brush.Color = clRed
        Shape = stEllipse
      end
      object CB_StopBits: TComboBox
        Left = 48
        Top = 106
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        Text = '1'
        OnSelect = CB_ComNumSelect
        Items.Strings = (
          '1'
          '2')
      end
      object CB_DataBits: TComboBox
        Left = 48
        Top = 82
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 1
        Text = '8'
        OnSelect = CB_ComNumSelect
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
      end
      object CB_Parity: TComboBox
        Left = 48
        Top = 58
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        Text = 'pNone'
        OnSelect = CB_ComNumSelect
        Items.Strings = (
          'pEven'
          'pMark'
          'pNone'
          'pOdd'
          'pSpace')
      end
      object CB_Baud: TComboBox
        Left = 48
        Top = 34
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 3
        Text = '9600'
        OnSelect = CB_ComNumSelect
        Items.Strings = (
          '150'
          '300'
          '600'
          '1200'
          '2400'
          '4800'
          '9600'
          '19200'
          '38400'
          '57600'
          '115200')
      end
      object CB_ComNum: TComboBox
        Left = 48
        Top = 10
        Width = 57
        Height = 20
        ItemHeight = 12
        TabOrder = 4
        Text = 'Com1'
        OnSelect = CB_ComNumSelect
        Items.Strings = (
          'Com1'
          'Com2'
          'Com3'
          'Com4')
      end
      object Btn_Reset: TButton
        Left = 40
        Top = 136
        Width = 65
        Height = 25
        Caption = #37325#32622#20018#21475
        TabOrder = 5
        OnClick = Btn_ResetClick
      end
    end
    object CB_Clear: TCheckBox
      Left = 8
      Top = 296
      Width = 97
      Height = 17
      Caption = #33258#21160#28165#31354#25509#25910
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object CB_Show: TCheckBox
      Left = 8
      Top = 320
      Width = 81
      Height = 17
      Caption = #36880#34892#26174#31034
      TabOrder = 4
    end
    object CB_HexGet: TCheckBox
      Left = 8
      Top = 248
      Width = 97
      Height = 17
      Caption = #21313#20845#36827#21046#25509#25910
      TabOrder = 5
    end
    object CB_StopShow: TCheckBox
      Left = 8
      Top = 272
      Width = 97
      Height = 17
      Caption = #20572#27490#26174#31034
      TabOrder = 6
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 444
    Width = 669
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Text = #25509#25910#65306'0'
        Width = 120
      end
      item
        Text = #21457#36865#65306'0'
        Width = 120
      end
      item
        Width = 50
      end>
    ParentFont = True
    UseSystemFont = False
  end
  object Memo_Show: TRichEdit
    Left = 113
    Top = 0
    Width = 556
    Height = 333
    Align = alClient
    PopupMenu = PopupMenu1
    ScrollBars = ssVertical
    TabOrder = 3
    OnKeyDown = Memo_ShowKeyDown
  end
  object ComPort1: TApdComPort
    Baud = 9600
    InSize = 40960
    TraceName = 'APRO.TRC'
    LogName = 'APRO.LOG'
    OnTrigger = ComPort1Trigger
    Left = 128
    Top = 8
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = '*.txt|*.txt|*.*|All File'
    Title = #20445#23384#20026
    Left = 128
    Top = 48
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'txt'
    Filter = '*.txt|*.txt|*.*|All File'
    Title = #25171#24320
    Left = 128
    Top = 80
  end
  object Timer_AutoSend: TTimer
    Enabled = False
    OnTimer = Timer_AutoSendTimer
    Left = 168
    Top = 8
  end
  object Timer_WatchState: TTimer
    Interval = 500
    OnTimer = Timer_WatchStateTimer
    Left = 168
    Top = 48
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialog1Find
    Left = 168
    Top = 80
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 120
    object N6: TMenuItem
      Caption = #25764#28040'(&z)'
      OnClick = N6Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #21098#20999'(&x)'
      OnClick = N2Click
    end
    object N1: TMenuItem
      Caption = #22797#21046'(&c)'
      OnClick = N1Click
    end
    object N3: TMenuItem
      Caption = #31896#36148'(&v)'
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #20840#36873'(&a)'
      OnClick = N4Click
    end
  end
end