unit1.dfm

Delphi7高级应用开发配书源代码

object Form1: TForm1
  Left = 99
  Top = 119
  Width = 798
  Height = 471
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 504
    Top = 184
    Width = 137
    Height = 24
    Caption = #20018#21475#29366#24577#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 504
    Top = 280
    Width = 281
    Height = 20
    AutoSize = False
    Caption = 'Label7'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Button1: TButton
    Left = 344
    Top = 136
    Width = 81
    Height = 33
    Caption = #21457#36865
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 224
    Top = 24
    Width = 97
    Height = 33
    Caption = #25171#24320#20018#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 224
    Top = 88
    Width = 97
    Height = 33
    Caption = #20851#38381#20018#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 344
    Top = 24
    Width = 185
    Height = 97
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Lines.Strings = (
      'Memo1')
    TabOrder = 3
  end
  object Memo2: TMemo
    Left = 600
    Top = 24
    Width = 185
    Height = 97
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Lines.Strings = (
      'Memo2')
    TabOrder = 4
  end
  object RadioGroup1: TRadioGroup
    Left = 16
    Top = 16
    Width = 169
    Height = 105
    Caption = #20018#21475#36873#25321
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemIndex = 0
    Items.Strings = (
      #20018#21475'1'
      #20018#21475'2')
    ParentFont = False
    TabOrder = 5
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 184
    Width = 217
    Height = 257
    Caption = #36890#20449#21442#25968#35774#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 65
      Height = 20
      Caption = #27874#29305#29575#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 112
      Width = 81
      Height = 20
      Caption = #22855#20598#26657#39564#65306
    end
    object Label2: TLabel
      Left = 16
      Top = 160
      Width = 65
      Height = 20
      Caption = #26657#39564#20301#65306
    end
    object CB_BaudRate: TComboBox
      Left = 96
      Top = 48
      Width = 89
      Height = 28
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 20
      TabOrder = 0
      Text = '9600'
      Items.Strings = (
        '9600'
        '4800'
        '2400'
        '1200')
    end
    object CB_ParityCheck: TComboBox
      Left = 112
      Top = 104
      Width = 73
      Height = 28
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 20
      ItemIndex = 0
      TabOrder = 1
      Text = #21542
      Items.Strings = (
        #21542
        #26159)
    end
    object BitBtn1: TBitBtn
      Left = 40
      Top = 208
      Width = 121
      Height = 33
      Caption = '  '#30830#23450
      TabOrder = 2
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        5990555555555555577755555555555555555555555555555555}
      NumGlyphs = 2
    end
    object CB_ParityValue: TComboBox
      Left = 112
      Top = 152
      Width = 73
      Height = 28
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 20
      ItemIndex = 0
      TabOrder = 3
      Text = '1'
      Items.Strings = (
        '1'
        '0')
    end
  end
  object GroupBox2: TGroupBox
    Left = 256
    Top = 184
    Width = 233
    Height = 257
    Caption = #29366#24577#36755#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    object Label4: TLabel
      Left = 24
      Top = 40
      Width = 38
      Height = 24
      Caption = 'DTR'
    end
    object Shape1: TShape
      Left = 24
      Top = 80
      Width = 49
      Height = 49
      Shape = stCircle
    end
    object Label5: TLabel
      Left = 24
      Top = 144
      Width = 37
      Height = 24
      Caption = 'RTS'
    end
    object Shape2: TShape
      Left = 24
      Top = 176
      Width = 49
      Height = 49
      Shape = stCircle
    end
    object Button4: TButton
      Left = 104
      Top = 88
      Width = 105
      Height = 33
      Caption = #29366#24577#20999#25442
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 104
      Top = 184
      Width = 105
      Height = 33
      Caption = #29366#24577#20999#25442
      TabOrder = 1
      OnClick = Button5Click
    end
  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
    OnReceiveData = Comm1ReceiveData
    Left = 552
    Top = 128
  end
end