lazarus-ccr/components/gradcontrols/examples/Forms/main.lfm

object Form1: TForm1
  Left = 89
  Height = 439
  Top = 159
  Width = 576
  ActiveControl = TrackBar1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TGradButton-Demo'
  ClientHeight = 439
  ClientWidth = 576
  OnCreate = FormCreate
  LCLVersion = '0.9.27'
  object Label1: TLabel
    Left = 8
    Height = 16
    Top = 75
    Width = 71
    Caption = 'NormalBlend'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 8
    Height = 16
    Top = 131
    Width = 56
    Caption = 'OverBlend'
    ParentColor = False
  end
  object Label3: TLabel
    Left = 88
    Height = 16
    Top = 75
    Width = 1
    ParentColor = False
  end
  object Label4: TLabel
    Left = 88
    Height = 16
    Top = 131
    Width = 1
    ParentColor = False
  end
  object Label5: TLabel
    Left = 37
    Height = 16
    Top = 16
    Width = 57
    Caption = 'Base Color'
    ParentColor = False
  end
  object Label6: TLabel
    Left = 133
    Height = 16
    Top = 16
    Width = 106
    Caption = 'Normal Blend Color'
    ParentColor = False
  end
  object Label7: TLabel
    Left = 240
    Height = 16
    Top = 16
    Width = 91
    Caption = 'Over Blend Color'
    ParentColor = False
  end
  object Label8: TLabel
    Left = 488
    Height = 16
    Top = 128
    Width = 32
    Caption = 'Glyph'
    ParentColor = False
  end
  object Label9: TLabel
    Left = 461
    Height = 16
    Top = 176
    Width = 99
    Caption = 'Glyph Background'
    ParentColor = False
  end
  object Label10: TLabel
    Left = 472
    Height = 16
    Top = 16
    Width = 59
    Caption = 'Click Color'
    ParentColor = False
  end
  object Label11: TLabel
    Left = 464
    Height = 16
    Top = 72
    Width = 78
    Caption = 'Disabled Color'
    ParentColor = False
  end
  object Label12: TLabel
    Left = 368
    Height = 16
    Top = 16
    Width = 55
    Caption = 'Text Color'
    ParentColor = False
  end
  object TrackBar1: TTrackBar
    Left = 8
    Height = 30
    Top = 96
    Width = 440
    Max = 100000
    OnChange = TrackBar1Change
    Position = 0
    ScalePos = trBottom
    TickStyle = tsNone
    Align = alCustom
    TabOrder = 0
  end
  object TrackBar2: TTrackBar
    Left = 8
    Height = 30
    Top = 152
    Width = 440
    Max = 100000
    OnChange = TrackBar2Change
    Position = 0
    ScalePos = trBottom
    TabStop = False
    TickStyle = tsNone
    Align = alCustom
    TabOrder = 1
  end
  object CheckGroup1: TCheckGroup
    Left = 8
    Height = 105
    Top = 320
    Width = 129
    AutoFill = True
    Caption = 'Border Sides'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    Items.Strings = (
      'bsBottomLine'
      'bsTopLine'
      'bsLeftLine'
      'bsRightLine'
    )
    OnItemClick = CheckGroup1ItemClick
    TabOrder = 4
    Data = {
      0400000002020202
    }
  end
  object CheckGroup2: TCheckGroup
    Left = 8
    Height = 89
    Top = 216
    Width = 129
    AutoFill = True
    Caption = 'Other'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    Items.Strings = (
      'ShowFocusBorder'
      'ShowGlyph'
      'Enabled'
    )
    OnItemClick = CheckGroup2ItemClick
    TabOrder = 6
    Data = {
      03000000020202
    }
  end
  object RadioGroup1: TRadioGroup
    Left = 432
    Height = 65
    Top = 240
    Width = 129
    AutoFill = True
    Caption = 'Gradient Type'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 47
    ClientWidth = 125
    ItemIndex = 0
    Items.Strings = (
      'gtHorizontal'
      'gtVertical'
    )
    OnClick = RadioGroup1Click
    TabOrder = 8
  end
  object RadioGroup2: TRadioGroup
    Left = 151
    Height = 105
    Top = 320
    Width = 129
    AutoFill = True
    Caption = 'Rotated Direction'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 87
    ClientWidth = 125
    ItemIndex = 0
    Items.Strings = (
      'rdNormal'
      'rdLeft'
      'rdRight'
    )
    OnClick = RadioGroup2Click
    TabOrder = 2
  end
  object RadioGroup3: TRadioGroup
    Left = 296
    Height = 105
    Top = 320
    Width = 121
    AutoFill = True
    Caption = 'Button Layout'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 87
    ClientWidth = 117
    ItemIndex = 1
    Items.Strings = (
      'blGlyphRight'
      'blGlyphLeft'
      'blGlyphTop'
      'blGlyphBottom'
    )
    OnClick = RadioGroup3Click
    TabOrder = 3
  end
  object RadioGroup4: TRadioGroup
    Left = 432
    Height = 106
    Top = 320
    Width = 129
    AutoFill = True
    Caption = 'Text Alignment'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 88
    ClientWidth = 125
    ItemIndex = 0
    Items.Strings = (
      'taCenter'
      'taLeftJustify'
      'taRightJustify'
    )
    OnClick = RadioGroup4Click
    TabOrder = 5
  end
  object LabeledEdit1: TLabeledEdit
    Left = 328
    Height = 25
    Top = 216
    Width = 80
    EditLabel.AnchorSideLeft.Control = LabeledEdit1
    EditLabel.AnchorSideBottom.Control = LabeledEdit1
    EditLabel.Left = 328
    EditLabel.Height = 16
    EditLabel.Top = 197
    EditLabel.Width = 82
    EditLabel.Caption = 'Button Caption'
    EditLabel.ParentColor = False
    TabOrder = 7
    Text = 'Sample Text'
    OnKeyUp = LabeledEdit1KeyUp
  end
  object b: TGradButton
    Left = 152
    Height = 96
    Top = 200
    Width = 168
    Caption = 'Sample Text'
    Font.Color = clWhite
    Font.Height = -15
    OnClick = bClick
    TabOrder = 9
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object BaseColorButton: TGradButton
    Left = 8
    Height = 25
    Top = 35
    Width = 104
    Caption = 'BaseColorButton'
    Font.Color = clWhite
    OnClick = BaseColorClick
    TabOrder = 10
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object NormalBlendColorButton: TGradButton
    Left = 120
    Height = 25
    Top = 35
    Width = 104
    Caption = 'NormalBlendColorButton'
    Font.Color = clWhite
    OnClick = NormalBlendClick
    TabOrder = 11
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object OverBlendButton: TGradButton
    Left = 232
    Height = 25
    Top = 35
    Width = 104
    Caption = 'OverBlendButton'
    Font.Color = clWhite
    OnClick = OverBlendClick
    TabOrder = 12
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object LoadGlyphButton: TGradButton
    Left = 452
    Height = 25
    Top = 144
    Width = 104
    Caption = 'Load Glyph'
    Font.Color = clWhite
    OnClick = LoadGlyphButtonClick
    TabOrder = 13
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object GlyphBackgroundColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 192
    Width = 104
    Caption = 'GlyphBackgroundColorButton'
    Font.Color = clWhite
    OnClick = GlyphBackgroundColorButtonClick
    TabOrder = 14
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object ClickColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 35
    Width = 104
    Caption = 'ClickColorButton'
    Font.Color = clWhite
    OnClick = ClickColorButtonClick
    TabOrder = 15
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object DisabledColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 93
    Width = 104
    Caption = 'DisabledColorButton'
    Font.Color = clWhite
    OnClick = DisabledColorButtonClick
    TabOrder = 16
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object UnderlineCheckBox: TCheckBox
    Left = 327
    Height = 19
    Top = 242
    Width = 71
    Caption = 'Underline'
    OnChange = UnderlineCheckBoxChange
    TabOrder = 17
  end
  object BoldCheckBox: TCheckBox
    Left = 327
    Height = 19
    Top = 261
    Width = 44
    Caption = 'Bold'
    OnChange = BoldCheckBoxChange
    TabOrder = 18
  end
  object TextColorButton: TGradButton
    Left = 344
    Height = 25
    Top = 35
    Width = 104
    Caption = 'Text Color'
    Font.Color = clWhite
    OnClick = TextColorButtonClick
    TabOrder = 19
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
    OverBlendColor = clSilver
    BackgroundColor = clBtnFace
    ShowFocusBorder = True
    ShowGlyph = False
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
    OwnerBackgroundDraw = False
    AutoWidthBorderSpacing = 15
    AutoHeightBorderSpacing = 15
  end
  object ItalicCheckBox: TCheckBox
    Left = 327
    Height = 19
    Top = 280
    Width = 45
    Caption = 'Italic'
    OnChange = ItalicCheckBoxChange
    TabOrder = 20
  end
  object GlyphTransparentCheckBox: TCheckBox
    Left = 448
    Height = 19
    Top = 220
    Width = 117
    Caption = 'Glyph Transparent'
    OnChange = GlyphTransparentCheckBoxChange
    TabOrder = 21
  end
  object ColorDialog1: TColorDialog
    Color = 11954481
    CustomColors.Strings = (
      'ColorA=000000'
      'ColorB=000080'
      'ColorC=008000'
      'ColorD=008080'
      'ColorE=800000'
      'ColorF=800080'
      'ColorG=808000'
      'ColorH=808080'
      'ColorI=C0C0C0'
      'ColorJ=0000FF'
      'ColorK=00FF00'
      'ColorL=00FFFF'
      'ColorM=FF0000'
      'ColorN=FF00FF'
      'ColorO=FFFF00'
      'ColorP=FFFFFF'
      'ColorQ=C0DCC0'
      'ColorR=F0CAA6'
      'ColorS=F0FBFF'
      'ColorT=A4A0A0'
    )
    left = 8
    top = 176
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Portable Graymap'
    left = 48
    top = 176
  end
end