main.dfm

本程序是转载的

object MainForm: TMainForm
  Left = 327
  Top = 111
  Width = 150
  Height = 565
  BorderIcons = [biSystemMenu]
  Caption = 'ICQTest'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 142
    Height = 500
    Align = alClient
    Columns = <
      item
        Width = -1
        WidthType = (
          -1)
      end>
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu1
    ShowColumnHeaders = False
    SmallImages = IconList
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 500
    Width = 142
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object IconList: TImageList
    Left = 8
    Top = 8
  end
  object MainMenu1: TMainMenu
    Images = IconList
    Left = 40
    Top = 8
    object Main1: TMenuItem
      Caption = '&Main'
      object Search2: TMenuItem
        Caption = 'S&earch'
        OnClick = Search1Click
      end
      object PacketDumps1: TMenuItem
        Caption = 'P&acket dumps'
        OnClick = PacketDumps1Click
      end
      object LoadContactList1: TMenuItem
        Caption = '&Load contact list from server'
        OnClick = LoadContactList1Click
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 113
        OnClick = Exit1Click
      end
    end
    object Status1: TMenuItem
      Caption = '&Status'
      object Online1: TMenuItem
        Caption = '&Online'
        ImageIndex = 0
        ShortCut = 120
        OnClick = Online1Click
      end
      object Away1: TMenuItem
        Caption = 'Aw&ay'
        ImageIndex = 1
        OnClick = Away1Click
      end
      object DND1: TMenuItem
        Caption = '&DND'
        ImageIndex = 2
        OnClick = DND1Click
      end
      object NA1: TMenuItem
        Caption = '&N/A'
        ImageIndex = 3
        OnClick = NA1Click
      end
      object Invisible1: TMenuItem
        Caption = '&Invisible'
        ImageIndex = 4
        OnClick = Invisible1Click
      end
      object Offline1: TMenuItem
        Caption = '&Offline'
        ImageIndex = 5
        OnClick = Offline1Click
      end
      object RegisterNewUIN1: TMenuItem
        Caption = 'Register New UIN'
        ShortCut = 118
        OnClick = RegisterNewUIN1Click
      end
    end
  end
  object ICQClient1: TICQClient
    DisableDirectConnections = True
    ProxyPort = 0
    UIN = 0
    ICQServer = 'login.icq.com'
    ICQPort = 5190
    PortRangeFirst = 3000
    PortRangeLast = 50000
    ConvertToPlaintext = False
    ContactList.Strings = (
      '4024781')
    VisibleList.Strings = (
      '10543')
    AutoAwayMessage = 'Hey, it'#39's my auto away message :)'
    OnLogin = ICQClient1Login
    OnMessageRecv = ICQClient1MessageRecv
    OnURLRecv = ICQClient1URLRecv
    OnOfflineMsgRecv = ICQClient1OfflineMsgRecv
    OnOfflineURLRecv = ICQClient1OfflineURLRecv
    OnPktParse = ICQClient1PktParse
    OnConnectionFailed = ICQClient1ConnectionFailed
    OnStatusChange = ICQClient1StatusChange
    OnUserOffline = ICQClient1UserOffline
    OnUserGeneralInfo = ICQClient1UserGeneralInfo
    OnUserWorkInfo = ICQClient1UserWorkInfo
    OnUserInfoMore = ICQClient1UserInfoMore
    OnUserInfoAbout = ICQClient1UserInfoAbout
    OnUserInfoInterests = ICQClient1UserInfoInterests
    OnUserInfoBackground = ICQClient1UserInfoBackground
    OnUserFound = ICQClient1UserFound
    OnUserNotFound = ICQClient1UserNotFound
    OnServerListRecv = ICQClient1ServerListRecv
    OnNewUINRegistered = ICQClient1NewUINRegistered
    OnNewUINRefused = ICQClient1NewUINRefused
    OnAutoMsgResponse = ICQClient1AutoMsgResponse
    OnError = ICQClient1Error
    ConnectionTimeout = 0
    Left = 72
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 8
    Top = 40
    object UserInfo1: TMenuItem
      Caption = 'User &info'
      OnClick = UserInfo1Click
    end
    object Search1: TMenuItem
      Caption = 'S&earch'
      OnClick = Search1Click
    end
    object RemoveContact1: TMenuItem
      Caption = 'R&emove contact'
      OnClick = RemoveContact1Click
    end
    object ReadAwayMessage1: TMenuItem
      Caption = '&Read away-message'
      OnClick = ReadAwayMessage1Click
    end
  end
end