Chip 2001 August - Disc 3/chip_20018103_hu.iso/honosito/internet/the_bat.exe/thebat.exe/0/RCDATA/TADDRWINDOW/TADDRWINDOW.txt

Text File | 2001-06-19 | 21.6 KB | 947 lines

object AddrWindow: TAddrWindow
  Left = 98
  Top = 132
  Width = 605
  Height = 417
  HelpContext = 10043
  Caption = 'Address Book'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefaultPosOnly
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object spContact: TSplitter
    Left = 185
    Top = 32
    Width = 3
    Height = 311
    Cursor = crHSplit
  end
  object sBar: TStatusBar
    Left = 0
    Top = 352
    Width = 597
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object pnHolder: TPanel
    Left = 188
    Top = 32
    Width = 409
    Height = 311
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pnHeader: TPanel
      Left = 0
      Top = 0
      Width = 409
      Height = 18
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object hAddr: THeaderControl
        Left = 0
        Top = 0
        Width = 385
        Height = 18
        Hint = 'nograb'
        Align = alClient
        Sections = <
          item
            Text = 'Name'
            Width = 151
          end
          item
            Text = 'E-mail'
            Width = 96
          end
          item
            Alignment = taCenter
            Text = 'Alias'
            Width = 69
          end
          item
            Alignment = taCenter
            Text = 'Menu'
            Width = 38
          end
          item
            Text = 'Phone'
            Width = 78
          end>
        OnSectionResize = hAddrSectionResize
      end
      object pnSpin: TPanel
        Left = 385
        Top = 0
        Width = 24
        Height = 18
        Align = alRight
        TabOrder = 1
        object udAddr: TUpDown
          Left = 0
          Top = 0
          Width = 24
          Height = 18
          Min = 1
          Max = 4
          Orientation = udHorizontal
          Position = 1
          TabOrder = 0
          Wrap = False
        end
      end
    end
    object gAddr: TAddressBookGrid
      Left = 0
      Top = 18
      Width = 409
      Height = 293
      Align = alClient
      DefaultRowHeight = 18
      DefaultDrawing = False
      FixedCols = 0
      RowCount = 25
      FixedRows = 0
      GridLineWidth = 0
      Options = [goEditing, goThumbTracking]
      ParentShowHint = False
      PopupMenu = GridPopup
      ShowHint = False
      TabOrder = 1
      OnDblClick = bMailClick
      OnKeyDown = gAddrKeyDown
      OnKeyPress = gAddrKeyPress
      OnMouseDown = gAddrMouseDown
      OnMouseMove = gAddrMouseMove
      OnStartDrag = gAddrStartDrag
      Header = hAddr
      Spin = udAddr
      ReadOnly = False
      ColWidths = (
        151
        96
        69
        38
        78)
    end
  end
  object pnTree: TPanel
    Left = 0
    Top = 32
    Width = 185
    Height = 311
    Align = alLeft
    TabOrder = 0
    object lTree: TTreeView
      Left = 1
      Top = 10
      Width = 183
      Height = 300
      HideSelection = False
      Indent = 23
      OnEditing = lTreeEditing
      OnEdited = lTreeEdited
      OnChange = lTreeChange
      Align = alClient
      ParentColor = False
      TabOrder = 0
      OnDragDrop = lTreeDragDrop
      OnDragOver = lTreeDragOver
      OnMouseDown = lTreeMouseDown
      OnKeyDown = gAddrKeyDown
      PopupMenu = GridPopup
      Images = lImages
    end
    object dsTree: TDock97
      Left = 1
      Top = 1
      Width = 183
      Height = 9
    end
  end
  object dsTop: TDock97
    Left = 0
    Top = 0
    Width = 597
    Height = 32
    object tbSearch: TToolbar97
      Left = 181
      Top = 0
      Caption = 'Search'
      DockedTo = dsTop
      DockPos = 181
      TabOrder = 1
      OnClose = tbSearchClose
      object bSearch: TToolbarButton97
        Left = 0
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Perform search'
        Layout = blGlyphTop
        ParentShowHint = False
        ShowHint = True
        OnClick = bSearchClick
      end
      object ToolbarSep971: TToolbarSep97
        Left = 28
        Top = 0
      end
      object bCancel: TToolbarButton97
        Left = 239
        Top = 0
        Width = 29
        Height = 28
        Hint = 'Cancel current search'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        OnClick = bCancelClick
      end
      object ToolbarSep973: TToolbarSep97
        Left = 233
        Top = 0
      end
      object eSearch: TEdit97
        Left = 34
        Top = 4
        Width = 199
        Height = 19
        Hint = 'Quick search'
        PopupMenu = pmSearch
        TabOrder = 0
        OnChange = eSearchChange
        OnKeyDown = eSearchKeyDown
      end
    end
    object tbCommon: TToolbar97
      Left = 0
      Top = 0
      Caption = 'Address Book Toolbar'
      DockedTo = dsTop
      DockPos = 0
      HideWhenInactive = False
      PopupMenu = bPopup
      TabOrder = 0
      OnClose = tbCommonClose
      object bNewUser: TToolbarButton97
        Left = 28
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Create a new contact'
        ParentShowHint = False
        ShowHint = True
        OnClick = mNewAddrClick
      end
      object bNewGroup: TToolbarButton97
        Left = 56
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Create a new group'
        ParentShowHint = False
        ShowHint = True
        OnClick = mNewGroupClick
      end
      object bEdit: TToolbarButton97
        Left = 84
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Edit properties'
        ParentShowHint = False
        ShowHint = True
        OnClick = mEditPropsClick
      end
      object bMail: TToolbarButton97
        Left = 0
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Create a message'
        ParentShowHint = False
        ShowHint = True
        OnClick = bMailClick
      end
      object bDelete: TToolbarButton97
        Left = 140
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Delete'
        ParentShowHint = False
        ShowHint = True
        OnClick = mDeleteClick
      end
      object bPrint: TToolbarButton97
        Left = 112
        Top = 0
        Width = 28
        Height = 28
        Hint = 'Print'
        ParentShowHint = False
        ShowHint = True
        OnClick = bPrintClick
      end
    end
  end
  object dsBottom: TDock97
    Left = 0
    Top = 343
    Width = 597
    Height = 9
    Position = dpBottom
  end
  object bbCancel: TButton
    Left = 0
    Top = 0
    Width = 0
    Height = 0
    Cancel = True
    Caption = 'bbCancel'
    TabOrder = 5
    TabStop = False
    OnClick = bbCancelClick
  end
  object MainMenu1: TMainMenu
    Left = 200
    Top = 72
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object mNewMsg: TMenuItem
        Caption = '&New message'
        ShortCut = 0
        OnClick = bMailClick
      end
      object mNewQT: TMenuItem
        Caption = 'New message using &template'
        ShortCut = 0
        Visible = False
      end
      object mMassMail: TMenuItem
        Tag = 1
        Caption = '&Mass mailing using template'
        ShortCut = 0
        Visible = False
      end
      object mNewAbk: TMenuItem
        Caption = 'New &Address Book...'
        ShortCut = 0
        OnClick = mNewAbkClick
      end
      object mOpen: TMenuItem
        Caption = '&Open address book...'
        ShortCut = 16463
        OnClick = mOpenClick
      end
      object mmImport: TMenuItem
        Caption = '&Import from'
        ShortCut = 0
        OnClick = mmImportClick
        object mImportLDIF: TMenuItem
          Tag = 1
          Caption = '&LDIF file'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportVCF: TMenuItem
          Tag = 8
          Caption = '&Business Card (vCard)'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportAddressList: TMenuItem
          Tag = 5
          Caption = '&Address List (plain text)'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportComma: TMenuItem
          Tag = 2
          Caption = '&Comma-separated (plain text)'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportTab: TMenuItem
          Tag = 3
          Caption = '&Tab-delimited (plain text)'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportINI: TMenuItem
          Tag = 4
          Caption = '&INI file'
          ShortCut = 0
          OnClick = mImportFile
        end
        object N17: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mImportBatNew: TMenuItem
          Tag = 10
          Caption = '&The Bat! Address Book'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportBat: TMenuItem
          Tag = 6
          Caption = '&The Bat! Address Book (old v1.0-format)'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportEudora: TMenuItem
          Tag = 7
          Caption = '&Eudora Address Book'
          ShortCut = 0
          OnClick = mImportFile
        end
        object mImportTag: TMenuItem
          Tag = 9
          Caption = '&Pegasus Tag File'
          ShortCut = 0
          OnClick = mImportFile
        end
      end
      object mmExport: TMenuItem
        Caption = '&Export to'
        ShortCut = 0
        object mExportLDIF: TMenuItem
          Tag = 1
          Caption = '&LDIF file'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object mExportVCF: TMenuItem
          Tag = 6
          Caption = '&Business card (vCard)'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object mExportAddressList: TMenuItem
          Tag = 5
          Caption = '&Address List (Plain text)'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object mExportCSV: TMenuItem
          Tag = 2
          Caption = '&Comma-separated (Plain text)'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object mExportTSV: TMenuItem
          Tag = 3
          Caption = '&Tab-delimited (Plain text)'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object mExportINI: TMenuItem
          Tag = 4
          Caption = '&INI file'
          ShortCut = 0
          OnClick = mExportLDIFClick
        end
        object N16: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object mExportSelection: TMenuItem
          Caption = '&Export selection...'
          ShortCut = 0
          OnClick = mExportSelectionClick
        end
      end
      object Test1: TMenuItem
        Caption = 'Test'
        ShortCut = 16505
        Visible = False
        OnClick = Test1Click
      end
      object N15: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mSearch: TMenuItem
        Caption = 'Search &LDAP directories...'
        ShortCut = 118
        OnClick = bSearchClick
      end
      object N18: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mPrint: TMenuItem
        Caption = '&Print...'
        ShortCut = 0
        OnClick = bPrintClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object mEditMenu: TMenuItem
      Caption = '&Edit'
      ShortCut = 0
      OnClick = mEditMenuClick
      object mNewAddr: TMenuItem
        Caption = 'New &Contact...'
        ShortCut = 16468
        OnClick = mNewAddrClick
      end
      object mNewGroup: TMenuItem
        Caption = 'New &Group'
        ShortCut = 16455
        OnClick = mNewGroupClick
      end
      object N8: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mCut: TMenuItem
        Caption = 'C&ut'
        ShortCut = 16472
        OnClick = mCutClick
      end
      object mCopy: TMenuItem
        Caption = 'C&opy'
        ShortCut = 16451
        OnClick = mCopyClick
      end
      object mPaste: TMenuItem
        Caption = 'P&aste'
        ShortCut = 16470
        OnClick = mmPasteClick
      end
      object mDelete: TMenuItem
        Caption = '&Delete'
        ShortCut = 0
        OnClick = mDeleteClick
      end
      object mEditProps: TMenuItem
        Caption = '&Properties...'
        ShortCut = 0
        OnClick = mEditPropsClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mSelectAll: TMenuItem
        Caption = '&Select all'
        ShortCut = 16449
        OnClick = mSelectAllClick
      end
    end
    object Tools1: TMenuItem
      Caption = '&View'
      ShortCut = 0
      object mvToolbar: TMenuItem
        Caption = '&Toolbar'
        Checked = True
        ShortCut = 0
        OnClick = mvToolbarClick
      end
      object mvQSearch: TMenuItem
        Caption = 'Search T&oolbar'
        Checked = True
        ShortCut = 0
        OnClick = mvQSearchClick
      end
      object mvCA: TMenuItem
        Caption = 'Certificate databases'
        Checked = True
        ShortCut = 0
        OnClick = mvCAClick
      end
      object N14: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mvColumns: TMenuItem
        Caption = '&Columns...'
        ShortCut = 0
        OnClick = mvColumnsClick
      end
      object mSortBy: TMenuItem
        Caption = '&Sort by'
        ShortCut = 0
        OnClick = mSortByClick
        object mSortName: TMenuItem
          Tag = -1
          Caption = '&Name'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortFirstName: TMenuItem
          Tag = -2
          Caption = '&First name'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortLastName: TMenuItem
          Tag = -3
          Caption = '&Last name'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortCompany: TMenuItem
          Tag = 9
          Caption = '&Company'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object N4: TMenuItem
          Caption = '-'
          GroupIndex = 10
          ShortCut = 0
        end
        object mSortEmail: TMenuItem
          Tag = -100
          Caption = '&E-mail address'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortHost: TMenuItem
          Tag = -31
          Caption = '&Host'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object N5: TMenuItem
          Caption = '-'
          GroupIndex = 10
          ShortCut = 0
        end
        object mSortCity: TMenuItem
          Tag = 1
          Caption = 'C&ity'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortState: TMenuItem
          Tag = 2
          Caption = '&State/province'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object mSortCountry: TMenuItem
          Tag = 4
          Caption = 'C&ountry'
          GroupIndex = 10
          RadioItem = True
          ShortCut = 0
          OnClick = mSortNameClick
        end
        object N3: TMenuItem
          Caption = '-'
          GroupIndex = 10
          ShortCut = 0
        end
        object mSortReverse: TMenuItem
          Caption = '&Reverse order'
          GroupIndex = 11
          ShortCut = 0
          OnClick = mSortReverseClick
        end
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mRefresh: TMenuItem
        Caption = '&Refresh'
        ShortCut = 116
        OnClick = mRefreshClick
      end
      object mrNextWindow: TMenuItem
        Caption = 'Next Window'
        ShortCut = 119
        Visible = False
        OnClick = mrNextWindowClick
      end
    end
  end
  object tmSearch: TTimer
    Interval = 100
    OnTimer = tmSearchTimer
    Left = 88
    Top = 81
  end
  object DragMenu: TPopupMenu
    Left = 204
    Top = 161
    object dmMove: TMenuItem
      Caption = '&Move here'
      Default = True
      ShortCut = 0
      OnClick = dmMoveClick
    end
    object dmCopy: TMenuItem
      Tag = 1
      Caption = '&Copy here'
      ShortCut = 0
      OnClick = dmMoveClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object dmCancel: TMenuItem
      Caption = 'Cancel'
      ShortCut = 0
    end
  end
  object GridPopup: TPopupMenu
    OnPopup = mEditMenuClick
    Left = 276
    Top = 105
    object New1: TMenuItem
      Caption = '&New'
      Default = True
      ShortCut = 0
      object mmNewAddr: TMenuItem
        Caption = '&Contact...'
        ShortCut = 0
        OnClick = mNewAddrClick
      end
      object mmNewGroup: TMenuItem
        Caption = '&Group...'
        ShortCut = 0
        OnClick = mNewGroupClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mmMsg: TMenuItem
        Caption = '&Message'
        Default = True
        ShortCut = 16397
        OnClick = bMailClick
      end
    end
    object N10: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mmCopy: TMenuItem
      Caption = '&Copy'
      ShortCut = 0
      OnClick = mCopyClick
    end
    object mmCut: TMenuItem
      Caption = 'C&ut'
      ShortCut = 0
      OnClick = mCutClick
    end
    object mmPaste: TMenuItem
      Caption = 'P&aste'
      ShortCut = 0
      OnClick = mmPasteClick
    end
    object mmDelete: TMenuItem
      Caption = '&Delete'
      ShortCut = 0
      OnClick = mDeleteClick
    end
    object N19: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Properties1: TMenuItem
      Caption = '&Properties...'
      ShortCut = 32781
      OnClick = mEditPropsClick
    end
  end
  object pmSearch: TPopupMenu
    OnPopup = pmSearchPopup
    Left = 372
    Top = 145
    object msFilter: TMenuItem
      Caption = '&Filter'
      Default = True
      ShortCut = 13
      OnClick = msFilterClick
    end
    object msFilterColumn: TMenuItem
      Caption = 'Filter &Column'
      ShortCut = 8205
      OnClick = msFilterColumnClick
    end
    object msFindNext: TMenuItem
      Caption = 'Find &Next'
      ShortCut = 16397
      OnClick = msFindPrevClick
    end
    object msFindPrev: TMenuItem
      Tag = 1
      Caption = 'Find &Previous'
      ShortCut = 24589
      OnClick = msFindPrevClick
    end
    object N11: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msUndo: TMenuItem
      Caption = '&Undo'
      ShortCut = 0
      OnClick = msUndoClick
    end
    object N13: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msCut: TMenuItem
      Caption = 'C&ut'
      ShortCut = 16472
      OnClick = msCutClick
    end
    object msCopy: TMenuItem
      Caption = 'C&opy'
      ShortCut = 16451
      OnClick = msCopyClick
    end
    object msPaste: TMenuItem
      Caption = '&Paste'
      ShortCut = 16470
      OnClick = msPasteClick
    end
    object N12: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object msSelectAll: TMenuItem
      Caption = 'Select all'
      ShortCut = 0
      OnClick = msSelectAllClick
    end
  end
  object LDAP1: TLDAPClient
    AutoBind = True
    Server = 'mail.ritlabs.com'
    User = 'cn=Directory Manager'
    Password = 'casper88'
    SearchDerefAliases = ldaNever
    SearchScope = lssSingleLevel
    SearchSizeLimit = 200
    SearchTimeLimit = 0
    Port = 389
    Authentication = laNone
    OnConnectFail = LDAP1ConnectFail
    OnBind = LDAP1Bind
    OnBindFail = LDAP1BindFail
    OnFound = LDAP1Found
    OnSearchDone = LDAP1SearchDone
    Left = 112
    Top = 208
  end
  object tmLdapSearch: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = tmLdapSearchTimer
    Left = 96
    Top = 208
  end
  object bPopup: TPopupMenu
    OnPopup = bPopupPopup
    Left = 236
    Top = 224
    object m_Undo: TMenuItem
      Caption = '&Undo'
      ShortCut = 0
      OnClick = m_UndoClick
    end
    object m_Sep1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object m_Copy: TMenuItem
      Caption = '&Copy'
      ShortCut = 0
      OnClick = m_CopyClick
    end
    object m_Cut: TMenuItem
      Caption = 'C&ut'
      ShortCut = 0
      OnClick = m_CutClick
    end
    object m_Paste: TMenuItem
      Caption = '&Paste'
      ShortCut = 0
      OnClick = m_PasteClick
    end
    object m_SelectAll: TMenuItem
      Caption = '&Select all'
      ShortCut = 0
      OnClick = m_SelectAllClick
    end
    object m_FavSep: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
  end
  object dOpen: TOpenDialog
    FileEditStyle = fsEdit
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware]
    Left = 64
    Top = 136
  end
  object dSave: TSaveDialog
    FileEditStyle = fsEdit
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofShareAware]
    Left = 64
    Top = 168
  end
  object lImages: TImageList
    Height = 20
    Width = 20
    Left = 252
    Top = 144
  end
  object ImageList1: TImageList
    Height = 20
    Width = 20
    Left = 284
    Top = 144
  end
end