mailbox.dfm

siMail, siMail, siMail, siMail

object frmMailbox: TfrmMailbox
  Left = 280
  Top = 402
  Width = 386
  Height = 356
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lblJustFontLabel: TLabel
    Left = 240
    Top = 296
    Width = 76
    Height = 13
    Caption = 'lblJustFontLabel'
    Visible = False
  end
  object trMailbox: TVirtualStringTree
    Left = 40
    Top = 32
    Width = 282
    Height = 230
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    ButtonFillMode = fmShaded
    CheckImageKind = ckXP
    Colors.FocusedSelectionColor = 13613489
    Colors.SelectionRectangleBlendColor = 13613489
    Colors.UnfocusedSelectionColor = 15396334
    Colors.UnfocusedSelectionBorderColor = 13751260
    DragOperations = []
    DragType = dtVCL
    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.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowHint, hoVisible, hoAutoSpring]
    Header.SortColumn = 0
    Header.Style = hsFlatButtons
    Images = dmImages.ilMailboxMailboxes
    ParentBackground = False
    TabOrder = 0
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoSpanColumns, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowBackground, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toLevelSelectConstraint, toRightClickSelect]
    TreeOptions.StringOptions = []
    OnChange = trMailboxChange
    OnCompareNodes = trMailboxCompareNodes
    OnDragOver = trMailboxDragOver
    OnDragDrop = trMailboxDragDrop
    OnGetText = trMailboxGetText
    OnPaintText = trMailboxPaintText
    OnGetImageIndex = trMailboxGetImageIndex
    OnGetNodeDataSize = trMailboxGetNodeDataSize
    OnGetPopupMenu = trMailboxGetPopupMenu
    OnInitChildren = trMailboxInitChildren
    OnInitNode = trMailboxInitNode
    Columns = <
      item
        MinWidth = 100
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible]
        Position = 0
        Width = 202
        WideText = 'Name'
        WideHint = 'Account/Mailbox name'
      end
      item
        Alignment = taCenter
        MinWidth = 40
        Position = 1
        Width = 40
        WideText = 'U'
        WideHint = 'Unread mailbox message count'
      end
      item
        Alignment = taCenter
        MinWidth = 40
        Position = 2
        Width = 40
        WideText = 'T'
        WideHint = 'Total mailbox message count'
      end>
  end
  object TBXToolWindow1: TTBXToolWindow
    Left = 0
    Top = 0
    Width = 378
    Height = 18
    Align = alTop
    CloseButton = False
    ClientAreaHeight = 18
    ClientAreaWidth = 378
    TabOrder = 1
    Visible = False
    object Label1: TLabel
      Left = 4
      Top = -1
      Width = 90
      Height = 18
      Caption = 'Mailboxes'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 6394522
      Font.Height = -16
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object ActionList: TActionList
    Left = 184
    Top = 264
    object actAccountManageRules: TAction
      Category = 'Account'
      Caption = 'Manage rules ...'
    end
    object actAccountFetchMessagesThis: TAction
      Category = 'Account'
      Caption = 'Fetch messages on this account ...'
      ShortCut = 123
      OnExecute = actAccountFetchMessagesThisExecute
      OnUpdate = actAccountFetchMessagesThisUpdate
    end
    object actAccountFetchMessagesAll: TAction
      Category = 'Account'
      Caption = 'Fetch messages on all accounts ...'
      OnExecute = actAccountFetchMessagesAllExecute
      OnUpdate = actAccountFetchMessagesAllUpdate
    end
    object actAccountPreviewThis: TAction
      Category = 'Account'
      Caption = 'Preview mail on this account ...'
      ShortCut = 122
      OnExecute = actAccountPreviewThisExecute
      OnUpdate = actAccountFetchMessagesThisUpdate
    end
    object actAccountPreviewAll: TAction
      Category = 'Account'
      Caption = 'Preview mail on all accounts ...'
    end
    object actAccountSendThis: TAction
      Category = 'Account'
      Caption = 'Send unsent messages on this account ...'
      ShortCut = 120
      OnExecute = actAccountSendThisExecute
      OnUpdate = actAccountSendThisUpdate
    end
    object actAccountSendAll: TAction
      Category = 'Account'
      Caption = 'Send unsent messages on all accounts ...'
      OnExecute = actAccountSendAllExecute
      OnUpdate = actAccountSendAllUpdate
    end
    object actAccountSendFetchThis: TAction
      Category = 'Account'
      Caption = 'Send and fetch on this account ...'
      OnExecute = actAccountSendFetchThisExecute
      OnUpdate = actAccountSendFetchThisUpdate
    end
    object actAccountSendFetchAll: TAction
      Category = 'Account'
      Caption = 'Send and fetch on all accounts ...'
      OnExecute = actAccountSendFetchAllExecute
      OnUpdate = actAccountSendFetchAllUpdate
    end
    object actAccountComposeMessageThis: TAction
      Category = 'Account'
      Caption = 'Compose message with this account ...'
      ShortCut = 16462
      OnExecute = actAccountComposeMessageThisExecute
    end
    object actAccountServerProperties: TAction
      Category = 'Account'
      Caption = 'Account properties ...'
      OnExecute = actAccountServerPropertiesExecute
      OnUpdate = actAccountServerPropertiesUpdate
    end
    object actAccountRename: TAction
      Category = 'Account'
      Caption = 'Rename'
      OnExecute = actAccountRenameExecute
      OnUpdate = actAccountRenameUpdate
    end
    object actAccountRefreshTot: TAction
      Category = 'Account'
      Caption = 'Refresh totals'
      OnExecute = actAccountRefreshTotExecute
      OnUpdate = actAccountRefreshTotUpdate
    end
    object actAccountNew: TAction
      Category = 'Account'
      Caption = 'New account ...'
      OnExecute = actAccountNewExecute
    end
    object actAccountNewFolder: TAction
      Category = 'Account'
      Caption = 'New folder ...'
    end
    object actMailboxNew: TAction
      Category = 'Mailbox'
      Caption = 'New mailbox ...'
      OnExecute = actMailboxNewExecute
      OnUpdate = actMailboxNewUpdate
    end
    object actColumnsUnreadMessages: TAction
      Category = 'Columns'
      AutoCheck = True
      Caption = 'Unread messages'
      OnExecute = actColumnsUnreadMessagesExecute
      OnUpdate = actColumnsUnreadMessagesUpdate
    end
    object actColumnsTotalMessages: TAction
      Category = 'Columns'
      AutoCheck = True
      Caption = 'Total messages'
      OnExecute = actColumnsTotalMessagesExecute
      OnUpdate = actColumnsTotalMessagesUpdate
    end
    object actUsersSwitch: TAction
      Category = 'Users'
      Caption = 'Switch ...'
      ShortCut = 32851
      OnExecute = actUsersSwitchExecute
      OnUpdate = actUsersSwitchUpdate
    end
    object actUsersManage: TAction
      Category = 'Users'
      Caption = 'Manage ...'
      OnExecute = actUsersManageExecute
      OnUpdate = actUsersManageUpdate
    end
    object actMailboxRename: TAction
      Category = 'Mailbox'
      Caption = 'Rename'
      OnExecute = actMailboxRenameExecute
      OnUpdate = actMailboxRenameUpdate
    end
    object actMailboxCompress: TAction
      Category = 'Mailbox'
      Caption = 'Compress'
    end
    object actMailboxPack: TAction
      Category = 'Mailbox'
      Caption = 'Pack'
      Enabled = False
      OnExecute = actMailboxPackExecute
      OnUpdate = actMailboxPackUpdate
    end
    object actMailboxPasswordProtect: TAction
      Category = 'Mailbox'
      Caption = 'Password protect ...'
      OnExecute = actMailboxPasswordProtectExecute
      OnUpdate = actMailboxPasswordProtectUpdate
    end
    object actMailobxFilterManager: TAction
      Category = 'Mailbox'
      Caption = 'Filter manager ...'
    end
    object actMailboxEmpty: TAction
      Category = 'Mailbox'
      Caption = 'Empty ...'
      Enabled = False
      OnExecute = actMailboxEmptyExecute
      OnUpdate = actMailboxEmptyUpdate
    end
    object actMailboxCompressAll: TAction
      Category = 'Mailbox'
      Caption = 'Compress all'
    end
    object actMailboxPackAll: TAction
      Category = 'Mailbox'
      Caption = 'Pack all mailboxes'
      OnExecute = actMailboxPackAllExecute
      OnUpdate = actMailboxPackAllUpdate
    end
    object actMailboxEmptyJunk: TAction
      Category = 'Mailbox'
      Caption = 'Empty junk mail'
      OnExecute = actMailboxEmptyJunkExecute
      OnUpdate = actMailboxEmptyJunkUpdate
    end
    object actMailboxEmptyTrash: TAction
      Category = 'Mailbox'
      Caption = 'Empty trash'
      OnExecute = actMailboxEmptyTrashExecute
      OnUpdate = actMailboxEmptyTrashUpdate
    end
    object actMailboxProperties: TAction
      Category = 'Mailbox'
      Caption = 'Properties ...'
      OnExecute = actMailboxPropertiesExecute
    end
    object actAccountPackAll: TAction
      Category = 'Account'
      Caption = 'Pack mailboxes in all accounts'
      OnExecute = actAccountPackAllExecute
      OnUpdate = actAccountPackAllUpdate
    end
  end
  object popUser: TTBXPopupMenu
    Left = 88
    Top = 264
    object MenuItem10: TTBXItem
      Action = actAccountNew
    end
    object TBXItem3: TTBXItem
      Action = actAccountPackAll
    end
    object NewUser1: TTBXSubmenuItem
      Caption = 'Profiles'
      object Switch1: TTBXItem
        Action = actUsersSwitch
      end
      object Manage1: TTBXItem
        Action = actUsersManage
      end
    end
    object MenuItem16: TTBXSeparatorItem
    end
    object Fetchmessagesonallaccounts2: TTBXItem
      Action = actAccountFetchMessagesAll
    end
    object N5: TTBXSeparatorItem
    end
    object MenuItem17: TTBXSubmenuItem
      Caption = 'Columns'
      object MenuItem18: TTBXItem
        Action = actColumnsUnreadMessages
      end
      object MenuItem19: TTBXItem
        Action = actColumnsTotalMessages
      end
    end
  end
  object popAccount: TTBXPopupMenu
    Left = 120
    Top = 264
    object MenuItem1: TTBXItem
      Action = actAccountManageRules
    end
    object MenuItem3: TTBXItem
      Action = actAccountFetchMessagesThis
    end
    object Fetchmessagesonallaccounts1: TTBXItem
      Action = actAccountFetchMessagesAll
    end
    object Previewmailonthisaccount1: TTBXItem
      Action = actAccountPreviewThis
    end
    object Previewmailonallaccounts1: TTBXItem
      Action = actAccountPreviewAll
    end
    object Sendunsentmessages1: TTBXItem
      Action = actAccountSendThis
    end
    object TBXItem4: TTBXItem
      Action = actAccountSendAll
    end
    object TBXItem6: TTBXItem
      Action = actAccountSendFetchThis
    end
    object TBXItem5: TTBXItem
      Action = actAccountSendFetchAll
    end
    object MenuItem4: TTBXItem
      Action = actAccountComposeMessageThis
    end
    object Serverproperties1: TTBXItem
      Action = actAccountServerProperties
    end
    object Rename1: TTBXItem
      Action = actAccountRename
    end
    object Delete1: TTBXItem
      Action = frmMain.actDelete
    end
    object Refreshtotals1: TTBXItem
      Action = actAccountRefreshTot
    end
    object TBXSeparatorItem1: TTBXSeparatorItem
    end
    object TBXItem1: TTBXItem
      Action = actMailboxPackAll
    end
    object TBXItem2: TTBXItem
      Action = actAccountPackAll
    end
    object N2: TTBXSeparatorItem
    end
    object NewAccount1: TTBXItem
      Action = actAccountNew
    end
    object NewFolder1: TTBXItem
      Action = actAccountNewFolder
    end
    object mnuNewMailbox1: TTBXItem
      Action = actMailboxNew
    end
    object MenuItem6: TTBXSeparatorItem
    end
    object MenuItem7: TTBXSubmenuItem
      Caption = 'Columns'
      object MenuItem8: TTBXItem
        Action = actColumnsUnreadMessages
      end
      object MenuItem9: TTBXItem
        Action = actColumnsTotalMessages
      end
    end
  end
  object popMbox: TTBXPopupMenu
    Left = 152
    Top = 264
    object mnuNewMailbox: TTBXItem
      Action = actMailboxNew
    end
    object Edit1: TTBXItem
      Action = actMailboxRename
    end
    object actMailboxDelete1: TTBXItem
      Action = frmMain.actDelete
    end
    object Compress1: TTBXItem
      Action = actMailboxCompress
    end
    object Pack1: TTBXItem
      Action = actMailboxPack
    end
    object PasswordProtect1: TTBXItem
      Action = actMailboxPasswordProtect
    end
    object Filtermanager1: TTBXItem
      Action = actMailobxFilterManager
    end
    object Empty1: TTBXItem
      Action = actMailboxEmpty
    end
    object N4: TTBXSeparatorItem
    end
    object Packall1: TTBXItem
      Action = actMailboxPackAll
    end
    object Compressall1: TTBXItem
      Action = actMailboxCompressAll
    end
    object N6: TTBXSeparatorItem
    end
    object Mailboxemptytrash1: TTBXItem
      Action = actMailboxEmptyTrash
    end
    object Emptyjunkmail1: TTBXItem
      Action = actMailboxEmptyJunk
    end
    object N1: TTBXSeparatorItem
    end
    object Properties1: TTBXItem
      Action = actMailboxProperties
    end
    object mnuColumns: TTBXSubmenuItem
      Caption = 'Columns'
      object mnuUnread: TTBXItem
        Action = actColumnsUnreadMessages
      end
      object mnuTotal: TTBXItem
        Action = actColumnsTotalMessages
      end
    end
  end
end