home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Internet / Chat / main.dfm / main.txt
Encoding:
Text File  |  1999-08-11  |  3.4 KB  |  135 lines
  1. object ChatForm: TChatForm
  2.   Left = 209
  3.   Top = 110
  4.   Width = 427
  5.   Height = 370
  6.   Caption = 'Delphi Chat'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Menu = MainMenu1
  12.   OnCreate = FormCreate
  13.   PixelsPerInch = 120
  14.   TextHeight = 16
  15.   object Bevel1: TBevel
  16.     Left = 0
  17.     Top = 0
  18.     Width = 419
  19.     Height = 2
  20.     Align = alTop
  21.     Shape = bsTopLine
  22.   end
  23.   object StatusBar1: TStatusBar
  24.     Left = 0
  25.     Top = 293
  26.     Width = 419
  27.     Height = 21
  28.     Panels = <
  29.       item
  30.         Width = 50
  31.       end>
  32.     SimplePanel = False
  33.   end
  34.   object Panel1: TPanel
  35.     Left = 0
  36.     Top = 2
  37.     Width = 419
  38.     Height = 40
  39.     Align = alTop
  40.     BevelOuter = bvNone
  41.     TabOrder = 1
  42.     object SpeedButton1: TSpeedButton
  43.       Left = 7
  44.       Top = 2
  45.       Width = 34
  46.       Height = 35
  47.       Glyph.Data = {
  48.         96010000424D9601000000000000760000002800000018000000180000000100
  49.         0400000000002001000000000000000000001000000010000000000000000000
  50.         80000080000000808000800000008000800080800000C0C0C000808080000000
  51.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  52.         7777777777777777777777777777777777777777777777777777777777777777
  53.         7777777777777777777777777777777777777777777777777777777777777777
  54.         777777777777777777777777777777777770000770000777777777777702220F
  55.         F0222077777777777702220FF0222077777777777702220FF022207777777770
  56.         0002220FF0222000077777700002220FF0222000077777777702220FF0222077
  57.         777777777702220FF0222077777777777702220FF02220777777777777700007
  58.         7000077777777777777777777777777777777777777777777777777777777777
  59.         7777777777777777777777777777777777777777777777777777777777777777
  60.         7777777777777777777777777777777777777777777777777777}
  61.       OnClick = FileConnectItemClick
  62.     end
  63.   end
  64.   object Memo1: TMemo
  65.     Left = 0
  66.     Top = 42
  67.     Width = 419
  68.     Height = 168
  69.     Align = alTop
  70.     ScrollBars = ssVertical
  71.     TabOrder = 2
  72.     WordWrap = False
  73.     OnKeyDown = Memo1KeyDown
  74.   end
  75.   object Memo2: TMemo
  76.     Left = 0
  77.     Top = 210
  78.     Width = 419
  79.     Height = 83
  80.     Align = alClient
  81.     Color = clBtnFace
  82.     ReadOnly = True
  83.     ScrollBars = ssVertical
  84.     TabOrder = 3
  85.   end
  86.   object MainMenu1: TMainMenu
  87.     Left = 126
  88.     Top = 5
  89.     object File1: TMenuItem
  90.       Caption = '&File'
  91.       object FileListenItem: TMenuItem
  92.         Caption = '&Listen'
  93.         OnClick = FileListenItemClick
  94.       end
  95.       object FileConnectItem: TMenuItem
  96.         Caption = '&Connect...'
  97.         OnClick = FileConnectItemClick
  98.       end
  99.       object Disconnect1: TMenuItem
  100.         Caption = '&Disconnect'
  101.         OnClick = Disconnect1Click
  102.       end
  103.       object N1: TMenuItem
  104.         Caption = '-'
  105.       end
  106.       object Exit1: TMenuItem
  107.         Caption = 'E&xit'
  108.         OnClick = Exit1Click
  109.       end
  110.     end
  111.   end
  112.   object ServerSocket: TServerSocket
  113.     Active = False
  114.     Port = 1024
  115.     ServerType = stNonBlocking
  116.     OnAccept = ServerSocketAccept
  117.     OnClientConnect = ServerSocketClientConnect
  118.     OnClientDisconnect = ServerSocketClientDisconnect
  119.     OnClientRead = ServerSocketClientRead
  120.     Left = 91
  121.     Top = 6
  122.   end
  123.   object ClientSocket: TClientSocket
  124.     Active = False
  125.     ClientType = ctNonBlocking
  126.     Port = 1024
  127.     OnConnect = ClientSocketConnect
  128.     OnDisconnect = ClientSocketDisconnect
  129.     OnRead = ClientSocketRead
  130.     OnError = ClientSocketError
  131.     Left = 58
  132.     Top = 5
  133.   end
  134. end
  135.