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

object Form1: TForm1
  Left = 261
  Height = 465
  Top = 130
  Width = 473
  Caption = 'TProgressBarEx Demo'
  ClientHeight = 465
  ClientWidth = 473
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
    Left = 105
    Height = 160
    Top = 112
    Width = 347
    Caption = 'Style'
    ClientHeight = 140
    ClientWidth = 343
    TabOrder = 0
    object rbNormalStyle: TRadioButton
      Left = 20
      Height = 19
      Top = 9
      Width = 86
      Caption = 'Normal Style'
      Checked = True
      OnChange = rbNormalStyleChange
      TabOrder = 1
      TabStop = True
    end
    object rbMarqueeStyle: TRadioButton
      Left = 20
      Height = 19
      Top = 45
      Width = 93
      Caption = 'Marquee Style'
      OnChange = rbMarqueeStyleChange
      TabOrder = 0
    end
    object ScrollBar1: TScrollBar
      Left = 136
      Height = 17
      Top = 11
      Width = 201
      PageSize = 0
      TabOrder = 2
      OnChange = ScrollBar1Change
    end
    object Edit1: TEdit
      Left = 136
      Height = 23
      Top = 45
      Width = 201
      OnChange = Edit1Change
      TabOrder = 3
      Text = 'Some text...'
    end
    object lblMarqueeLength: TLabel
      AnchorSideTop.Control = seMarqueeLength
      AnchorSideTop.Side = asrCenter
      Left = 136
      Height = 15
      Top = 76
      Width = 84
      Caption = 'Marquee length'
    end
    object seMarqueeLength: TSpinEdit
      Left = 240
      Height = 23
      Top = 72
      Width = 50
      Alignment = taRightJustify
      OnChange = seMarqueeLengthChange
      TabOrder = 4
      Value = 120
    end
    object lblMarqueeSpeed: TLabel
      AnchorSideTop.Control = seMarqueeSpeed
      AnchorSideTop.Side = asrCenter
      Left = 139
      Height = 15
      Top = 108
      Width = 81
      Caption = 'Marquee speed'
    end
    object seMarqueeSpeed: TSpinEdit
      Left = 240
      Height = 23
      Top = 104
      Width = 50
      Alignment = taRightJustify
      OnChange = seMarqueeSpeedChange
      TabOrder = 5
      Value = 8
    end
  end
  object btnFont: TButton
    Left = 304
    Height = 25
    Top = 416
    Width = 75
    Caption = 'Font'
    OnClick = btnFontClick
    TabOrder = 1
  end
  object ProgressBar1: TProgressBar
    Left = 13
    Height = 20
    Top = 32
    Width = 450
    TabOrder = 2
    Visible = False
  end
  object clbBackColor: TColorButton
    Left = 298
    Height = 25
    Top = 296
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Background color'
    Margin = 4
    OnColorChanged = clbBackColorColorChanged
  end
  object clbBarColor: TColorButton
    Left = 297
    Height = 25
    Top = 323
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Bar color'
    Margin = 4
    OnColorChanged = clbBarColorColorChanged
  end
  object clbGradientEndColor: TColorButton
    Left = 297
    Height = 25
    Top = 351
    Width = 146
    BorderWidth = 2
    ButtonColorAutoSize = False
    ButtonColorSize = 16
    ButtonColor = clBlack
    Caption = 'Gradient end color'
    Margin = 4
    OnColorChanged = clbGradientEndColorColorChanged
  end
  object clbBorderColor: TColorButton
    Left = 297
    Height = 25
    Top = 379
    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 = 80
    Width = 164
    Caption = 'Compare with TProgressBar'
    OnChange = CheckBox1Change
    TabOrder = 3
  end
  object rgOrientation: TRadioGroup
    Left = 104
    Height = 64
    Top = 280
    Width = 190
    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 = 186
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'horizontal'
      'vertical'
      'right to left'
      'top down'
    )
    OnClick = rgOrientationClick
    TabOrder = 4
  end
  object rgDrawingStyle: TRadioGroup
    Left = 104
    Height = 81
    Top = 360
    Width = 185
    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 = 181
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'flat'
      'gradient'
      'rounded'
      'shiny'
      'bevel'
    )
    OnClick = rgDrawingStyleClick
    TabOrder = 5
  end
  object FontDialog1: TFontDialog
    MinFontSize = 0
    MaxFontSize = 0
    Left = 408
    Top = 408
  end
end