unit1.dfm

来自「demonstrates how to use Delphi with Win」· DFM 代码 · 共 63 行

object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsToolWindow
  Caption = 'WinLIRC-Demo '#169'2002 Dominik Bruhn'
  ClientHeight = 308
  ClientWidth = 420
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 53
    Height = 13
    Caption = 'Last signal:'
  end
  object Label2: TLabel
    Left = 96
    Top = 8
    Width = 321
    Height = 13
  end
  object Label3: TLabel
    Left = 8
    Top = 24
    Width = 21
    Height = 13
    Caption = 'Log:'
  end
  object Memo1: TMemo
    Left = 96
    Top = 24
    Width = 321
    Height = 281
    ParentColor = True
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object cs: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Host = 'localhost'
    Port = 8765
    OnLookup = csLookup
    OnConnecting = csConnecting
    OnConnect = csConnect
    OnDisconnect = csDisconnect
    OnRead = csRead
    OnError = csError
    Left = 40
    Top = 112
  end
end