co_main.dfm

很好用的串口通信工具软件。Comport目录下是用到的通信控件。

object Frm_Main: TFrm_Main
  Left = 199
  Top = 105
  Width = 593
  Height = 436
  Caption = 'CommHunter'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 37
    Width = 585
    Height = 54
    Align = alTop
    BevelOuter = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnResize = Panel1Resize
    object Panel5: TPanel
      Left = 544
      Top = 1
      Width = 40
      Height = 52
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      DesignSize = (
        40
        52)
      object btn_Send: TSpeedButton
        Left = 7
        Top = 15
        Width = 22
        Height = 22
        Hint = #21457#36865#25968#25454'[F4]'
        Anchors = [akTop, akRight]
        Flat = True
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000FF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FF008080FF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF008080
          008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF008080FF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          00808000FFFF008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00FFFF008080FF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FF00808000FFFF00FFFF008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF00
          8080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FF00808000FFFF00FFFF00FFFF008080008080FF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00FFFF00FFFF00
          8080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FF00808000FFFF00FFFF00FFFF008080FF00FFFF00FFFF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00FFFF00
          FFFF00FFFF008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF00FFFF008080FF00FFFF00
          FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF00FFFF00
          FFFF00FFFF00FFFF00FFFF008080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFF00FFFF00FF00808000FFFF00FFFF00FFFF00FFFF00FFFF0080
          80FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
        ParentShowHint = False
        ShowHint = True
        OnClick = Btn_SendClick
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 543
      Height = 52
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Label3: TLabel
        Left = 8
        Top = 21
        Width = 48
        Height = 12
        Caption = #21457#36865#21306#65306
      end
      object CB_CMD: TComboBox
        Left = 64
        Top = 17
        Width = 473
        Height = 20
        Hint = #24453#21457#25968#25454
        ItemHeight = 12
        TabOrder = 0
        OnKeyPress = CB_CMDKeyPress
      end
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 585
    Height = 37
    AutoSize = True
    ButtonHeight = 35
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Flat = True
    Images = TitleImageList
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    object btn_Open: TToolButton
      Left = 0
      Top = 0
      Hint = #25171#24320#31471#21475'[F2]'
      Caption = ' '#25171#24320
      ImageIndex = 12
      OnClick = Btn_OpenClick
    end
    object btn_Close: TToolButton
      Left = 55
      Top = 0
      Hint = #20851#38381#31471#21475'[F3]'
      Caption = #20851#38381
      ImageIndex = 1
      OnClick = Btn_CloseClick
    end
    object btn_Clear: TToolButton
      Left = 110
      Top = 0
      Hint = #28165#38500#26174#31034'[F5]'
      Caption = #28165#26174#31034
      ImageIndex = 0
      OnClick = Btn_ClearClick
    end
    object btn_ClearCmd: TToolButton
      Left = 165
      Top = 0
      Hint = #28165#38500#21457#36865#21306#32531#20914#30340#20840#37096#21629#20196
      Caption = #28165#21629#20196
      ImageIndex = 8
      OnClick = btn_ClearCmdClick
    end
    object ToolButton3: TToolButton
      Left = 220
      Top = 0
      Width = 14
      Caption = 'ToolButton3'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btn_Trigger: TToolButton
      Left = 234
      Top = 0
      Hint = #32534#36753#35302#21457#22120'[F7]'
      Caption = #35302#21457#22120
      ImageIndex = 2
      OnClick = btn_TriggerClick
    end
    object tbByteSend: TToolButton
      Left = 289
      Top = 0
      Caption = #23383#31526#24490#29615
      ImageIndex = 1
      OnClick = tbByteSendClick
    end
    object tbAutoSend: TToolButton
      Left = 344
      Top = 0
      Caption = #24490#29615#21457#36865
      Enabled = False
      ImageIndex = 13
      Style = tbsCheck
      OnClick = tbAutoSendClick
    end
    object ToolButton1: TToolButton
      Left = 399
      Top = 0
      Width = 13
      Caption = 'ToolButton1'
      Enabled = False
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btn_Exit: TToolButton
      Left = 412
      Top = 0
      Hint = #36864#20986'[ALT+X]'
      Caption = #36864#20986
      ImageIndex = 7
      OnClick = Btn_ExitClick
    end
  end
  object sb: TStatusBar
    Left = 0
    Top = 383
    Width = 585
    Height = 19
    AutoHint = True
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 91
    Width = 585
    Height = 292
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 129
      Height = 292
      Align = alLeft
      BevelInner = bvLowered
      BevelOuter = bvNone