object PrivForm: TPrivForm Left = 417 Top = 268 Width = 411 Height = 438 Caption = 'Privacy Lists' 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 OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object PCLists: TPageControlEx Left = 0 Top = 0 Width = 403 Height = 411 ActivePage = TabVisList Align = alClient Images = MainForm.ImageList1 TabOrder = 1 object TabVisList: TTabSheet Caption = 'Visible List' DesignSize = ( 401 388) object GroupBoxVis: TGroupBox Left = 7 Top = 6 Width = 386 Height = 372 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 DesignSize = ( 386 372) object ListViewVis: TListView Left = 12 Top = 46 Width = 362 Height = 268 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'ICQ# / SN' Width = 80 end item Caption = 'Nick Name' Width = 70 end item Caption = 'Last Modified' Width = 140 end> ReadOnly = True RowSelect = True PopupMenu = PopupMenuList SmallImages = MainForm.ImageListCLS TabOrder = 0 TabStop = False ViewStyle = vsReport OnColumnClick = ListViewVisColumnClick end object PanelVis: TPanel Left = 13 Top = 320 Width = 361 Height = 42 Anchors = [akLeft, akRight, akBottom] BevelOuter = bvLowered TabOrder = 1 object MemoVis: TMemo Left = 1 Top = 1 Width = 359 Height = 40 TabStop = False Align = alClient BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'You will be always Visible for these Users excepting when you ' 'set privacy status "Invisible For All".') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end end end object TabInvisList: TTabSheet Caption = 'Invisible List' DesignSize = ( 401 388) object GroupBoxInvis: TGroupBox Left = 7 Top = 6 Width = 386 Height = 372 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 DesignSize = ( 386 372) object PanelInvis: TPanel Left = 13 Top = 320 Width = 361 Height = 42 Anchors = [akLeft, akRight, akBottom] BevelOuter = bvLowered TabOrder = 0 object MemoInvis: TMemo Left = 1 Top = 1 Width = 359 Height = 40 TabStop = False Align = alClient BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'For these Users you will be always Offline until you set your ' 'privacy status "Visible for All" or "Visible Only for Contact Li' + 'st". ' 'The last in case if someone of these Users in your Contact List.') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object ListViewInvis: TListView Left = 12 Top = 46 Width = 362 Height = 268 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'ICQ# / SN' Width = 80 end item Caption = 'Nick Name' Width = 70 end item Caption = 'Last Modified' Width = 140 end> ReadOnly = True RowSelect = True PopupMenu = PopupMenuList SmallImages = MainForm.ImageListCLS TabOrder = 1 ViewStyle = vsReport OnColumnClick = ListViewVisColumnClick end end end object TabIgnorList: TTabSheet Caption = 'Ignore List' DesignSize = ( 401 388) object GroupBoxIgn: TGroupBox Left = 7 Top = 6 Width = 386 Height = 372 Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 0 DesignSize = ( 386 372) object PanelIgnore: TPanel Left = 13 Top = 320 Width = 361 Height = 42 Anchors = [akLeft, akRight, akBottom] BevelOuter = bvLowered TabOrder = 0 object MemoIgnore: TMemo Left = 1 Top = 1 Width = 359 Height = 40 TabStop = False Align = alClient BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'All messages from these Users will be Blocked by server. These ' 'users can see your status.') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end end object ListViewIgnore: TListView Left = 12 Top = 46 Width = 362 Height = 268 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item Caption = 'ICQ# / SN' Width = 80 end item Caption = 'Nick Name' Width = 70 end item Caption = 'Last Modified' Width = 140 end> ReadOnly = True RowSelect = True PopupMenu = PopupMenuList SmallImages = MainForm.ImageListCLS TabOrder = 1 ViewStyle = vsReport OnColumnClick = ListViewVisColumnClick end end end end object TransPanel: TPanel Left = 20 Top = 38 Width = 322 Height = 31 BevelOuter = bvNone ParentBackground = True TabOrder = 0 object LabelUIN: TLabel Left = 3 Top = 8 Width = 48 Height = 13 Caption = 'ICQ#/SN:' Color = clBtnFace ParentColor = False end object ButtonRemSel: TInfBitBtn Left = 187 Top = 3 Width = 25 Height = 25 TabOrder = 2 OnClick = ButtonRemSelClick end object ButtonClose: TBitBtn Left = 240 Top = 3 Width = 78 Height = 25 Caption = 'Close' TabOrder = 3 OnClick = ButtonCloseClick end object EditAddUIN: TEdit Left = 54 Top = 5 Width = 94 Height = 21 MaxLength = 16 TabOrder = 0 end object ButtonAdd: TInfBitBtn Left = 155 Top = 3 Width = 25 Height = 25 TabOrder = 1 OnClick = ButtonAddClick end end object PopupMenuList: TPopupMenu Images = MainForm.ImageList1 OnPopup = PopupMenuListPopup Left = 297 Top = 102 object CustomItemRemSel: TMenuItem Caption = 'Remove' OnClick = CustomItemRemSelClick end object CustomItemDets: TMenuItem Caption = 'User Details' OnClick = CustomItemDetsClick end object CustomItemCopyUIN: TMenuItem Caption = 'Copy User'#39's UIN or SN' OnClick = CustomItemCopyUINClick end end end