home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 May / Chip_2002-05_cd1.bin / chplus / cpp / 5 / chat.exe / main.dfm / main.txt
Text File  |  2000-02-28  |  3KB  |  136 lines

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