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