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