main.dfm

BCB 串口通信

object frmmain: Tfrmmain
  Left = 232
  Top = 149
  Width = 673
  Height = 509
  Caption = 'BCBCOMM'
  Color = clGray
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 665
    Height = 38
    Align = alTop
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    DesignSize = (
      665
      38)
    object sbtnhelp: TSpeedButton
      Left = 139
      Top = 5
      Width = 31
      Height = 31
      Hint = #20851#20110'|'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
    end
    object sbtnclose: TSpeedButton
      Left = 108
      Top = 5
      Width = 31
      Height = 31
      Hint = #36864#20986#31243#24207'|'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = mf_exitClick
    end
    object sbtnSetP: TSpeedButton
      Left = 36
      Top = 5
      Width = 30
      Height = 31
      Hint = #20851#38381#35774#32622#26495'|'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = sbtnSetPClick
    end
    object sbtnStick: TSpeedButton
      Left = 791
      Top = 5
      Width = 26
      Height = 26
      Anchors = [akTop, akRight]
      Flat = True
      Layout = blGlyphRight
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = sbtnStickClick
    end
    object sbtnShowD: TSpeedButton
      Left = 66
      Top = 5
      Width = 31
      Height = 31
      Hint = #26174#31034#26354#32447'|'
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = sbtnShowDClick
    end
    object sbtnPort: TSpeedButton
      Left = 5
      Top = 5
      Width = 31
      Height = 31
      Hint = #25171#24320#20018#21475'|'
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = sbtnPortClick
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 665
      Height = 2
      Align = alTop
      ParentShowHint = False
      Shape = bsTopLine
      ShowHint = False
      Style = bsRaised
    end
  end
  object mainStBar: TStatusBar
    Left = 0
    Top = 431
    Width = 665
    Height = 22
    Panels = <
      item
        Width = 200
      end
      item
        Width = 250
      end
      item
        Width = 100
      end>
    SimplePanel = False
    SizeGrip = False
  end
  object Panel2: TPanel
    Left = 0
    Top = 38
    Width = 186
    Height = 393
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 2
    object Bevel2: TBevel
      Left = 0
      Top = 226
      Width = 186
      Height = 3
      Shape = bsBottomLine
    end
    object cbDisHex: TCheckBox
      Left = 20
      Top = 197
      Width = 119
      Height = 21
      Caption = #21313#20845#36827#21046#26174#31034
      TabOrder = 0
    end
    object cbsendHex: TCheckBox
      Left = 20
      Top = 236
      Width = 119
      Height = 21
      Caption = #21313#20845#36827#21046#21457#36865
      TabOrder = 1
    end
    object GroupBox1: TGroupBox
      Left = 6
      Top = 4
      Width = 172
      Height = 171
      Caption = #35774#32622
      TabOrder = 2
      object Label1: TLabel
        Left = 12
        Top = 22
        Width = 33
        Height = 16
        Caption = #31471'   '#21475
      end
      object Label2: TLabel
        Left = 9
        Top = 52
        Width = 36
        Height = 16
        Caption = #27874#29305#29575
      end
      object Label3: TLabel
        Left = 9
        Top = 80
        Width = 36
        Height = 16
        Caption = #26657#39564#20301
      end
      object Label4: TLabel
        Left = 9
        Top = 110
        Width = 36
        Height = 16
        Caption = #25968#25454#20301
      end
      object Label5: TLabel
        Left = 9
        Top = 139
        Width = 36
        Height = 16
        Caption = #20572#27490#20301
      end
      object CmbPort: TComboBox
        Left = 63
        Top = 17
        Width = 98
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 0
        OnChange = CmbPortChange
      end
      object CmbBRate: TComboBox
        Left = 63
        Top = 47
        Width = 98
        Height = 24
        AutoComplete = False
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 1
        OnChange = CmbBRateChange
        OnKeyPress = CmbBRateKeyPress
        Items.Strings = (
          'Custom'
          '300'
          '600'
          '1200'
          '2400'
          '4800'
          '9600'
          '19200'
          '38400'
          '43000'
          '56000'
          '57600'
          '115200')
      end
      object CmbPBit: TComboBox
        Left = 63
        Top = 75
        Width = 98
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 2
        OnChange = CmbPBitChange
        Items.Strings = (
          'None'
          'Odd'
          'Even'
          'Mark'
          'Space')
      end
      object CmbDBit: TComboBox
        Left = 63
        Top = 105
        Width = 98
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 3
        OnChange = CmbDBitChange
        Items.Strings = (
          '5'
          '6'
          '7'
          '8')
      end
      object CmbSBit: TComboBox
        Left = 63
        Top = 134
        Width = 98
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 4
        OnChange = CmbSBitChange
        Items.Strings = (
          '1'
          '1.5'
          '2')
      end
    end
    object Memo2: TMemo
      Left = 1
      Top = 280
      Width = 184
      Height = 112
      Align = alBottom
      Lines.Strings = (
        'Memo2')
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 186
    Top = 38
    Width = 479
    Height = 393
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel3'
    TabOrder = 3
    object Chart1: TChart
      Left = 0
      Top = 0
      Width = 479
      Height = 393
      Title.Text.Strings = (
        'TChart')
      Align = alClient
      TabOrder = 0
    end
    object Memo1: TMemo
      Left = 0
      Top = 0
      Width = 479
      Height = 393
      Align = alClient
      Lines.Strings = (
        'Memo1')
      TabOrder = 1
    end
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 188
    Top = 112
    object mnuexec: TMenuItem
      Caption = #20018#21475#25511#21046'(&C)'
      GroupIndex = 2
      Hint = #20018#21475#25511#21046
      object mc_OpenComm: TMenuItem
        Caption = #25171#24320#20018#21475'(&S)'
        Hint = #25171#24320'/'#20851#38381#20018#21475
        OnClick = sbtnPortClick
      end
      object mc_Test: TMenuItem
        Caption = #27979#35797'(&T)'
        OnClick = mc_TestClick
      end
      object mc_priority: TMenuItem
        Caption = #20248#20808#32423'(&P)'
        Enabled = False
        object mp_Higer: TMenuItem
          Tag = 4
          Caption = 'Higher'
          RadioItem = True
        end
        object mp_Normal: TMenuItem
          Tag = 3
          Caption = 'Normal'
          RadioItem = True
        end
        object mp_Lower: TMenuItem
          Tag = 2
          Caption = 'Lower'
          RadioItem = True
        end
        object mp_Lowest: TMenuItem
          Tag = 1
          Caption = 'Lowest'#9
          RadioItem = True
          Visible = False
        end
        object mp_Idle: TMenuItem
          Caption = 'Idle'
          Checked = True
          RadioItem = True
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mf_exit: TMenuItem
        Caption = #36864#20986'[&X]'
        GroupIndex = 1
        Hint = #36864#20986#31243#24207
        OnClick = mf_exitClick
      end
    end
    object mnuData: TMenuItem
      Caption = #20854#23427'(&O)'
      GroupIndex = 2
      object mo_SetP: TMenuItem
        Caption = #38544#34255#35774#32622'(&P)'
        Hint = #26174#31034'/'#38544#34255#35774#32622#38754#26495
        OnClick = sbtnSetPClick
      end
      object mo_ShowD: TMenuItem
        Caption = #26174#31034#26354#32447'(&D)'
        Hint = #26174#31034#26354#32447'/'#25991#26412
        OnClick = sbtnShowDClick
      end
    end
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 96
    Top = 240
  end
end