home *** CD-ROM | disk | FTP | other *** search
- object FindForm: TFindForm
- Left = 378
- Top = 303
- Width = 420
- Height = 211
- Caption = 'Find Contact'
- Color = clBtnFace
- DefaultMonitor = dmMainForm
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 412
- Height = 60
- Align = alTop
- TabOrder = 0
- object LabelAcc: TLabel
- Left = 9
- Top = 7
- Width = 105
- Height = 13
- Caption = 'ICQ# / SN, Nickname'
- end
- object EditFind: TEdit
- Left = 8
- Top = 24
- Width = 265
- Height = 21
- TabOrder = 1
- OnChange = EditFindChange
- end
- object ButtonClose: TButton
- Left = 295
- Top = 22
- Width = 98
- Height = 25
- Caption = 'Close'
- TabOrder = 0
- OnClick = ButtonCloseClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 60
- Width = 412
- Height = 124
- Align = alClient
- TabOrder = 1
- object ListViewRes: TListView
- Left = 1
- Top = 1
- Width = 410
- Height = 122
- Align = alClient
- Columns = <
- item
- Caption = 'ICQ# / SN'
- MaxWidth = 90
- MinWidth = 90
- Width = 90
- end
- item
- Caption = 'Nick Name'
- MinWidth = 2
- Width = 100
- end
- item
- Caption = 'Email'
- MinWidth = 2
- end
- item
- Caption = 'Cellular#'
- MinWidth = 2
- Width = 75
- end
- item
- Caption = 'Notice'
- MinWidth = 2
- Width = 70
- end>
- HideSelection = False
- ReadOnly = True
- RowSelect = True
- ParentShowHint = False
- ShowHint = True
- SmallImages = MainForm.ImageListCLS
- TabOrder = 0
- ViewStyle = vsReport
- OnColumnClick = ListViewResColumnClick
- OnCompare = ListViewResCompare
- OnContextPopup = ListViewResContextPopup
- OnDblClick = ListViewResDblClick
- OnEnter = ListViewResEnter
- OnKeyDown = ListViewResKeyDown
- OnSelectItem = ListViewResSelectItem
- end
- end
- object PopupMenuFind: TPopupMenu
- AutoHotkeys = maManual
- Images = MainForm.ImageList1
- Left = 394
- Top = 322
- object CustomItemCopySN: TMenuItem
- Caption = 'Copy User'#39's Uin or SN'
- OnClick = CustomItemCopySNClick
- end
- object CustomItemUserDets: TMenuItem
- Caption = 'User Details'
- OnClick = CustomItemUserDetsClick
- end
- object CustomItemSendMsg: TMenuItem
- Caption = 'Send Message'
- OnClick = CustomItemSendMsgClick
- end
- end
- end
-