fpreview.dfm

siMail, siMail, siMail, siMail

object frmPreview: TfrmPreview
  Left = 347
  Top = 362
  Width = 620
  Height = 320
  HelpKeyword = 'l'
  HelpContext = 2000
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Server mailbox view'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000001000800A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
    FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
    FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
    FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
    FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
    CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
    CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
    CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
    CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
    990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
    990033CC990000CC9900FF999900CC9999009999990066999900339999000099
    9900FF669900CC66990099669900666699003366990000669900FF339900CC33
    990099339900663399003333990000339900FF009900CC009900990099006600
    99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
    6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
    660099996600669966003399660000996600FF666600CC666600996666006666
    66003366660000666600FF336600CC3366009933660066336600333366000033
    6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
    330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
    330033CC330000CC3300FF993300CC9933009999330066993300339933000099
    3300FF663300CC66330099663300666633003366330000663300FF333300CC33
    330099333300663333003333330000333300FF003300CC003300990033006600
    33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
    000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
    00003399000000990000FF660000CC6600009966000066660000006600003366
    0000FF330000CC33000099330000663300003333000000330000CC0000009900
    000066000000330000000000DD000000BB000000AA0000008800000077000000
    5500000044000000220000DD000000BB000000AA000000880000007700000055
    00000044000000220000DDDDDD00555555007777770077777700444444002222
    22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000F1EFECEFF1F10000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000707FFFF07070707000000000000000000
    0000000000000000000000000000000090909041419000000000000000000000
    0000000000000000000000000000000090414117179000000000000000000000
    0000000000000000000000000000909041411717174100000000000000000000
    0000000000000000000000009090414117171717109000000000000000000000
    0000000000000000000090904141171717171710419000000000000000000000
    0000000000000000009041411710104110101041419000000000000000000000
    0000000000000000904117171017901017171717174100000000000000000000
    0000000000000090411741101790171700171717179000000000000000000000
    0000000000004190101790419017000000000017179000000000000000000000
    0000000000004190101790411700000000000041179000000000000000000000
    0000000000419090414190414100000000000041419000000000000000000000
    0000000000F0F0F0F0F0F0F0F0F000000000F0F0F0F0F0000000000000000000
    EFEFECECEDED5D5DF7F7EBEBF6FFFFFFF6F6EBEBF7F75D5DEDEDECEC000000EF
    ECECEDED5D5DF7F7EBEBF6F6FFFFFFFFFFF6F6F63131F7F75D5DEDEDEC000000
    000000EFEFEFEFEFEFEDEDEDED5D5D5D5DEDEDEDEFEFEFEFEF00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFF5DFF5D5DFFFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFF5DFF5DFF5D5DFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFF5D5DFF5D5D5DFFFFFFFFFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED00000000000000
    000000EBFF5D5DFFFFFFFFFFFFFFFFFFFFFFFFFFFFDBDBFFED00000000000000
    000000EBFF5D5D5DFFFFFFFFFFFFFFFFFFFFFFFFFFDBDBFFED00000000000000
    000000EBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFED00000000000000
    000000EBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEBEB00000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    003FFFFF003FFFFF003FFFFF807FFFFF007FFFFC007FFFF0007FFFE0007FFFC0
    007FFF80007FFF00007FFE00207FFE00F07FFC00F07FC0000003800000010000
    000080000001F000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FFFFFFFFFFFFFFFFF}
  OldCreateOrder = False
  OnCreate = FormCreate
  OnHide = FormHide
  OnResize = FormResize
  OnShow = FormShow
  DesignSize = (
    612
    292)
  PixelsPerInch = 96
  TextHeight = 13
  object lblStatus: TLabel
    Left = 8
    Top = 28
    Width = 45
    Height = 13
    Caption = '           '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object cmdOK: TButton
    Left = 8
    Top = 259
    Width = 75
    Height = 25
    Hint = 'Process messages'
    Anchors = [akLeft, akBottom]
    Caption = '&OK'
    TabOrder = 0
    OnClick = cmdOKClick
  end
  object cmdCancel: TButton
    Left = 112
    Top = 259
    Width = 75
    Height = 25
    Hint = 'Cancel all'
    Anchors = [akLeft, akBottom]
    Caption = '&Cancel'
    TabOrder = 1
    OnClick = cmdCancelClick
  end
  object lstPreview: TVirtualStringTree
    Left = 8
    Top = 48
    Width = 185
    Height = 177
    Colors.FocusedSelectionColor = 13613489
    Colors.SelectionRectangleBlendColor = 13613489
    Colors.UnfocusedSelectionColor = 15396334
    Colors.UnfocusedSelectionBorderColor = 13751260
    DragOperations = []
    DrawSelectionMode = smBlendedRectangle
    EditDelay = 1
    Header.AutoSizeIndex = 2
    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, hoShowImages, hoShowSortGlyphs, hoVisible]
    Header.SortColumn = 3
    Header.Style = hsFlatButtons
    LineStyle = lsSolid
    Margin = 0
    ParentBackground = False
    TabOrder = 2
    TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
    TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
    TreeOptions.PaintOptions = [toHideFocusRect, toShowBackground, toShowButtons, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
    TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMultiSelect, toRightClickSelect]
    TreeOptions.StringOptions = []
    OnClick = lstPreviewClick
    OnCompareNodes = lstPreviewCompareNodes
    OnCreateEditor = lstPreviewCreateEditor
    OnEdited = lstPreviewEdited
    OnEditing = lstPreviewEditing
    OnGetText = lstPreviewGetText
    OnPaintText = lstPreviewPaintText
    OnGetNodeDataSize = lstPreviewGetNodeDataSize
    OnGetPopupMenu = lstPreviewGetPopupMenu
    OnHeaderClick = lstPreviewHeaderClick
    Columns = <
      item
        MinWidth = 100
        Position = 0
        Width = 130
        WideText = 'Do what?'
      end
      item
        MinWidth = 150
        Position = 1
        Width = 150
        WideText = 'Subject'
      end
      item
        MinWidth = 110
        Position = 2
        Width = 110
        WideText = 'From'
      end
      item
        MinWidth = 80
        Position = 3
        Width = 110
        WideText = 'Date'
      end
      item
        MinWidth = 70
        Position = 4
        Width = 70
        WideText = 'Size'
      end>
  end
  object cmdHelp: TButton
    Left = 528
    Top = 259
    Width = 75
    Height = 25
    Hint = 'Display help'
    Anchors = [akRight, akBottom]
    Caption = '&Help'
    TabOrder = 3
    OnClick = cmdHelpClick
  end
  object cmboxDoWhat: TMFComboEdit
    Left = 296
    Top = 264
    Width = 101
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    Visible = False
    Keys = []
  end
  object TBXDock1: TTBXDock
    Left = 0
    Top = 0
    Width = 612
    Height = 26
    object TBXToolbar1: TTBXToolbar
      Left = 0
      Top = 0
      DockPos = -2
      Images = dmImages.ilPreview
      TabOrder = 0
      object TBXItem5: TTBXItem
        Action = actPreviewGetAndLeave
        DisplayMode = nbdmImageAndText
      end
      object TBXItem4: TTBXItem
        Action = actPreviewGetAndDelete
        DisplayMode = nbdmImageAndText
      end
      object TBXItem3: TTBXItem
        Action = actPreviewDelete
        DisplayMode = nbdmImageAndText
      end
      object TBXItem2: TTBXItem
        Action = actPreviewIgnore
        DisplayMode = nbdmImageAndText
      end
    end
  end
  object editor: TVSTEditor
    ComboEditor = cmboxDoWhat
    Left = 264
    Top = 256
  end
  object popSelection: TTBXPopupMenu
    Left = 232
    Top = 256
    object Selectall1: TTBXItem
      Caption = 'Select all'
    end
    object Invertselection1: TTBXItem
      Caption = 'Invert selection'
    end
    object Markselected1: TTBXItem
      Caption = '----- Do what? -----'
      Enabled = False
      FontSettings.Italic = tsTrue
      FontSettings.Size = 95
    end
    object Getandleaveonserver1: TTBXItem
      Action = actPreviewGetAndLeave
    end
    object Getanddeleteonserver1: TTBXItem
      Tag = 1
      Action = actPreviewGetAndDelete
    end
    object Deleteonserver1: TTBXItem
      Tag = 2
      Action = actPreviewDelete
    end
    object Ignore1: TTBXItem
      Tag = 3
      Action = actPreviewIgnore
    end
  end
  object ActionList1: TActionList
    Images = dmImages.ilPreview
    Left = 200
    Top = 256
    object actPreviewSelectAll: TAction
      Caption = 'Select all'
      OnExecute = actPreviewSelectAllExecute
    end
    object actPreviewInvertSelection: TAction
      Caption = 'Invert selection'
      OnExecute = actPreviewInvertSelectionExecute
    end
    object actPreviewGetAndLeave: TAction
      Caption = 'Get and leave on server'
      ImageIndex = 0
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
    object actPreviewGetAndDelete: TAction
      Tag = 1
      Caption = 'Get and delete on server'
      ImageIndex = 1
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
    object actPreviewDelete: TAction
      Tag = 2
      Caption = 'Delete on server'
      ImageIndex = 2
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
    object actPreviewIgnore: TAction
      Tag = 3
      Caption = 'Ignore'
      ImageIndex = 3
      OnExecute = actPreviewExecute
      OnUpdate = actPreviewUpdate
    end
  end
end