source: Common/Demo/JobProgressView/UFormMain.lfm

object FormMain: TFormMain
  Left = 501
  Height = 576
  Top = 296
  Width = 892
  Caption = 'JobProgressView demo'
  ClientHeight = 576
  ClientWidth = 892
  DesignTimePPI = 144
  LCLVersion = '2.2.6.0'
  object ButtonTest: TButton
    Left = 48
    Height = 37
    Top = 230
    Width = 113
    Caption = 'Test'
    OnClick = ButtonTestClick
    TabOrder = 0
  end
  object SpinEditJobCount: TSpinEdit
    Left = 146
    Height = 43
    Top = 19
    Width = 122
    TabOrder = 1
    Value = 5
  end
  object Label1: TLabel
    Left = 19
    Height = 26
    Top = 19
    Width = 85
    Caption = 'Job count:'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 19
    Height = 26
    Top = 58
    Width = 101
    Caption = 'Show delay:'
    ParentColor = False
  end
  object SpinEditShowDelay: TSpinEdit
    Left = 146
    Height = 43
    Top = 58
    Width = 122
    MaxValue = 1000000
    TabOrder = 2
    Value = 100
  end
  object Label3: TLabel
    Left = 278
    Height = 26
    Top = 58
    Width = 26
    Caption = 'ms'
    ParentColor = False
  end
  object CheckBoxAutoClose: TCheckBox
    Left = 18
    Height = 30
    Top = 101
    Width = 243
    Caption = 'Auto close on completion'
    Checked = True
    State = cbChecked
    TabOrder = 3
  end
  object CheckBoxTextProgress: TCheckBox
    Left = 19
    Height = 30
    Top = 134
    Width = 329
    Caption = 'Show individual items text progress'
    TabOrder = 4
  end
  object CheckBoxErrors: TCheckBox
    Left = 18
    Height = 30
    Top = 173
    Width = 304
    Caption = 'Simulate errors during execution'
    TabOrder = 5
  end
  object JobProgressView1: TJobProgressView
    OwnerDraw = False
    ShowDelay = 0
    AutoClose = False
    Left = 576
    Top = 144
  end
end