lazarus-ccr/components/jvcllaz/examples/JvSpecialProgress/main.lfm

object MainForm: TMainForm
  Left = 258
  Height = 414
  Top = 127
  Width = 583
  AutoSize = True
  Caption = 'JvSpecialProgress Demo'
  ClientHeight = 414
  ClientWidth = 583
  OnCreate = FormCreate
  LCLVersion = '2.1.0.0'
  object Bevel1: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 16
    Height = 44
    Top = 16
    Width = 176
    BorderSpacing.Left = 16
    BorderSpacing.Top = 16
  end
  object JvSpecialProgress1: TJvSpecialProgress
    AnchorSideLeft.Control = Bevel1
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Bevel1
    AnchorSideRight.Side = asrBottom
    Left = 28
    Height = 15
    Top = 31
    Width = 152
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 12
    BorderSpacing.Right = 12
    Caption = 'JvSpecialProgress1'
    Position = 50
  end
  object ScrollBar1: TScrollBar
    AnchorSideLeft.Control = Bevel1
    AnchorSideTop.Control = Label3
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Bevel1
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 17
    Top = 99
    Width = 176
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 8
    PageSize = 0
    TabOrder = 0
    OnChange = ScrollBar1Change
  end
  object CbStartColor: TColorBox
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    Left = 313
    Height = 22
    Top = 12
    Width = 100
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
    BorderSpacing.Left = 32
    BorderSpacing.Right = 16
    ItemHeight = 16
    OnChange = CbStartColorChange
    TabOrder = 1
  end
  object Label1: TLabel
    AnchorSideLeft.Control = Bevel1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CbStartColor
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 16
    Width = 57
    BorderSpacing.Left = 32
    Caption = 'Start color:'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbEndColor
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 44
    Width = 53
    Caption = 'End color:'
    ParentColor = False
  end
  object CbEndColor: TColorBox
    AnchorSideLeft.Control = CbStartColor
    AnchorSideTop.Control = CbStartColor
    AnchorSideTop.Side = asrBottom
    Left = 313
    Height = 22
    Top = 40
    Width = 100
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
    BorderSpacing.Top = 6
    ItemHeight = 16
    OnChange = CbEndColorChange
    TabOrder = 2
  end
  object CbGradientBlocks: TCheckBox
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbEndColor
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 19
    Top = 74
    Width = 102
    BorderSpacing.Top = 12
    Caption = 'Gradient blocks'
    OnChange = CbGradientBlocksChange
    TabOrder = 3
  end
  object CbSolid: TCheckBox
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbGradientBlocks
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 19
    Top = 99
    Width = 46
    BorderSpacing.Top = 6
    Caption = 'Solid'
    OnChange = CbSolidChange
    TabOrder = 4
  end
  object CbBorder: TCheckBox
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbSolid
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 19
    Top = 124
    Width = 55
    BorderSpacing.Top = 6
    Caption = 'Border'
    OnChange = CbBorderChange
    TabOrder = 5
  end
  object Label3: TLabel
    AnchorSideLeft.Control = Bevel1
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    Left = 40
    Height = 15
    Top = 76
    Width = 128
    BorderSpacing.Top = 16
    Caption = 'Please drag the scrollbar'
    ParentColor = False
  end
  object CbBorderColor: TColorBox
    AnchorSideLeft.Control = CbStartColor
    AnchorSideTop.Control = Bevel2
    AnchorSideTop.Side = asrCenter
    Left = 313
    Height = 22
    Top = 135
    Width = 100
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
    ItemHeight = 16
    OnChange = CbBorderColorChange
    TabOrder = 6
  end
  object CbFlat: TCheckBox
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbBorder
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 19
    Top = 149
    Width = 39
    BorderSpacing.Top = 6
    Caption = 'Flat'
    OnChange = CbFlatChange
    TabOrder = 7
  end
  object CbTextOption: TComboBox
    AnchorSideLeft.Control = CbStartColor
    AnchorSideTop.Control = CbTextCentered
    AnchorSideTop.Side = asrBottom
    Left = 313
    Height = 23
    Top = 199
    Width = 100
    BorderSpacing.Top = 6
    ItemHeight = 15
    Items.Strings = (
      'toCaption'
      'toFormat'
      'toNoText'
      'toPercent'
    )
    OnChange = CbTextOptionChange
    TabOrder = 8
    Text = 'CbTextOption'
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbTextOption
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 203
    Width = 62
    Caption = 'Text option:'
    ParentColor = False
  end
  object CbTextCentered: TCheckBox
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbFlat
    AnchorSideTop.Side = asrBottom
    Left = 224
    Height = 19
    Top = 174
    Width = 91
    BorderSpacing.Top = 6
    Caption = 'Text centered'
    OnChange = CbTextCenteredChange
    TabOrder = 9
  end
  object EdFormat: TEdit
    AnchorSideLeft.Control = CbStartColor
    AnchorSideTop.Control = CbTextOption
    AnchorSideTop.Side = asrBottom
    Left = 313
    Height = 23
    Top = 228
    Width = 100
    BorderSpacing.Top = 6
    TabOrder = 10
    Text = '%0:d%% done (%1:d of %2:d).'
  end
  object LblFormat: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = EdFormat
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 232
    Width = 38
    Caption = 'Format'
    FocusControl = EdFormat
    ParentColor = False
  end
  object CbTextColor: TColorBox
    AnchorSideLeft.Control = CbStartColor
    AnchorSideTop.Control = EdFormat
    AnchorSideTop.Side = asrBottom
    Left = 313
    Height = 22
    Top = 257
    Width = 100
    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
    BorderSpacing.Top = 6
    ItemHeight = 16
    OnChange = CbTextColorChange
    TabOrder = 11
  end
  object Label5: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = CbTextColor
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 261
    Width = 54
    Caption = 'Text color:'
    ParentColor = False
  end
  object Bevel2: TBevel
    AnchorSideTop.Control = CbBorder
    AnchorSideBottom.Control = CbFlat
    AnchorSideBottom.Side = asrBottom
    Left = 192
    Height = 44
    Top = 124
    Width = 40
    Anchors = [akTop, akLeft, akBottom]
    Shape = bsSpacer
  end
  object seHeight: TSpinEdit
    AnchorSideLeft.Control = CbTextColor
    AnchorSideTop.Control = CbTextColor
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = CbTextColor
    AnchorSideRight.Side = asrBottom
    Left = 313
    Height = 23
    Top = 285
    Width = 100
    Alignment = taRightJustify
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 6
    BorderSpacing.Bottom = 16
    OnChange = seHeightChange
    TabOrder = 12
    Value = 15
  end
  object LblHeight: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideTop.Control = seHeight
    AnchorSideTop.Side = asrCenter
    Left = 224
    Height = 15
    Top = 289
    Width = 36
    Caption = 'Height'
    ParentColor = False
  end
end