addressbook.dfm

siMail, siMail, siMail, siMail

object frmAddressBook: TfrmAddressBook
  Left = 353
  Top = 371
  Width = 343
  Height = 352
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object trAddressBook: TVirtualStringTree
    Left = 24
    Top = 64
    Width = 273
    Height = 209
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    ButtonStyle = bsTriangle
    Colors.FocusedSelectionColor = 13613489
    Colors.SelectionRectangleBlendColor = 13613489
    Colors.UnfocusedSelectionColor = 15396334
    Colors.UnfocusedSelectionBorderColor = 13751260
    DragOperations = []
    DrawSelectionMode = smBlendedRectangle
    Header.AutoSizeIndex = 0
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Header.MainColumn = -1
    Header.Options = [hoAutoResize, hoColumnResize, hoDrag]
    Images = dmImages.ilAddressBook
    ParentBackground = False
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowBackground, toShowButtons, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMiddleClickSelect, toMultiSelect, toRightClickSelect]
    TreeOptions.StringOptions = []
    OnCompareNodes = trAddressBookCompareNodes
    OnDblClick = trAddressBookDblClick
    OnExit = trAddressBookExit
    OnGetText = trAddressBookGetText
    OnPaintText = trAddressBookPaintText
    OnGetImageIndex = trAddressBookGetImageIndex
    OnGetNodeDataSize = trAddressBookGetNodeDataSize
    OnGetPopupMenu = trAddressBookGetPopupMenu
    OnInitChildren = trAddressBookInitChildren
    OnInitNode = trAddressBookInitNode
    Columns = <>
  end
  object dckTop: TTBXDock
    Left = 0
    Top = 18
    Width = 335
    Height = 26
    Background = dmImages.tbBackground
    object tbCompose: TTBXToolbar
      Left = 0
      Top = 0
      Caption = 'Address book toolbar'
      DefaultDock = dckTop
      FullSize = True
      Images = dmImages.ilAddressBookQuickToolbar
      ProcessShortCuts = True
      TabOrder = 0
      OnDockChanged = tbComposeDockChanged
      object TBXItem4: TTBXItem
        Action = actSendMailTo
        DisplayMode = nbdmImageAndText
      end
      object TBXItem3: TTBXItem
        Action = actSendMailBcc
        DisplayMode = nbdmImageAndText
      end
      object TBXItem2: TTBXItem
        Action = actSendMailCc
        DisplayMode = nbdmImageAndText
      end
    end
  end
  object dckBottom: TTBXDock
    Left = 0
    Top = 315
    Width = 335
    Height = 9
    Position = dpBottom
  end
  object TBXToolWindow1: TTBXToolWindow
    Left = 0
    Top = 0
    Width = 335
    Height = 18
    Align = alTop
    CloseButton = False
    ClientAreaHeight = 18
    ClientAreaWidth = 335
    TabOrder = 3
    object lblContacts: TLabel
      Left = 0
      Top = 0
      Width = 316
      Height = 18
      Align = alClient
      Alignment = taRightJustify
      Caption = ' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 4227200
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      OnClick = lblContactsClick
    end
    object Label1: TLabel
      Left = 4
      Top = -2
      Width = 120
      Height = 20
      Caption = 'Address Book'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 6394522
      Font.Height = -17
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      Visible = False
    end
    object TBXToolbar1: TTBXToolbar
      Left = 316
      Top = 0
      Width = 19
      Height = 18
      Align = alRight
      BorderStyle = bsNone
      DockableTo = []
      DockMode = dmCannotFloat
      DragHandleStyle = dhNone
      Resizable = False
      ShowCaption = False
      TabOrder = 0
      object cmdShowMenu: TTBXItem
        ImageIndex = 0
        Images = dmImages.ilArrow
        OnClick = cmdShowMenuClick
      end
    end
  end
  object ActionList1: TActionList
    Images = dmImages.ilAddressBookQuickToolbar
    Left = 240
    Top = 280
    object actNewContact: TAction
      Caption = 'New contact ...'
      Enabled = False
      OnExecute = actNewContactExecute
      OnUpdate = actNewContactUpdate
    end
    object actEditContact: TAction
      Caption = 'Edit contact ...'
      Enabled = False
      OnExecute = actEditContactExecute
      OnUpdate = actEditContactUpdate
    end
    object actDeleteContact: TAction
      Caption = 'Delete Contact'
      Enabled = False
      OnExecute = actDeleteContactExecute
      OnUpdate = actEditContactUpdate
    end
    object actSendMail: TAction
      Caption = 'Send mail ...'
      OnExecute = actSendMailExecute
      OnUpdate = actEditContactUpdate
    end
    object actOpenAddressBook: TAction
      Caption = 'Open address book'
      OnExecute = actOpenAddressBookExecute
    end
    object actDisplayOneGroup: TAction
      Caption = 'Display one group'
    end
    object actDisplayAllGroups: TAction
      Caption = 'Display all groups'
    end
    object actPrivateAddressBook: TAction
      Caption = 'Private'
      OnExecute = actPrivateAddressBookExecute
      OnUpdate = actPrivateAddressBookUpdate
    end
    object actPublicAddressBook: TAction
      Caption = 'Public'
      OnExecute = actPublicAddressBookExecute
      OnUpdate = actPublicAddressBookUpdate
    end
    object actAddressBooks: TAction
      Caption = 'Address books'
      Enabled = False
      OnExecute = actAddressBooksExecute
      OnUpdate = actAddressBooksUpdate
    end
    object actSendMailTo: TAction
      Category = 'SendMail'
      Caption = 'To'
      Enabled = False
      ImageIndex = 0
      OnExecute = actSendMailToExecute
      OnUpdate = actEditContactUpdate
    end
    object actSendMailCc: TAction
      Category = 'SendMail'
      Caption = 'Cc'
      Enabled = False
      ImageIndex = 2
      OnExecute = actSendMailToExecute
      OnUpdate = actEditContactUpdate
    end
    object actSendMailBcc: TAction
      Category = 'SendMail'
      Caption = 'Bcc'
      Enabled = False
      ImageIndex = 1
      OnExecute = actSendMailToExecute
      OnUpdate = actEditContactUpdate
    end
  end
  object popAddr: TTBXPopupMenu
    Left = 280
    Top = 280
    object Sendmail1: TTBXItem
      Action = actSendMail
    end
    object N3: TTBXSeparatorItem
    end
    object Newaddress1: TTBXItem
      Action = actNewContact
    end
    object Editcontact1: TTBXItem
      Action = actEditContact
    end
    object DeleteContact1: TTBXItem
      Action = actDeleteContact
    end
    object N2: TTBXSeparatorItem
    end
    object Openaddressbook1: TTBXItem
      Action = actOpenAddressBook
    end
    object Newaddress2: TTBXSeparatorItem
    end
    object Displayonegroup1: TTBXItem
      Action = actDisplayOneGroup
      GroupIndex = 1
      Visible = False
    end
    object Displayallgroups1: TTBXItem
      Action = actDisplayAllGroups
      Checked = True
      GroupIndex = 1
      Visible = False
    end
    object N1: TTBXSeparatorItem
    end
    object mnuBooks: TTBXSubmenuItem
      Action = actAddressBooks
      object mnuPrivate: TTBXSubmenuItem
        Action = actPrivateAddressBook
      end
      object mnuPublic: TTBXSubmenuItem
        Action = actPublicAddressBook
      end
    end
    object mnuGroups: TTBXSubmenuItem
      Caption = 'Groups'
      Enabled = False
      Visible = False
      object TBXItem1: TTBXItem
      end
    end
  end
end