setcomm.dfm

Delphi 7 串口通讯程序

object Fsetcom: TFsetcom
  Left = 299
  Top = 210
  BorderStyle = bsDialog
  Caption = #35774#32622#20018#21475
  ClientHeight = 273
  ClientWidth = 270
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 20
    Width = 48
    Height = 13
    Caption = #21487#29992#20018#21475
  end
  object Label2: TLabel
    Left = 24
    Top = 59
    Width = 48
    Height = 13
    Caption = #20256#36755#25968#29575
  end
  object Label3: TLabel
    Left = 24
    Top = 98
    Width = 36
    Height = 13
    Caption = #25968#25454#20301
  end
  object Label4: TLabel
    Left = 24
    Top = 137
    Width = 36
    Height = 13
    Caption = #20572#27490#20301
  end
  object Label5: TLabel
    Left = 24
    Top = 176
    Width = 48
    Height = 13
    Caption = #22855#20598#26657#39564
  end
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 249
    Height = 209
  end
  object Comsele: TComboBox
    Left = 104
    Top = 16
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    OnChange = ComseleChange
  end
  object comrate: TComboBox
    Left = 104
    Top = 55
    Width = 145
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 1
    Text = '9600'
    OnChange = comrateChange
    Items.Strings = (
      '110'
      '300'
      '1200'
      '2400'
      '4800'
      '9600'
      '19200'
      '38400'
      '57600'
      '115200'
      '230400'
      '460800'
      '921600')
  end
  object Combyte: TComboBox
    Left = 104
    Top = 94
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = '8 '#25968#25454#20301
    OnChange = CombyteChange
    Items.Strings = (
      '8 '#25968#25454#20301
      '7 '#25968#25454#20301
      '6 '#25968#25454#20301
      '5 '#25968#25454#20301)
  end
  object Comstop: TComboBox
    Left = 104
    Top = 133
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Text = '1 '#20301#20572#27490#20301
    OnChange = ComstopChange
    Items.Strings = (
      '1 '#20301#20572#27490#20301
      '1.5 '#20301#20572#27490#20301
      '2 '#20301#20572#27490#20301)
  end
  object Comparity: TComboBox
    Left = 104
    Top = 172
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = #26080#26657#39564
    OnChange = ComparityChange
    Items.Strings = (
      #26080#26657#39564
      #22855#26657#39564
      #20598#26657#39564
      #26631#35760
      #31354#26684)
  end
  object Bsetok: TBitBtn
    Left = 28
    Top = 233
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 5
    OnClick = BsetokClick
    Kind = bkAll
  end
  object BCancel: TBitBtn
    Left = 164
    Top = 233
    Width = 75
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 6
    OnClick = BCancelClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 192
    Top = 72
  end
end