object JvSpecialProgressMainForm: TJvSpecialProgressMainForm Left = 247 Top = 109 Width = 762 Height = 541 VertScrollBar.Range = 303 ActiveControl = TrackBar1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = fbsSingle Caption = 'JvSpecialProgressMainForm' Color = clButton Font.Color = clText Font.Height = 11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] Font.Weight = 40 ParentFont = False Position = poDesktopCenter Scaled = False OnShow = FormShow PixelsPerInch = 96 object Panel1: TPanel Left = 0 Top = 0 Width = 762 Height = 238 Align = alClient Color = clOlive Constraints.MinHeight = 183 TabOrder = 0 object JvSpecialProgress1: TJvSpecialProgress Left = 8 Top = 56 Width = 744 Height = 55 Hint = 'TJvSpecialProgress' Anchors = [akLeft, akTop, akRight, akBottom] Color = clYellow EndColor = clWhite HintColor = clYellow ParentColor = False ShowHint = True StartColor = clBlack Step = 0 TextOption = toPercent end object ProgressBar1: TProgressBar Left = 8 Top = 126 Width = 744 Height = 41 Hint = 'TProgressBar' Anchors = [akLeft, akRight, akBottom] ParentShowHint = False ShowHint = True end object Gauge1: TJvGauge Left = 8 Top = 8 Width = 745 Height = 33 Anchors = [akLeft, akTop, akRight] Progress = 0 end object TrackBar1: TTrackBar Left = 8 Top = 184 Width = 744 Height = 45 Anchors = [akLeft, akRight, akBottom] Frequency = 100 Max = 100 TabOrder = 0 OnChange = TrackBar1Change end end object Panel2: TPanel Left = 0 Top = 238 Width = 762 Height = 303 Align = alBottom Caption = 'Panel2' TabOrder = 1 object rgrStartColor: TRadioGroup Left = 8 Top = 8 Width = 137 Height = 209 Items.Strings = ( 'clBlack' 'clMaroon' 'clGreen' 'clOlive' 'clNavy' 'clPurple' 'clTeal' 'clGray' 'clSilver' 'clRed' 'clLime' 'clYellow' 'clBlue' 'clFuchsia' 'clAqua' 'clWhite') Caption = 'Start Color: ' Columns = 2 TabOrder = 0 OnClick = rgrStartColorClick end object rgrEndColor: TRadioGroup Left = 152 Top = 8 Width = 137 Height = 209 Items.Strings = ( 'clBlack' 'clMaroon' 'clGreen' 'clOlive' 'clNavy' 'clPurple' 'clTeal' 'clGray' 'clSilver' 'clRed' 'clLime' 'clYellow' 'clBlue' 'clFuchsia' 'clAqua' 'clWhite') Caption = ' End Color: ' Columns = 2 TabOrder = 1 OnClick = rgrEndColorClick end object rgrBackground: TRadioGroup Left = 296 Top = 8 Width = 137 Height = 209 Items.Strings = ( 'clBlack' 'clMaroon' 'clGreen' 'clOlive' 'clNavy' 'clPurple' 'clTeal' 'clGray' 'clSilver' 'clRed' 'clLime' 'clYellow' 'clBlue' 'clFuchsia' 'clAqua' 'clWhite') Caption = ' Background Color: ' Columns = 2 TabOrder = 2 OnClick = rgrBackgroundClick end object rgrPanel: TRadioGroup Left = 440 Top = 8 Width = 137 Height = 209 Items.Strings = ( 'clBlack' 'clMaroon' 'clGreen' 'clOlive' 'clNavy' 'clPurple' 'clTeal' 'clGray' 'clSilver' 'clRed' 'clLime' 'clYellow' 'clBlue' 'clFuchsia' 'clAqua' 'clWhite') Caption = ' Panel Color: ' Color = clButton Columns = 2 ParentColor = False TabOrder = 3 OnClick = rgrPanelClick end object chbSolid: TCheckBox Left = 584 Top = 24 Width = 97 Height = 17 Caption = 'Solid' TabOrder = 5 OnClick = chbSolidClick end object chbTextVisible: TCheckBox Left = 584 Top = 56 Width = 97 Height = 17 Caption = 'Text Visible' TabOrder = 7 OnClick = chbTextVisibleClick end object chbTextCentered: TCheckBox Left = 584 Top = 40 Width = 97 Height = 17 Caption = 'Text Centered' TabOrder = 6 OnClick = chbTextCenteredClick end object chbTransparent: TCheckBox Left = 584 Top = 72 Width = 97 Height = 17 Caption = 'Transparent' TabOrder = 8 end object chbGradientBlocks: TCheckBox Left = 584 Top = 8 Width = 97 Height = 17 Caption = 'Gradient Blocks' TabOrder = 4 OnClick = chbGradientBlocksClick end object rgrFont: TRadioGroup Left = 8 Top = 224 Width = 425 Height = 73 Items.Strings = ( 'Font 1' 'Font 2' 'Font 3' 'Font 4' 'Font 5' 'Font 6' 'Font 7' 'Font 8') Caption = ' Font: ' Columns = 4 TabOrder = 10 OnClick = rgrFontClick end object Panel3: TPanel Left = 584 Top = 136 Width = 169 Height = 161 TabOrder = 12 object lblMinimum: TLabel Left = 8 Top = 8 Width = 44 Height = 13 Caption = 'Minimum:' end object lblMaximum: TLabel Left = 8 Top = 60 Width = 47 Height = 13 Caption = 'Maximum:' end object lblStep: TLabel Left = 8 Top = 108 Width = 25 Height = 13 Caption = 'Step:' end object edtMinimum: TEdit Left = 8 Top = 28 Width = 65 Height = 21 TabOrder = 0 Text = '0' end object edtMaximum: TEdit Left = 8 Top = 76 Width = 65 Height = 21 TabOrder = 1 Text = '100' end object edtStep: TEdit Left = 8 Top = 124 Width = 65 Height = 21 TabOrder = 2 Text = '10' end object btnApply: TButton Left = 86 Top = 76 Width = 75 Height = 25 Caption = 'Apply' TabOrder = 3 OnClick = btnApplyClick end object btnStepIt: TButton Left = 86 Top = 124 Width = 75 Height = 25 Caption = 'StepIt' TabOrder = 4 OnClick = btnStepItClick end end object chbPanelDoubleBuffered: TCheckBox Left = 584 Top = 104 Width = 153 Height = 17 Caption = 'Panel Double Buffered' TabOrder = 9 Visible = False OnClick = chbPanelDoubleBufferedClick end object btnRandom: TButton Left = 440 Top = 224 Width = 137 Height = 73 Caption = 'Random' TabOrder = 11 OnClick = btnRandomClick end end end