addrbk_frm.dfm

siMail, siMail, siMail, siMail

          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0026262600FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000E0E
          0E00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00}
        Transparent = True
        OnDragDrop = imgTrashDragDrop
        OnDragOver = imgTrashDragOver
      end
      object cmdOK: TButton
        Left = 16
        Top = 8
        Width = 75
        Height = 25
        Caption = 'OK'
        TabOrder = 0
        OnClick = cmdOKClick
      end
      object cmdCancel: TButton
        Left = 120
        Top = 8
        Width = 75
        Height = 25
        Caption = 'Cancel'
        TabOrder = 1
        OnClick = cmdCancelClick
      end
    end
  end
  object mnuDock: TTBXDock
    Left = 0
    Top = 0
    Width = 632
    Height = 73
    Background = dmImages.tbBackground
    object mnu: TTBXToolbar
      Left = 0
      Top = 0
      Caption = 'Address book toolbar'
      ProcessShortCuts = True
      TabOrder = 0
      object N1: TTBXSubmenuItem
        Caption = 'File'
        object Import1: TTBXSubmenuItem
          Caption = 'Import'
          object actFileImportCSV1: TTBXItem
            Action = actFileImportCSV
          end
        end
        object Export1: TTBXSubmenuItem
          Caption = 'Export'
          object actFileExportCSV1: TTBXItem
            Action = actFileExportCSV
          end
        end
        object N3: TTBXSeparatorItem
        end
        object TBXItem2: TTBXItem
        end
        object TBXItem1: TTBXItem
        end
        object TBXSeparatorItem1: TTBXSeparatorItem
        end
        object Close1: TTBXItem
          Action = actFileClose
        end
      end
      object Book1: TTBXSubmenuItem
        Caption = 'Address book'
        object Newaddressbook2: TTBXItem
          Action = actBookNew
        end
        object Renameaddressbook2: TTBXItem
          Action = actBookRename
        end
        object Deleteaddressbook2: TTBXItem
          Action = actBookDelete
        end
      end
      object Group1: TTBXSubmenuItem
        Caption = 'Group'
        object Newusersgroup2: TTBXItem
          Action = acrGroupNew
        end
        object Renameusersgroup2: TTBXItem
          Action = acrGroupRename
        end
        object Deleteusersgroup2: TTBXItem
          Action = acrGroupDelete
        end
      end
      object Contact1: TTBXSubmenuItem
        Caption = 'Contact'
        object New1: TTBXItem
          Action = actContactNew
        end
        object Edit1: TTBXItem
          Action = actContactEdit
        end
        object Delete1: TTBXItem
          Action = actContactDelete
        end
      end
      object Help1: TTBXItem
        Caption = 'Help'
      end
    end
    object tbQuickFind: TTBXToolbar
      Left = 232
      Top = 0
      Caption = 'Quick find toolbar'
      DockPos = 232
      TabOrder = 1
      object TBControlItem1: TTBControlItem
        Control = txtQuickFind
      end
      object txtQuickFind: TMFButtonEdit
        Left = 0
        Top = 0
        Width = 150
        Height = 19
        Hint = 'Write part of name or e-mail'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        Text = 'Quick find '
        OnEnter = txtQuickFindEnter
        EditStyle = esCtl2D
        Keys = []
        GlyphStyle1 = gsSearch
        GlyphStyle2 = gsEllipsis
      end
    end
    object TBXToolbar1: TTBXToolbar
      Left = 0
      Top = 23
      Caption = 'TBXToolbar1'
      DockPos = 0
      DockRow = 1
      Images = dmImages.ilAddressBookToolbar
      TabOrder = 2
      Visible = False
      object TBXItem11: TTBXItem
        Action = actTBNewAddressBook
      end
      object TBXItem10: TTBXItem
        Action = actTBRenameAddressBook
      end
      object TBXItem9: TTBXItem
        Action = actTBDeleteAddressBook
      end
      object TBXSeparatorItem3: TTBXSeparatorItem
      end
      object TBXItem8: TTBXItem
        Action = actTBNewContactGroup
      end
      object TBXItem7: TTBXItem
        Action = actTBRenameContactGroup
      end
      object TBXItem6: TTBXItem
        Action = actTBDeleteContactGroup
      end
      object TBXSeparatorItem2: TTBXSeparatorItem
      end
      object TBXItem5: TTBXItem
        Action = actTBNewContact
      end
      object TBXItem4: TTBXItem
        Action = actTBEditContact
      end
      object TBXItem3: TTBXItem
        Action = actTBDeleteContact
      end
    end
  end
  object sb: TTBXStatusBar
    Left = 0
    Top = 430
    Width = 632
    Panels = <
      item
        Tag = 0
      end>
    UseSystemFont = False
  end
  object ActionList1: TActionList
    Left = 256
    Top = 352
    object actBookNew: TAction
      Category = 'Book'
      Caption = 'New address book'
      OnExecute = actBookNewExecute
      OnUpdate = actBookNewUpdate
    end
    object actBookRename: TAction
      Category = 'Book'
      Caption = 'Rename address book'
      OnExecute = actBookRenameExecute
      OnUpdate = actBookNewUpdate
    end
    object actBookDelete: TAction
      Category = 'Book'
      Caption = 'Delete address book'
      OnExecute = actBookDeleteExecute
      OnUpdate = actBookNewUpdate
    end
    object acrGroupNew: TAction
      Category = 'Group'
      Caption = 'New contacts group'
    end
    object acrGroupRename: TAction
      Category = 'Group'
      Caption = 'Rename contacts group'
    end
    object acrGroupDelete: TAction
      Category = 'Group'
      Caption = 'Delete contacts group'
    end
    object actFileImportCSV: TAction
      Category = 'File'
      Caption = 'From *.csv ...'
    end
    object actFileExportCSV: TAction
      Category = 'File'
      Caption = 'To *.csv ...'
    end
    object actFileSavePrivate: TAction
      Category = 'File'
      Caption = 'Save private address book'
      OnExecute = actFileSavePrivateExecute
    end
    object actFileSavePublic: TAction
      Category = 'File'
      Caption = 'Save public address book'
      OnExecute = actFileSavePublicExecute
    end
    object actFileClose: TAction
      Category = 'File'
      Caption = 'Close'
      OnExecute = actFileCloseExecute
    end
    object actContactNew: TAction
      Category = 'Contact'
      Caption = 'New contact'
      Enabled = False
      OnExecute = actContactNewExecute
      OnUpdate = actContactNewUpdate
    end
    object actContactEdit: TAction
      Category = 'Contact'
      Caption = 'Edit contact'
      Enabled = False
      OnExecute = actContactEditExecute
      OnUpdate = actContactEditUpdate
    end
    object actContactDelete: TAction
      Category = 'Contact'
      Caption = 'Delete contact'
      Enabled = False
      OnExecute = actContactDeleteExecute
      OnUpdate = actContactDeleteUpdate
    end
    object actDelete: TAction
      Caption = 'actDelete'
      OnExecute = actDeleteExecute
    end
    object actSelectAll: TAction
      Category = 'Select'
      Caption = 'Select all'
      OnExecute = actSelectAllExecute
    end
    object actSelectUnselectAll: TAction
      Category = 'Select'
      Caption = 'Unselect all'
      OnExecute = actSelectUnselectAllExecute
    end
    object actSelectInvertSelection: TAction
      Category = 'Select'
      Caption = 'Invert selection'
      OnExecute = actSelectInvertSelectionExecute
    end
    object actTo: TAction
      Caption = 'To =->'
      ShortCut = 16433
      OnExecute = actToExecute
    end
    object actCC: TAction
      Caption = 'CC =->'
      ShortCut = 16434
      OnExecute = actCCExecute
    end
    object actBCC: TAction
      Caption = 'BCC =->'
      ShortCut = 16435
      OnExecute = actBCCExecute
    end
  end
  object editor: TVSTEditor
    Editor = txtName
    Left = 256
    Top = 384
  end
  object popAddrBkNormal: TTBXPopupMenu
    Left = 320
    Top = 384
    object Newaddressbook1: TTBXItem
      Action = actBookNew
    end
    object Renameaddressbook1: TTBXItem
      Action = actBookRename
    end
    object Deleteaddressbook1: TTBXItem
      Action = actBookDelete
    end
    object N2: TTBXSeparatorItem
    end
    object Newusersgroup1: TTBXItem
      Action = acrGroupNew
    end
    object Renameusersgroup1: TTBXItem
      Action = acrGroupRename
    end
    object Deleteusersgroup1: TTBXItem
      Action = acrGroupDelete
    end
    object N4: TTBXSeparatorItem
    end
    object Newcontact1: TTBXItem
      Action = actContactNew
    end
    object Delete2: TTBXItem
      Action = actContactDelete
    end
  end
  object popList: TTBXPopupMenu
    Left = 352
    Top = 384
    object Newcontact2: TTBXItem
      Action = actContactNew
    end
    object Edit2: TTBXItem
      Action = actContactEdit
    end
    object Deletecontact1: TTBXItem
      Action = actContactDelete
    end
    object N5: TTBXSeparatorItem
    end
    object Selectall1: TTBXItem
      Action = actSelectAll
    end
    object Unselectall1: TTBXItem
      Action = actSelectUnselectAll
    end
    object Invertselection1: TTBXItem
      Action = actSelectInvertSelection
    end
  end
  object alToolbar: TActionList
    Images = dmImages.ilAddressBookToolbar
    Left = 288
    Top = 352
    object actTBNewAddressBook: TAction
      Category = 'Book'
      Caption = 'New address book'
      ImageIndex = 0
      OnExecute = actBookNewExecute
      OnUpdate = actBookNewUpdate
    end
    object actTBRenameAddressBook: TAction
      Category = 'Book'
      Caption = 'Rename address book'
      ImageIndex = 1
      OnExecute = actBookRenameExecute
      OnUpdate = actBookNewUpdate
    end
    object actTBDeleteAddressBook: TAction
      Category = 'Book'
      Caption = 'Delete address book'
      ImageIndex = 2
      OnExecute = actBookDeleteExecute
      OnUpdate = actBookNewUpdate
    end
    object actTBNewContactGroup: TAction
      Category = 'Group'
      Caption = 'New contacts group'
      ImageIndex = 3
    end
    object actTBRenameContactGroup: TAction
      Category = 'Group'
      Caption = 'Rename contacts group'
      ImageIndex = 4
    end
    object actTBDeleteContactGroup: TAction
      Category = 'Group'
      Caption = 'Delete contacts group'
      ImageIndex = 5
    end
    object actTBNewContact: TAction
      Category = 'Contact'
      Caption = 'New contact'
      Enabled = False
      ImageIndex = 6
      OnExecute = actContactNewExecute
      OnUpdate = actContactNewUpdate
    end
    object actTBEditContact: TAction
      Category = 'Contact'
      Caption = 'Edit contact'
      Enabled = False
      ImageIndex = 7
      OnExecute = actContactEditExecute
      OnUpdate = actContactEditUpdate
    end
    object actTBDeleteContact: TAction
      Category = 'Contact'
      Caption = 'Delete contact'
      Enabled = False
      ImageIndex = 8
      OnExecute = actContactDeleteExecute
      OnUpdate = actContactDeleteUpdate
    end
  end
end