PC World 2007 June/PCWorld_2007-06_cd.bin/komunikace/qip/qip8020.exe/qip.exe/0/RCDATA/TPRIVFORM/TPRIVFORM.txt

Text File | 2007-04-21 | 8KB | 313 lines

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