main.dfm

ICQ客户端源代码

object MainForm: TMainForm
  Left = 211
  Top = 224
  Width = 118
  Height = 292
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = 'eICQ'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ListView1: TListView
    Left = 0
    Top = 0
    Width = 110
    Height = 241
    Align = alClient
    Columns = <
      item
        Caption = 'UIN'
        Width = 80
      end
      item
        Caption = 'Status'
        Width = 70
      end
      item
        Alignment = taCenter
        Caption = 'Internal IP'
        Width = 60
      end
      item
        Alignment = taCenter
        Caption = 'External IP'
        Width = 60
      end
      item
        Alignment = taCenter
        Caption = 'Port'
      end
      item
        Alignment = taCenter
        Caption = 'ProtoVer'
      end
      item
        Alignment = taCenter
        Caption = 'UserCaps'
      end
      item
        Alignment = taCenter
        Caption = 'Online since'
        Width = 80
      end
      item
        Caption = 'Client'
      end
      item
        Caption = 'Miranda Version'
        Width = 70
      end
      item
        Caption = 'Nick'
        Width = 70
      end
      item
        Caption = 'Idle'
      end>
    ColumnClick = False
    OwnerDraw = True
    ParentShowHint = False
    PopupMenu = popupListMenu
    ShowColumnHeaders = False
    ShowHint = True
    SmallImages = AdvIconList
    TabOrder = 0
    ViewStyle = vsReport
    OnClick = ListView1Click
    OnContextPopup = ListView1ContextPopup
    OnDblClick = Message1Click
    OnDrawItem = ListView1DrawItem
    OnEdited = ListView1Edited
    OnEditing = ListView1Editing
    OnMouseMove = ListView1MouseMove
    OnSelectItem = ListView1SelectItem
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 241
    Width = 110
    Height = 22
    Panels = <
      item
        Style = psOwnerDraw
        Width = 50
      end>
    OnMouseUp = StatusBar1MouseUp
    OnDrawPanel = StatusBar1DrawPanel
  end
  object IconList: TImageList
    Left = 8
    Top = 32
  end
  object ICQClient1: TICQClient
    ProxyPort = 0
    UIN = 0
    ICQServer = 'login.icq.com'
    ICQPort = 5190
    PortRangeFirst = 3000
    PortRangeLast = 50000
    ConvertToPlaintext = False
    AutoAwayMessage = 'Away'
    OnLogin = ICQClient1Login
    OnLogOff = ICQClient1LogOff
    OnMessageRecv = ICQClient1MessageRecv
    OnURLRecv = ICQClient1URLRecv
    OnOfflineMsgRecv = ICQClient1OfflineMsgRecv
    OnOfflineURLRecv = ICQClient1OfflineURLRecv
    OnPktParse = ICQClient1PktParse
    OnConnectionFailed = ICQClient1ConnectionFailed
    OnStatusChange = ICQClient1StatusChange
    OnUserOffline = ICQClient1UserOffline
    OnAddedYou = ICQClient1AddedYou
    OnUserGeneralInfo = ICQClient1UserGeneralInfo
    OnUserWorkInfo = ICQClient1UserWorkInfo
    OnUserInfoMore = ICQClient1UserInfoMore
    OnUserInfoAbout = ICQClient1UserInfoAbout
    OnUserInfoInterests = ICQClient1UserInfoInterests
    OnUserInfoBackground = ICQClient1UserInfoBackground
    OnUserFound = ICQClient1UserFound
    OnUserNotFound = ICQClient1UserNotFound
    OnServerListRecv = ICQClient1ServerListRecv
    OnAdvancedMsgAck = ICQClient1AdvancedMsgAck
    OnNewUINRegistered = ICQClient1NewUINRegistered
    OnNewUINRefused = ICQClient1NewUINRefused
    OnAutoMsgResponse = ICQClient1AutoMsgResponse
    OnUnregisterOk = ICQClient1UnregisterOk
    OnUnregisterBadPassword = ICQClient1UnregisterBadPassword
    OnSMSRefused = ICQClient1SMSRefused
    OnSMSAck = ICQClient1SMSAck
    OnOnlineInfo = ICQClient1OnlineInfo
    OnError = ICQClient1Error
    ConnectionTimeout = 0
    OnSMSReply = ICQClient1SMSReply
    OnInfoChanged = ICQClient1InfoChanged
    OnAuthorizationChangedOk = ICQClient1AuthorizationChangedOk
    OnAuthResponse = ICQClient1AuthResponse
    OnAuthRequest = ICQClient1AuthRequest
    Left = 48
    Top = 32
  end
  object popupListMenu: TPopupMenu
    AutoPopup = False
    Images = AdvIconList
    OnPopup = popupListMenuPopup
    Left = 8
    Top = 64
    object Message1: TMenuItem
      Caption = '&Message'
      ImageIndex = 0
      OnClick = Message1Click
    end
    object WebPageAddressURL1: TMenuItem
      Caption = '&Web Page Address (URL)'
      ImageIndex = 14
      OnClick = WebPageAddressURL1Click
    end
    object ReadAwayMessage1: TMenuItem
      Caption = '&Read Away-Message'
      OnClick = ReadAwayMessage1Click
    end
    object N14: TMenuItem
      Caption = '-'
    end
    object UserInfo1: TMenuItem
      Caption = '&User info'
      ImageIndex = 2
      OnClick = UserInfo1Click
    end
    object ViewHistory1: TMenuItem
      Caption = '&View History'
      ImageIndex = 13
      OnClick = ViewHistory1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Rename1: TMenuItem
      Caption = '&Rename'
      ImageIndex = 17
      OnClick = Rename1Click
    end
    object RemoveContact1: TMenuItem
      Caption = '&Delete'
      ImageIndex = 12
      OnClick = RemoveContact1Click
    end
  end
  object AdvIconList: TImageList