tasks.dfm

siMail, siMail, siMail, siMail

object frmTasks: TfrmTasks
  Left = 510
  Top = 401
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Tasks progress'
  ClientHeight = 369
  ClientWidth = 345
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF0025AAFF0000AA
    FF000092DC00007AB90000629600004A730000325000D4E3FF00B1C7FF008EAB
    FF006B8FFF004873FF002557FF000055FF000049DC00003DB900003196000025
    730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF002525FF000000
    FE000000DC000000B900000096000000730000005000E3D4FF00C7B1FF00AB8E
    FF008F6BFF007348FF005725FF005500FF004900DC003D00B900310096002500
    730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00AA25FF00AA00
    FF009200DC007A00B900620096004A00730032005000FFD4FF00FFB1FF00FF8E
    FF00FF6BFF00FF48FF00FF25FF00FE00FE00DC00DC00B900B900960096007300
    730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800FF25AA00FF00
    AA00DC009200B9007A009600620073004A0050003200FFD4E300FFB1C700FF8E
    AB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00960031007300
    250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800FF252500FE00
    0000DC000000B9000000960000007300000050000000FFE3D400FFC7B100FFAB
    8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000963100007325
    000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800FFAA2500FFAA
    0000DC920000B97A000096620000734A000050320000FFFFD400FFFFB100FFFF
    8E00FFFF6B00FFFF4800FFFF2500FEFE0000DCDC0000B9B90000969600007373
    000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800AAFF2500AAFF
    000092DC00007AB90000629600004A73000032500000E3FFD400C7FFB100ABFF
    8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000319600002573
    000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF480025FF250000FE
    000000DC000000B90000009600000073000000500000D4FFE300B1FFC7008EFF
    AB006BFF8F0048FF730025FF570000FF550000DC490000B93D00009631000073
    250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB80025FFAA0000FF
    AA0000DC920000B97A000096620000734A0000503200D4FFFF00B1FFFF008EFF
    FF006BFFFF0048FFFF0025FFFF0000FEFE0000DCDC0000B9B900009696000073
    730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200B6B6B600AAAA
    AA009E9E9E0092929200868686007A7A7A006E6E6E0062626200565656004A4A
    4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    E8E9E9E9EAEAEAEBEBECECEC0000000000001000000000000000000000000000
    E8E8E9E9E9EAEAEAEBEBECEC0000000000001010000000000000000000000000
    E7E8E8E9E9E9EAEAEAEBEBEC000000000000100C100000000000000000000000
    E7E7E8E8E9E9E9EAEAEAEBEB0000000000000C8B0C1000000000000000000000
    E6E7E7E8E8E9E9E9EAEAEAEB0000000000000C8B8B0C10000000000000000000
    E6E6E7E7E8E8E9E9E9EAEAEA00000C0C0C0C0C8B8B8B0C100000000000000000
    00000000000000000000000000008B8B8B8B8B8B8A8B8B0C1000000000000000
    00000000000000000000000000008A8A8A8A8A8A8A8A8B8B0C10000000000000
    000000000010898A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8B8B0C100000000000
    000000000010898A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8B8B0C1000000000
    000000000010898A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8B0C1000000000
    000000000010898A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A10100000000000
    000000000010898A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A1110000000000000
    000000000010898989898989898989898989898A8A8A8A111000000000000000
    00000000001111111111111111111111111111898A8A11100000000000000000
    00000000000000000000000000000000000011898A1110000000000000000000
    0000000000000000000000000000000000001189111000000000000000000000
    0000000000000000000000000000000000001111100000000000000000000000
    0000000000000000000000000000000000001110000000000000000000000000
    0000000000000000000000000000000000001000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC7FF0000C3FF0000C1FF0000
    C0FF0000C07F0000C03F0000001F0000000F000000070000000300000001F800
    0000F8000000F8000000F8000000F8000001F8000003F8000007F800000FF800
    001FFFFFC03FFFFFC07FFFFFC0FFFFFFC1FFFFFFC3FFFFFFC7FFFFFFFFFF}
  OldCreateOrder = False
  ShowHint = True
  WindowMenu = frmMain.About1
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnHide = FormHide
  OnShortCut = FormShortCut
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lblATP: TLabel
    Left = 8
    Top = 48
    Width = 107
    Height = 13
    Caption = 'Current Task progress:'
    Transparent = True
  end
  object lblCTP: TLabel
    Left = 8
    Top = 8
    Width = 89
    Height = 13
    Caption = 'Message progress:'
    Transparent = True
  end
  object lblStatus: TLabel
    Left = 8
    Top = 92
    Width = 14
    Height = 13
    Caption = 'tsk'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lblETA: TLabel
    Left = 112
    Top = 8
    Width = 224
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'ETA:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object progr1: TJvSpecialProgress
    Left = 8
    Top = 24
    Width = 329
    Height = 21
    BorderStyle = bsSingle
    Caption = '%d%%'
    EndColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GradientBlocks = True
    ParentFont = False
    StartColor = 13160660
    Step = 2
    TextCentered = True
    TextOption = toFormat
  end
  object progr2: TJvSpecialProgress
    Left = 8
    Top = 64
    Width = 329
    Height = 21
    BorderStyle = bsSingle
    Caption = '%d%%'
    EndColor = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GradientBlocks = True
    ParentFont = False
    StartColor = 13160660
    Step = 2
    TextCentered = True
    TextOption = toFormat
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 112
    Width = 345
    Height = 209
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Tasks'
      object lstTasks: TVirtualStringTree
        Left = 0
        Top = 0
        Width = 337
        Height = 181
        Hint = 'Task status'
        Align = alClient
        Colors.UnfocusedSelectionColor = 15396334
        Colors.UnfocusedSelectionBorderColor = 13751260
        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, hoVisible]
        Header.Style = hsFlatButtons
        Images = dmImages.ilTask
        Indent = 22
        Margin = 2
        ParentBackground = False
        TabOrder = 0
        TextMargin = 2
        TreeOptions.MiscOptions = [toCheckSupport, toFullRepaintOnResize, toInitOnSave, toReportMode, toToggleOnDblClick, toWheelPanning]
        TreeOptions.PaintOptions = [toShowBackground, toShowButtons, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseBlendedSelection]
        TreeOptions.SelectionOptions = [toFullRowSelect]
        OnGetText = lstTasksGetText
        OnGetImageIndex = lstTasksGetImageIndex
        OnGetNodeDataSize = lstTasksGetNodeDataSize
        Columns = <
          item
            MinWidth = 100
            Position = 0
            Width = 163
            WideText = 'Account'
          end
          item
            MinWidth = 50
            Position = 1
            WideText = 'Type'
          end
          item
            MinWidth = 100
            Position = 2
            Width = 120
            WideText = 'Task'
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Communications'
      ImageIndex = 1
      object log: TRichEdit
        Left = 0
        Top = 0
        Width = 337
        Height = 181
        Hint = 'Server communications'
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Errors'
      ImageIndex = 2
      object errors: TMemo
        Left = 0
        Top = 0
        Width = 337
        Height = 181
        Hint = 'Error log'
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
        WordWrap = False
      end
    end
  end
  object cmdStopAfterThis: TBitBtn
    Left = 16
    Top = 336
    Width = 121
    Height = 25
    Hint = 'Cancel all tasks except current one'
    Caption = 'Stop after this task'
    TabOrder = 1
    OnClick = cmdStopAfterThisClick
  end
  object cmdCancel: TBitBtn
    Left = 256
    Top = 336
    Width = 75
    Height = 25
    Hint = 'Cancel all tasks including current one'
    Caption = 'Cancel All'
    TabOrder = 2
    OnClick = cmdCancelClick
  end
  object BitBtn3: TBitBtn
    Left = 144
    Top = 336
    Width = 75
    Height = 25
    Hint = 'Pause tasks'
    Caption = 'Pause'
    Enabled = False
    TabOrder = 3
  end
  object tmrTaskCheck: TTimer
    Interval = 500
    OnTimer = tmrTaskCheckTimer
    Left = 200
    Top = 80
  end
end