Delphi Anthology/aDELPHI.iso/Runimage/Delphi50/Demos/Internet/Chat/main.dfm/main.txt

Text File | 1999-08-11 | 3KB | 135 lines

object ChatForm: TChatForm
  Left = 209
  Top = 110
  Width = 427
  Height = 370
  Caption = 'Delphi Chat'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 419
    Height = 2
    Align = alTop
    Shape = bsTopLine
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 293
    Width = 419
    Height = 21
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 419
    Height = 40
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 7
      Top = 2
      Width = 34
      Height = 35
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        0400000000002001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        777777777777777777777777777777777770000770000777777777777702220F
        F0222077777777777702220FF0222077777777777702220FF022207777777770
        0002220FF0222000077777700002220FF0222000077777777702220FF0222077
        777777777702220FF0222077777777777702220FF02220777777777777700007
        7000077777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      OnClick = FileConnectItemClick
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 42
    Width = 419
    Height = 168
    Align = alTop
    ScrollBars = ssVertical
    TabOrder = 2
    WordWrap = False
    OnKeyDown = Memo1KeyDown
  end
  object Memo2: TMemo
    Left = 0
    Top = 210
    Width = 419
    Height = 83
    Align = alClient
    Color = clBtnFace
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 126
    Top = 5
    object File1: TMenuItem
      Caption = '&File'
      object FileListenItem: TMenuItem
        Caption = '&Listen'
        OnClick = FileListenItemClick
      end
      object FileConnectItem: TMenuItem
        Caption = '&Connect...'
        OnClick = FileConnectItemClick
      end
      object Disconnect1: TMenuItem
        Caption = '&Disconnect'
        OnClick = Disconnect1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 1024
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 91
    Top = 6
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 58
    Top = 5
  end
end