comfr.dfm

来自「boomerang library 5.11 internet ed」· DFM 代码 · 共 102 行

object Form1: TForm1
  Left = 176
  Top = 115
  Width = 544
  Height = 349
  Caption = 'COM demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 150
    Width = 536
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 536
    Height = 13
    Align = alTop
    Caption = 'TX'
  end
  object Label2: TLabel
    Left = 0
    Top = 153
    Width = 536
    Height = 13
    Align = alTop
    Caption = 'RX'
  end
  object Terminal1: TTerminal
    Left = 0
    Top = 13
    Width = 536
    Height = 137
    MaxLines = 100
    Align = alTop
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyPress = Terminal1KeyPress
  end
  object Terminal2: TTerminal
    Left = 0
    Top = 166
    Width = 536
    Height = 137
    MaxLines = 100
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 303
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 20
      end
      item
        Width = 20
      end
      item
        Width = 20
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Comm1: TComm
    Active = False
    AfterOpen = Comm1AfterOpen
    AfterClose = Comm1AfterClose
    Baudrate = br19200
    Options = []
    DontSynchronize = False
    MonitorEvents = [evBreak, evCts, evDsr, evError, evRing, evRlsd, evRxChar, evRxFlag, evTxEmpty]
    OnRxChar = Comm1RxChar
    DeviceName = 'Com2'
    Left = 224
    Top = 64
  end
end