maillist.dfm

siMail, siMail, siMail, siMail

object frmMaillist: TfrmMaillist
  Left = 721
  Top = 401
  Width = 364
  Height = 355
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object lstMailList: TVirtualStringTree
    Left = 2
    Top = 32
    Width = 343
    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 = -1
    Header.Font.Charset = DEFAULT_CHARSET
    Header.Font.Color = clWindowText
    Header.Font.Height = -11
    Header.Font.Name = 'MS Sans Serif'
    Header.Font.Style = []
    Header.Height = 18
    Header.Images = dmImages.ilMailListHeader
    Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowHint, hoShowImages, hoShowSortGlyphs, hoVisible, hoAutoSpring]
    Header.SortColumn = 7
    Header.Style = hsFlatButtons
    HintMode = hmHintAndDefault
    Images = dmImages.ilMailListMessages
    Margin = 2
    ParentBackground = False
    TabOrder = 0
    TextMargin = 2
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoHideButtons, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowBackground, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMultiSelect, toRightClickSelect]
    TreeOptions.StringOptions = []
    OnChange = lstMailListChange
    OnClick = lstMailListClick
    OnCompareNodes = lstMailListCompareNodes
    OnDblClick = lstMailListDblClick
    OnDragAllowed = lstMailListDragAllowed
    OnGetText = lstMailListGetText
    OnPaintText = lstMailListPaintText
    OnGetImageIndex = lstMailListGetImageIndex
    OnGetHint = lstMailListGetHint
    OnGetNodeDataSize = lstMailListGetNodeDataSize
    OnGetPopupMenu = lstMailListGetPopupMenu
    OnHeaderClick = lstMailListHeaderClick
    OnInitNode = lstMailListInitNode
    OnMouseDown = lstMailListMouseDown
    Columns = <
      item
        ImageIndex = 0
        MaxWidth = 20
        MinWidth = 20
        Position = 0
        Width = 20
        WideHint = 'Annotation'
      end
      item
        ImageIndex = 1
        MaxWidth = 20
        MinWidth = 20
        Position = 1
        Width = 20
        WideHint = 'Label'
      end
      item
        ImageIndex = 2
        MaxWidth = 20
        MinWidth = 20
        Position = 2
        Width = 20
        WideHint = 'Priority'
      end
      item
        ImageIndex = 3
        MaxWidth = 20
        MinWidth = 20
        Position = 3
        Width = 20
        WideHint = 'Attachment'
      end
      item
        ImageIndex = 4
        MaxWidth = 20
        MinWidth = 20
        Position = 4
        Width = 20
        WideHint = 'Security status'
      end
      item
        MinWidth = 150
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 5
        Width = 150
        WideText = 'Subject'
      end
      item
        MinWidth = 150
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 6
        Width = 150
        WideText = 'From'
      end
      item
        MinWidth = 100
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 7
        Width = 100
        WideText = 'Date & Time'
      end
      item
        MinWidth = 50
        Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAutoSpring]
        Position = 8
        WideText = 'Size'
      end>
  end
  object TBXToolWindow1: TTBXToolWindow
    Left = 0
    Top = 0
    Width = 356
    Height = 22
    Align = alTop
    CloseButton = False
    ClientAreaHeight = 22
    ClientAreaWidth = 356
    TabOrder = 1
    object lblMsg2: TLabel
      Left = 96
      Top = 5
      Width = 3
      Height = 13
      Caption = ' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 6394522
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object lblMsg: TLabel
      Left = 4
      Top = 1
      Width = 80
      Height = 20
      Caption = 'Messages'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 6394522
      Font.Height = -17
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object TBXToolbar1: TTBXToolbar
      Left = 66
      Top = 0
      Width = 290
      Height = 22
      Align = alRight
      BorderStyle = bsNone
      DockableTo = []
      DockMode = dmCannotFloat
      DragHandleStyle = dhNone
      Resizable = False
      ShowCaption = False
      TabOrder = 0
      Visible = False
      object TBXComboBoxItem1: TTBXComboBoxItem
        EditWidth = 120
        ReadOnly = True
        DropDownList = True
        MinListWidth = 120
      end
      object TBXSeparatorItem2: TTBXSeparatorItem
        Blank = True
        Size = 20
      end
      object TBXEditItem2: TTBXEditItem
        EditWidth = 150
      end
      object TBXSeparatorItem3: TTBXSeparatorItem
        Blank = True
        Size = 20
      end
    end
  end
  object ActionList: TActionList
    Left = 144
    Top = 272
    object actMessageNew: TAction
      Category = 'Message'
      Caption = 'New ...'
      Enabled = False
      ShortCut = 16462
      OnExecute = actMessageNewExecute
      OnUpdate = actMessageNewUpdate
    end
    object actMessageReply: TAction
      Category = 'Message'
      Caption = 'Reply ...'
      Enabled = False
      ShortCut = 16466
      OnExecute = actMessageReplyExecute
      OnUpdate = actMessageReplyUpdate
    end
    object actMessageReplyAll: TAction
      Category = 'Message'
      Caption = 'Reply to all ...'
      Enabled = False
      ShortCut = 16468
      OnExecute = actMessageReplyAllExecute
      OnUpdate = actMessageReplyUpdate
    end
    object actMessageForward: TAction
      Category = 'Message'
      Caption = 'Forward ...'
      Enabled = False
      ShortCut = 16471
      OnExecute = actMessageForwardExecute
      OnUpdate = actMessageForwardUpdate
    end
    object actMessageForwardAs: TAction
      Category = 'Message'
      Caption = 'Forward as attachment ...'
      Enabled = False
    end
    object actMessageBounce: TAction
      Category = 'Message'
      Caption = 'Bounce ...'
      Enabled = False
    end
    object actMessageRedirect: TAction
      Category = 'Message'
      Caption = 'Redirect to ...'
      Enabled = False
    end
    object actMessageAnnotate: TAction
      Category = 'Message'
      Caption = 'Annotate ...'
      Enabled = False
      OnExecute = actMessageAnnotateExecute
      OnUpdate = actMessageAnnotateUpdate
    end
    object actMessageContinueEdit: TAction
      Category = 'Message'
      Caption = 'Continue editing ...'
      Enabled = False
      ShortCut = 16453
      OnExecute = actMessageContinueEditExecute
      OnUpdate = actMessageContinueEditUpdate
    end
    object actMessageOpen: TAction
      Category = 'Message'
      Caption = 'Open in new window'
      ShortCut = 16397
      OnExecute = actMessageOpenExecute
      OnUpdate = actMessageOpenUpdate
    end
    object actMessageMove: TAction
      Category = 'Message'
      Caption = 'Move to ...'
      Enabled = False
    end
    object actMessageProperties: TAction
      Category = 'Message'
      Caption = 'Properties'
      ShortCut = 32781
      OnExecute = actMessagePropertiesExecute
      OnUpdate = actMessageAnnotateUpdate
    end
    object actMessageMarkAsRead: TAction
      Category = 'Message'
      Caption = 'Read'
      Enabled = False
      ImageIndex = 0
      ShortCut = 32850
      OnExecute = actMessageMarkAsReadExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageMarkAsUnread: TAction
      Category = 'Message'
      Caption = 'Unread'
      Enabled = False
      ImageIndex = 1
      ShortCut = 32853
      OnExecute = actMessageMarkAsUnreadExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageMarkAsReplied: TAction
      Category = 'Message'
      Caption = 'Replied'
      Enabled = False
      ImageIndex = 2
      ShortCut = 32836
      OnExecute = actMessageMarkAsRepliedExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageMarkAsUnreplied: TAction
      Category = 'Message'
      Caption = 'Unreplied'
      Enabled = False
      ShortCut = 32844
      OnExecute = actMessageMarkAsUnrepliedExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageMarkAsForwarded: TAction
      Category = 'Message'
      Caption = 'Forwarded'
      Enabled = False
      ImageIndex = 3
      ShortCut = 32838
      OnExecute = actMessageMarkAsForwardedExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageMarkAsUnforwarded: TAction
      Category = 'Message'
      Caption = 'Unforwarded'
      Enabled = False
      ShortCut = 32855
      OnExecute = actMessageMarkAsUnforwardedExecute
      OnUpdate = actMessageMarkAsUnreadUpdate
    end
    object actMessageLabelCompany: TAction
      Tag = 1
      Category = 'Message'
      Caption = 'Company'
      Enabled = False
      ImageIndex = 14