lazarus-ccr/components/exctrls/examples/ProgressBarEx/main.lfm

object Form1: TForm1
  Left = 261
  Height = 511
  Top = 130
  Width = 528
  Caption = 'TProgressBarEx Demo'
  ClientHeight = 511
  ClientWidth = 528
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
    Left = 106
    Height = 136
    Top = 88
    Width = 409
    Caption = 'Style'
    ClientHeight = 116
    ClientWidth = 405
    TabOrder = 0
    object rbNormalStyle: TRadioButton
      AnchorSideTop.Control = ScrollBar1
      AnchorSideTop.Side = asrCenter
      Left = 20
      Height = 19
      Top = 3
      Width = 86
      Caption = 'Normal Style'
      Checked = True
      OnChange = rbNormalStyleChange
      TabOrder = 1
      TabStop = True
    end
    object rbMarqueeStyle: TRadioButton
      AnchorSideTop.Control = Edit1
      AnchorSideTop.Side = asrCenter
      Left = 20
      Height = 19
      Top = 31
      Width = 93
      Caption = 'Marquee Style'
      OnChange = rbMarqueeStyleChange
      TabOrder = 0
    end
    object ScrollBar1: TScrollBar
      AnchorSideTop.Control = GroupBox1
      Left = 136
      Height = 17
      Top = 4
      Width = 257
      BorderSpacing.Top = 4
      PageSize = 0
      TabOrder = 2
      OnChange = ScrollBar1Change
    end
    object Edit1: TEdit
      AnchorSideTop.Control = ScrollBar1
      AnchorSideTop.Side = asrBottom
      Left = 136
      Height = 23
      Top = 29
      Width = 257
      BorderSpacing.Top = 8
      OnChange = Edit1Change
      TabOrder = 3
      Text = 'Some text...'
    end
    object lblMarqueeLength: TLabel
      AnchorSideTop.Control = seMarqueeLength
      AnchorSideTop.Side = asrCenter
      Left = 136
      Height = 15
      Top = 62
      Width = 84
      Caption = 'Marquee length'
    end
    object seMarqueeLength: TSpinEdit
      AnchorSideTop.Control = rbMarqueeStyle
      AnchorSideTop.Side = asrBottom
      Left = 240
      Height = 23
      Top = 58
      Width = 50
      Alignment = taRightJustify
      BorderSpacing.Top = 8
      OnChange = seMarqueeLengthChange
      TabOrder = 4
      Value = 120
    end
    object lblMarqueeSpeed: TLabel
      AnchorSideTop.Control = seMarqueeSpeed
      AnchorSideTop.Side = asrCenter
      Left = 139
      Height = 15
      Top = 89
      Width = 81
      Caption = 'Marquee speed'
    end
    object seMarqueeSpeed: TSpinEdit
      AnchorSideTop.Control = seMarqueeLength
      AnchorSideTop.Side = asrBottom
      Left = 240
      Height = 23
      Top = 85
      Width = 50
      Alignment = taRightJustify
      BorderSpacing.Top = 4
      OnChange = seMarqueeSpeedChange
      TabOrder = 5
      Value = 8
    end
  end
  object btnFont: TButton
    Left = 374
    Height = 25
    Top = 344
    Width = 75
    Caption = 'Font'
    OnClick = btnFontClick
    TabOrder = 1
  end
  object ProgressBar1: TProgressBar
    Left = 13
    Height = 20
    Top = 40
    Width = 450
    TabOrder = 2
    Visible = False
  end
  object clbBackColor: TColorButton
    Left = 369
    Height = 25
    Top = 232
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Background color'
    Margin = 4
    OnColorChanged = clbBackColorColorChanged
  end
  object clbBarColor: TColorButton
    Left = 368
    Height = 25
    Top = 259
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Bar color'
    Margin = 4
    OnColorChanged = clbBarColorColorChanged
  end
  object clbGradientEndColor: TColorButton
    Left = 368
    Height = 25
    Top = 287
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Gradient end color'
    Margin = 4
    OnColorChanged = clbGradientEndColorColorChanged
  end
  object clbBorderColor: TColorButton
    Left = 368
    Height = 25
    Top = 315
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Border color'
    Margin = 4
    OnColorChanged = clbBorderColorColorChanged
  end
  object CheckBox1: TCheckBox
    Left = 105
    Height = 19
    Top = 64
    Width = 164
    Caption = 'Compare with TProgressBar'
    OnChange = CheckBox1Change
    TabOrder = 3
  end
  object rgOrientation: TRadioGroup
    Left = 105
    Height = 64
    Top = 232
    Width = 235
    AutoFill = True
    Caption = 'Orientation'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 44
    ClientWidth = 231
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'horizontal'
      'vertical'
      'right to left'
      'top down'
    )
    OnClick = rgOrientationClick
    TabOrder = 4
  end
  object rgDrawingStyle: TRadioGroup
    Left = 105
    Height = 81
    Top = 312
    Width = 237
    AutoFill = True
    Caption = 'Drawing style'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 61
    ClientWidth = 233
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'flat'
      'gradient'
      'rounded'
      'shiny'
      'bevel'
    )
    OnClick = rgDrawingStyleClick
    TabOrder = 5
  end
  object RadioGroup1: TRadioGroup
    Left = 104
    Height = 88
    Top = 408
    Width = 235
    AutoFill = True
    Caption = 'Caption'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 68
    ClientWidth = 231
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'None'
      'Position'
      'Percentage'
      'Position+Percentage'
      'Custom text'
    )
    OnClick = RadioGroup1Click
    TabOrder = 6
  end
  object RadioGroup2: TRadioGroup
    Left = 374
    Height = 88
    Top = 408
    Width = 140
    AutoFill = True
    Caption = 'Border'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 2
    ClientHeight = 68
    ClientWidth = 136
    Columns = 2
    ItemIndex = 1
    Items.Strings = (
      'None'
      'Flat'
      'Sunken'
      'Raised'
      'Etched'
    )
    OnClick = RadioGroup2Click
    TabOrder = 7
  end
  object Button1: TButton
    Left = 355
    Height = 25
    Top = 61
    Width = 75
    Caption = 'AutoSize'
    OnClick = Button1Click
    TabOrder = 8
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 456
    Top = 344
  end
end