commset.~dfm

实现RS232数据采集处理,设置RS23传输参数,显示控制终端的数据.

object FormComm: TFormComm
  Left = 328
  Top = 226
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = '串口设置'
  ClientHeight = 263
  ClientWidth = 334
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 64
    Top = 200
    Width = 75
    Height = 25
    Caption = '确定'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 184
    Top = 200
    Width = 75
    Height = 25
    Caption = '取消'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object StaticText1: TStaticText
    Left = 40
    Top = 62
    Width = 100
    Height = 24
    Caption = '波特率选择：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object StaticText2: TStaticText
    Left = 40
    Top = 32
    Width = 84
    Height = 24
    Caption = '串口选择：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object StaticText3: TStaticText
    Left = 40
    Top = 92
    Width = 100
    Height = 24
    Caption = '数据位选择：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object StaticText4: TStaticText
    Left = 40
    Top = 122
    Width = 68
    Height = 24
    Caption = '停止位：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object StaticText5: TStaticText
    Left = 40
    Top = 152
    Width = 84
    Height = 24
    Caption = '奇偶校验：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object ComboBox1: TComboBox
    Left = 136
    Top = 32
    Width = 145
    Height = 21
    ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
    ItemHeight = 13
    TabOrder = 7
    Text = 'COM1'
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4'
      'COM5')
  end
  object ComboBox2: TComboBox
    Left = 136
    Top = 62
    Width = 145
    Height = 21
    ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
    ItemHeight = 13
    TabOrder = 8
    Text = '9600'
    Items.Strings = (
      '100'
      '300'
      '600'
      '1200'
      '2400'
      '4800'
      '9600'
      '14400'
      '19200'
      '38400'
      '56000'
      '57600'
      '115200')
  end
  object ComboBox3: TComboBox
    Left = 136
    Top = 92
    Width = 145
    Height = 21
    ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
    ItemHeight = 13
    TabOrder = 9
    Text = '8'
    Items.Strings = (
      '5'
      '6'
      '7'
      '8')
  end
  object ComboBox4: TComboBox
    Left = 136
    Top = 122
    Width = 145
    Height = 21
    ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
    ItemHeight = 13
    TabOrder = 10
    Text = '1'
    Items.Strings = (
      '1'
      '1.5'
      '2')
  end
  object ComboBox5: TComboBox
    Left = 136
    Top = 152
    Width = 145
    Height = 21
    ImeName = '点[开始程序]或Ctrl+Alt+W启动万能五笔'
    ItemHeight = 13
    TabOrder = 11
    Text = '无'
    Items.Strings = (
      '无'
      '奇校验'
      '偶校验'
      '标志'
      '空')
  end
  object Comm1: TComm
    Left = 296
    Top = 112
  end
end