home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d3456 / ICQ.ZIP / ICQ / Example / Main.dfm < prev    next >
Text File  |  2002-08-16  |  4KB  |  171 lines
  1. object MainForm: TMainForm
  2.   Left = 434
  3.   Top = 135
  4.   Width = 152
  5.   Height = 548
  6.   BorderIcons = [biSystemMenu]
  7.   Caption = 'ICQTest'
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Menu = MainMenu1
  15.   OldCreateOrder = False
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   OnShow = FormShow
  19.   PixelsPerInch = 96
  20.   TextHeight = 13
  21.   object ListView1: TListView
  22.     Left = 0
  23.     Top = 0
  24.     Width = 144
  25.     Height = 475
  26.     Align = alClient
  27.     Columns = <
  28.       item
  29.         Width = -1
  30.         WidthType = (
  31.           -1)
  32.       end>
  33.     ReadOnly = True
  34.     RowSelect = True
  35.     PopupMenu = PopupMenu1
  36.     ShowColumnHeaders = False
  37.     SmallImages = IconList
  38.     TabOrder = 0
  39.     ViewStyle = vsReport
  40.     OnDblClick = ListView1DblClick
  41.   end
  42.   object StatusBar1: TStatusBar
  43.     Left = 0
  44.     Top = 475
  45.     Width = 144
  46.     Height = 19
  47.     Panels = <
  48.       item
  49.         Width = 50
  50.       end>
  51.     SimplePanel = False
  52.   end
  53.   object IconList: TImageList
  54.     Left = 8
  55.     Top = 8
  56.   end
  57.   object MainMenu1: TMainMenu
  58.     Images = IconList
  59.     Left = 40
  60.     Top = 8
  61.     object Main1: TMenuItem
  62.       Caption = '&Main'
  63.       object Search2: TMenuItem
  64.         Caption = 'S&earch'
  65.         OnClick = Search1Click
  66.       end
  67.       object PacketDumps1: TMenuItem
  68.         Caption = 'P&acket dumps'
  69.         OnClick = PacketDumps1Click
  70.       end
  71.       object LoadContactList1: TMenuItem
  72.         Caption = '&Load contact list from server'
  73.         OnClick = LoadContactList1Click
  74.       end
  75.       object Exit1: TMenuItem
  76.         Caption = 'E&xit'
  77.         OnClick = Exit1Click
  78.       end
  79.     end
  80.     object Status1: TMenuItem
  81.       Caption = '&Status'
  82.       object Online1: TMenuItem
  83.         Caption = '&Online'
  84.         ImageIndex = 0
  85.         OnClick = Online1Click
  86.       end
  87.       object Away1: TMenuItem
  88.         Caption = 'Aw&ay'
  89.         ImageIndex = 1
  90.         OnClick = Away1Click
  91.       end
  92.       object DND1: TMenuItem
  93.         Caption = '&DND'
  94.         ImageIndex = 2
  95.         OnClick = DND1Click
  96.       end
  97.       object NA1: TMenuItem
  98.         Caption = '&N/A'
  99.         ImageIndex = 3
  100.         OnClick = NA1Click
  101.       end
  102.       object Invisible1: TMenuItem
  103.         Caption = '&Invisible'
  104.         ImageIndex = 4
  105.         OnClick = Invisible1Click
  106.       end
  107.       object Offline1: TMenuItem
  108.         Caption = '&Offline'
  109.         ImageIndex = 5
  110.         OnClick = Offline1Click
  111.       end
  112.     end
  113.   end
  114.   object ICQClient1: TICQClient
  115.     ProxyHost = 'localhost'
  116.     ProxyPort = 1080
  117.     UIN = 0
  118.     ICQServer = 'login.icq.com'
  119.     ICQPort = 5190
  120.     ConvertToPlaintext = False
  121.     ContactList.Strings = (
  122.       '4024781')
  123.     AutoAwayMessage = 'Hey, it'#39's my auto away message :)'
  124.     OnLogin = ICQClient1Login
  125.     OnMessageRecv = ICQClient1MessageRecv
  126.     OnURLRecv = ICQClient1URLRecv
  127.     OnOfflineMsgRecv = ICQClient1OfflineMsgRecv
  128.     OnOfflineURLRecv = ICQClient1OfflineURLRecv
  129.     OnPktParse = ICQClient1PktParse
  130.     OnPktDirectParse = ICQClient1PktDirectParse
  131.     OnConnectionFailed = ICQClient1ConnectionFailed
  132.     OnStatusChange = ICQClient1StatusChange
  133.     OnUserOffline = ICQClient1UserOffline
  134.     OnUserGeneralInfo = ICQClient1UserGeneralInfo
  135.     OnUserWorkInfo = ICQClient1UserWorkInfo
  136.     OnUserInfoMore = ICQClient1UserInfoMore
  137.     OnUserInfoAbout = ICQClient1UserInfoAbout
  138.     OnUserInfoInterests = ICQClient1UserInfoInterests
  139.     OnUserInfoBackground = ICQClient1UserInfoBackground
  140.     OnUserFound = ICQClient1UserFound
  141.     OnUserNotFound = ICQClient1UserNotFound
  142.     OnServerListRecv = ICQClient1ServerListRecv
  143.     OnAutoMsgResponse = ICQClient1AutoMsgResponse
  144.     OnError = ICQClient1Error
  145.     ConnectionTimeout = 0
  146.     Left = 72
  147.     Top = 8
  148.   end
  149.   object PopupMenu1: TPopupMenu
  150.     OnPopup = PopupMenu1Popup
  151.     Left = 8
  152.     Top = 40
  153.     object UserInfo1: TMenuItem
  154.       Caption = 'User &info'
  155.       OnClick = UserInfo1Click
  156.     end
  157.     object Search1: TMenuItem
  158.       Caption = 'S&earch'
  159.       OnClick = Search1Click
  160.     end
  161.     object RemoveContact1: TMenuItem
  162.       Caption = 'R&emove contact'
  163.       OnClick = RemoveContact1Click
  164.     end
  165.     object ReadAwayMessage1: TMenuItem
  166.       Caption = '&Read away-message'
  167.       OnClick = ReadAwayMessage1Click
  168.     end
  169.   end
  170. end
  171.