ucomm.~dfm

Delphi源程序

object FComm: TFComm
  Left = 251
  Top = 171
  Width = 500
  Height = 350
  Caption = #20018#21475#36890#20449#27979#35797
  Color = clBtnFace
  Constraints.MaxHeight = 350
  Constraints.MaxWidth = 500
  Constraints.MinHeight = 350
  Constraints.MinWidth = 500
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 0
    Top = 8
    Width = 32
    Height = 14
    Caption = 'Label1'
    FocusControl = Memo1
  end
  object Label2: TLabel
    Left = 448
    Top = 12
    Width = 40
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = #20018#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 448
    Top = 44
    Width = 40
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = #27874#29305#29575
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 448
    Top = 76
    Width = 40
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = #26657#39564#20301
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 448
    Top = 108
    Width = 40
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = #25968#25454#20301
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 448
    Top = 140
    Width = 40
    Height = 17
    Alignment = taCenter
    AutoSize = False
    Caption = #20572#27490#20301
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 15
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 377
    Height = 281
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Button1: TButton
    Left = 392
    Top = 176
    Width = 75
    Height = 25
    Caption = #21457#36865'(&S)'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 392
    Top = 216
    Width = 75
    Height = 25
    Caption = #25509#25910'(&R)'
    TabOrder = 2
    OnClick = Button2Click
  end
  object ComboBox1: TComboBox
    Left = 384
    Top = 8
    Width = 60
    Height = 22
    ItemHeight = 14
    TabOrder = 3
    Text = 'COM1'
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4')
  end
  object ComboBox2: TComboBox
    Left = 384
    Top = 40
    Width = 60
    Height = 22
    ItemHeight = 14
    TabOrder = 4
    Text = '9600'
    Items.Strings = (
      '300'
      '600'
      '1200'
      '2400'
      '4800'
      '9600'
      '19200'
      '38400'
      '43000'
      '56000'
      '57600'
      '115200')
  end
  object ComboBox3: TComboBox
    Left = 384
    Top = 72
    Width = 60
    Height = 22
    ItemHeight = 14
    TabOrder = 5
    Text = 'NONE'
    Items.Strings = (
      'NONE'
      'ODD'
      'EVEN')
  end
  object ComboBox4: TComboBox
    Left = 384
    Top = 104
    Width = 60
    Height = 22
    ItemHeight = 14
    TabOrder = 6
    Text = '8'
    Items.Strings = (
      '8'
      '7'
      '6')
  end
  object ComboBox5: TComboBox
    Left = 384
    Top = 136
    Width = 60
    Height = 22
    ItemHeight = 14
    TabOrder = 7
    Text = '1'
    Items.Strings = (
      '1'
      '2')
  end
  object Comm1: TComm
    CommName = 'COM1'
    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
    Left = 424
    Top = 256
  end
  object MainMenu1: TMainMenu
    Left = 392
    Top = 256
    object N1: TMenuItem
      Caption = #25991#20214
      object N2: TMenuItem
        Caption = #25171#21360
      end
    end
    object N3: TMenuItem
      Caption = #35774#32622
    end
    object N4: TMenuItem
      Caption = #24110#21161
    end
  end
end