improved font handling and updated demo by Luiz Americo Pereira Camara

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@529 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-08-15 19:28:55 +00:00
parent e8f965bb06
commit 1a7f321de7
13 changed files with 647 additions and 454 deletions
--- a/components/gradcontrols/examples/Forms/main.lfm
+++ b/components/gradcontrols/examples/Forms/main.lfm
@ -1,5 +1,5 @@
 object Form1: TForm1
-  Left = 226
+  Left = 317
  Height = 440
  Top = 126
  Width = 575
@ -42,7 +42,7 @@ object Form1: TForm1
    ParentColor = False
  end
  object Label5: TLabel
-    Left = 45
+    Left = 37
    Height = 14
    Top = 16
    Width = 52
@ -50,7 +50,7 @@ object Form1: TForm1
    ParentColor = False
  end
  object Label6: TLabel
-    Left = 167
+    Left = 133
    Height = 14
    Top = 16
    Width = 91
@ -58,7 +58,7 @@ object Form1: TForm1
    ParentColor = False
  end
  object Label7: TLabel
-    Left = 320
+    Left = 240
    Height = 14
    Top = 16
    Width = 82
@ -82,7 +82,7 @@ object Form1: TForm1
    ParentColor = False
  end
  object Label10: TLabel
-    Left = 464
+    Left = 472
    Height = 14
    Top = 16
    Width = 50
@ -97,6 +97,14 @@ object Form1: TForm1
    Caption = 'Disabled Color'
    ParentColor = False
  end
+  object Label12: TLabel
+    Left = 368
+    Height = 14
+    Top = 16
+    Width = 51
+    Caption = 'Text Color'
+    ParentColor = False
+  end
  object TrackBar1: TTrackBar
    Left = 8
    Height = 30
@ -282,13 +290,13 @@ object Form1: TForm1
  object LabeledEdit1: TLabeledEdit
    Left = 328
    Height = 23
-    Top = 240
+    Top = 216
    Width = 80
    EditLabel.AnchorSideLeft.Control = LabeledEdit1
    EditLabel.AnchorSideBottom.Control = LabeledEdit1
    EditLabel.Left = 328
    EditLabel.Height = 14
-    EditLabel.Top = 223
+    EditLabel.Top = 199
    EditLabel.Width = 73
    EditLabel.Caption = 'Button Caption'
    EditLabel.ParentColor = False
@ -302,13 +310,14 @@ object Form1: TForm1
    Height = 96
    Top = 200
    Width = 168
+    Caption = 'Sample Text'
    Font.Height = -15
+    Font.Style = [fsItalic]
    OnClick = bClick
    TabOrder = 9
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'Sample Text'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -316,20 +325,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000E46CDC00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton1: TGradButton
-    Left = 16
+  object BaseColorButton: TGradButton
+    Left = 8
    Height = 25
    Top = 35
    Width = 104
+    Caption = 'BaseColorButton'
    OnClick = BaseColorClick
    TabOrder = 10
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton1'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -337,20 +350,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000B46CDC00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton2: TGradButton
-    Left = 160
+  object NormalBlendColorButton: TGradButton
+    Left = 120
    Height = 25
    Top = 35
    Width = 104
+    Caption = 'NormalBlendColorButton'
    OnClick = NormalBlendClick
    TabOrder = 11
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton2'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -358,20 +375,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000BC330700
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton3: TGradButton
-    Left = 304
+  object OverBlendButton: TGradButton
+    Left = 232
    Height = 25
    Top = 35
    Width = 104
+    Caption = 'OverBlendButton'
    OnClick = OverBlendClick
    TabOrder = 12
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton3'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -379,6 +400,10 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000FC8BE500
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
@ -387,12 +412,12 @@ object Form1: TForm1
    Height = 25
    Top = 149
    Width = 104
+    Caption = 'Load Glyph'
    OnClick = GradButton4Click
    TabOrder = 13
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'load Glyph'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -400,20 +425,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000BC03E200
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton5: TGradButton
+  object GlyphBackgroundColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 200
    Width = 104
-    OnClick = GradButton5Click
+    Caption = 'GlyphBackgroundColorButton'
+    OnClick = GlyphBackgroundColorButtonClick
    TabOrder = 14
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton5'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -421,20 +450,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000646BDC00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton6: TGradButton
+  object ClickColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 35
    Width = 104
-    OnClick = GradButton6Click
+    Caption = 'ClickColorButton'
+    OnClick = ClickColorButtonClick
    TabOrder = 15
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton6'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -442,20 +475,24 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      18000000000004000000640000006400000000000000000000002CFDDE00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
-  object GradButton7: TGradButton
+  object DisabledColorButton: TGradButton
    Left = 452
    Height = 25
    Top = 93
    Width = 104
-    OnClick = GradButton7Click
+    Caption = 'DisabledColorButton'
+    OnClick = DisabledColorButtonClick
    TabOrder = 16
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton7'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -463,9 +500,65 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      18000000000004000000640000006400000000000000000000005454DC00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  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 = 46
+    Caption = 'Bold'
+    OnChange = BoldCheckBoxChange
+    TabOrder = 18
+  end
+  object TextColorButton: TGradButton
+    Left = 344
+    Height = 25
+    Top = 35
+    Width = 104
+    Caption = 'Text Color'
+    OnClick = TextColorButtonClick
+    TabOrder = 19
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      1800000000000400000064000000640000000000000000000000ACF3E100
+    }
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object ItalicCheckBox: TCheckBox
+    Left = 327
+    Height = 19
+    Top = 280
+    Width = 49
+    Caption = 'Italic'
+    OnChange = ItalicCheckBoxChange
+    TabOrder = 20
+  end
  object ColorDialog1: TColorDialog
    Color = 11954481
    left = 48
--- a/components/gradcontrols/examples/Forms/main.lrs
+++ b/components/gradcontrols/examples/Forms/main.lrs
@ -1,164 +1,204 @@
+{ This is an automatically generated lazarus resource file }
+
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#226#0#6'Height'#3#184#1#3'Top'#2'~'#5'Wid'
-  +'th'#3'?'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSystemM'
-  +'enu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGradBu'
-  +'tton-Demo'#12'ClientHeight'#3#184#1#11'ClientWidth'#3'?'#2#8'OnCreate'#7#10
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'='#1#6'Height'#3#184#1#3'Top'#2'~'#5'Widt'
+  +'h'#3'?'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSystemMe'
+  +'nu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGradBut'
+  +'ton-Demo'#12'ClientHeight'#3#184#1#11'ClientWidth'#3'?'#2#8'OnCreate'#7#10
  +'FormCreate'#10'LCLVersion'#6#6'0.9.25'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6
  +'Height'#2#14#3'Top'#2'K'#5'Width'#2'<'#7'Caption'#6#11'NormalBlend'#11'Pare'
  +'ntColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#131#0
  +#5'Width'#2'3'#7'Caption'#6#9'OverBlend'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
  +'abel3'#4'Left'#2'X'#6'Height'#2#14#3'Top'#2'K'#5'Width'#2#1#11'ParentColor'
  +#8#0#0#6'TLabel'#6'Label4'#4'Left'#2'X'#6'Height'#2#14#3'Top'#3#131#0#5'Widt'
-  +'h'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2'-'#6'Height'#2#14
+  +'h'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2'%'#6'Height'#2#14
  +#3'Top'#2#16#5'Width'#2'4'#7'Caption'#6#10'Base Color'#11'ParentColor'#8#0#0
-  +#6'TLabel'#6'Label6'#4'Left'#3#167#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'['
+  +#6'TLabel'#6'Label6'#4'Left'#3#133#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'['
  +#7'Caption'#6#18'Normal Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label'
-  +'7'#4'Left'#3'@'#1#6'Height'#2#14#3'Top'#2#16#5'Width'#2'R'#7'Caption'#6#16
+  +'7'#4'Left'#3#240#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'R'#7'Caption'#6#16
  +'Over Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#232#1
  +#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2#28#7'Caption'#6#5'Glyph'#11'Parent'
  +'Color'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#205#1#6'Height'#2#14#3'Top'#3#184
  +#0#5'Width'#2'W'#7'Caption'#6#16'Glyph Background'#11'ParentColor'#8#0#0#6'T'
-  +'Label'#7'Label10'#4'Left'#3#208#1#6'Height'#2#14#3'Top'#2#16#5'Width'#2'2'#7
+  +'Label'#7'Label10'#4'Left'#3#216#1#6'Height'#2#14#3'Top'#2#16#5'Width'#2'2'#7
  +'Caption'#6#11'Click Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Lef'
  +'t'#3#208#1#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'E'#7'Caption'#6#14'Disable'
-  +'d Color'#11'ParentColor'#8#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Heig'
-  +'ht'#2#30#3'Top'#2'`'#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15
-  +'TrackBar1Change'#8'ScalePos'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'
-  +#7#8'alCustom'#8'TabOrder'#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'H'
-  +'eight'#2#30#3'Top'#3#155#0#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'
-  +#7#15'TrackBar2Change'#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7
-  +#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'Che'
-  +'ckGroup1'#4'Left'#2#8#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoF'
-  +'ill'#9#7'Caption'#6#12'Border Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28
-  +'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
-  +'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
-  +'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
-  +'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
-  +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Str'
-  +'ings'#1#6#12'bsBottomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'
-  +#0#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0
-  +#0#0#4#0#0#0#2#2#2#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2#8#6'Heigh'
-  +'t'#2'Y'#3'Top'#3#216#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'
+  +'d Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'#1#6'Height'
+  +#2#14#3'Top'#2#16#5'Width'#2'3'#7'Caption'#6#10'Text Color'#11'ParentColor'#8
+  +#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'Top'#2'`'#5'Widt'
+  +'h'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'ScalePo'
+  +'s'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'
+  +#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#155#0
+  +#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar2Change'#8'S'
+  +'calePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'a'
+  +'lCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#2#8#6
+  +'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#12'B'
+  +'order Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomS'
+  +'pacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
+  +#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
+  +'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
+  +#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
+  +'m'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12'bsBottomLin'
+  +'e'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItemClick'#7#20
+  +'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0#0#0#4#0#0#0#2#2#2#2#0#0
+  +#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2#8#6'Height'#2'Y'#3'Top'#3#216#0#5
+  +'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'#28'ChildSizing.LeftRight'
+  +'Spacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHor'
+  +'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24
+  +'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi'
+  +'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay'
+  +'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1
+  +#13'Items.Strings'#1#6#15'ShowFocusBorder'#6#9'ShowGlyph'#6#7'Enabled'#0#11
+  +'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrder'#2#6#4'Data'#10#7#0#0#0#3
+  +#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3#176#1#6'Height'#2
+  +'A'#3'Top'#3#240#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#13'Gradient T'
+  +'ype'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2
+  +#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Child'
+  +'Sizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shrin'
+  +'kHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsSc'
+  +'aleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Ch'
+  +'ildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'/'#11'ClientWidth'#2'}'#9
+  +'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHorizontal'#6#10'gtVertical'#0#7
+  +'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8#0#0#11'TRadioGroup'#11'Radi'
+  +'oGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'Au'
+  +'toFill'#9#7'Caption'#6#17'Rotated Direction'#28'ChildSizing.LeftRightSpacin'
+  +'g'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizonta'
+  +'l'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsH'
+  +'omogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'
+  ,#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7
+  +#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Cl'
+  +'ientHeight'#2'W'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6
+  +#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnClick'#7#16'RadioGroup2Click'#8
+  +'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGroup3'#4'Left'#3'('#1#6'Height'#2
+  +'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFill'#9#7'Caption'#6#13'Button Layout'
  +#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
  +'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
  +'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
  +'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
  +'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
-  +'zing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#15'ShowFocusBorder'#6#9'Sho'
-  +'wGlyph'#6#7'Enabled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrde'
-  +'r'#2#6#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'
-  +#4'Left'#3#176#1#6'Height'#2'A'#3'Top'#3#240#0#5'Width'#3#129#0#8'AutoFill'#9
-  +#7'Caption'#6#13'Gradient Type'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chil'
-  +'dSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHom'
-  +'ogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChild'
-  +'Resize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
-  +'g.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftT'
-  +'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'
-  +#2'/'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHoriz'
-  +'ontal'#6#10'gtVertical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8
-  +#0#0#11'TRadioGroup'#11'RadioGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3'Top'#3
-  +'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Direction'#28'C'
-  +'hildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Ch'
-  +'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.'
-  +'EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizo'
-  +'ntal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChil'
-  +'ds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizi'
-  ,'ng.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'}'#9'ItemIn'
-  +'dex'#2#0#13'Items.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnC'
-  +'lick'#7#16'RadioGroup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGr'
-  +'oup3'#4'Left'#3'('#1#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFill'
-  +#9#7'Caption'#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28'Ch'
-  +'ildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsH'
-  +'omogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChi'
-  +'ldResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSiz'
-  +'ing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLef'
-  +'tToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeigh'
-  +'t'#2'W'#11'ClientWidth'#2'u'#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'blGl'
-  +'yphRight'#6#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnClic'
-  +'k'#7#16'RadioGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGroup'
-  +'4'#4'Left'#3#176#1#6'Height'#2'j'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'
-  +#9#7'Caption'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6#28'C'
-  +'hildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crs'
-  +'HomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousCh'
-  +'ildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSi'
-  +'zing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLe'
-  +'ftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeig'
-  +'ht'#2'X'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'taCe'
-  +'nter'#6#13'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGroup'
-  +'4Click'#8'TabOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1
-  +#6'Height'#2#23#3'Top'#3#240#0#5'Width'#2'P EditLabel.AnchorSideLeft.Control'
-  +#7#12'LabeledEdit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14
-  +'EditLabel.Left'#3'H'#1#16'EditLabel.Height'#2#14#13'EditLabel.Top'#3#223#0
-  +#15'EditLabel.Width'#2'I'#17'EditLabel.Caption'#6#14'Button Caption'#21'Edit'
-  +'Label.ParentColor'#8#11'ParentColor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample '
-  +'Text'#7'OnKeyUp'#7#17'LabeledEdit1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3
-  +#152#0#6'Height'#2'`'#3'Top'#3#200#0#5'Width'#3#168#0#11'Font.Height'#2#241#7
-  +'OnClick'#7#6'bClick'#8'TabOrder'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0
-  +#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6
-  +#11'Sample Text'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlen'
-  +'dColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7
-  +#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
-  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhit'
-  +'e'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton1'#4'Left'#2
-  +#16#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#14'BaseColorClick'
-  +#8'TabOrder'#2#10#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9
-  +'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton1'#9'B'
-  +'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
-  +#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'Bord'
-  +'erSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0
-  +#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7
-  +#6'clBlue'#0#0#11'TGradButton'#11'GradButton2'#4'Left'#3#160#0#6'Height'#2#25
-  +#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#16'NormalBlendClick'#8'TabOrder'#2#11
-  +#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'
-  +#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton2'#9'BaseColor'#7#6'clB'
-  +'lue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCol'
-  +'or'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'b'
-  +'sTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBor'
-  +'der'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0
-  +#11'TGradButton'#11'GradButton3'#4'Left'#3'0'#1#6'Height'#2#25#3'Top'#2'#'#5
-  +'Width'#2'h'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2#12#7'TabStop'#9#11
-  +'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'
-  +#167#254'?'#7'Caption'#6#11'GradButton3'#9'BaseColor'#7#6'clBlue'#5'Color'#7
-  +#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'
-  +#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBot'
-  +'tomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBac'
+  +'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'u'#9'Item'
+  +'Index'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6#11'blGlyphLeft'#6#10'bl'
+  +'GlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'RadioGroup3Click'#8'TabOrde'
+  +'r'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3#176#1#6'Height'#2'j'#3
+  +'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#14'Text Alignment'
+  +#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
+  +'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
+  +'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
+  +'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
+  +'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
+  +'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'X'#11'ClientWidth'#2'}'#9'Item'
+  +'Index'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13'taLeftJustify'#6#14'taRig'
+  +'htJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'TabOrder'#2#5#0#0#12'TLabe'
+  +'ledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1#6'Height'#2#23#3'Top'#3#216#0#5'Wi'
+  +'dth'#2'P EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit1"EditLabel.Anch'
+  +'orSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Left'#3'H'#1#16'EditL'
+  +'abel.Height'#2#14#13'EditLabel.Top'#3#199#0#15'EditLabel.Width'#2'I'#17'Edi'
+  +'tLabel.Caption'#6#14'Button Caption'#21'EditLabel.ParentColor'#8#11'ParentC'
+  +'olor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyUp'#7#17'LabeledEd'
+  +'it1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6'Height'#2'`'#3'Top'#3
+  +#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#11'Font.Height'#2#241#10
+  +'Font.Style'#11#8'fsItalic'#0#7'OnClick'#7#6'bClick'#8'TabOrder'#2#9#7'TabSt'
+  +'op'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'
+  +#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalB'
+  +'lendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'
+  +#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLi'
+  +'ne'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0
+  +#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4
+  +#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#228'l'#220#0#20'GlyphBackgroundColo'
+  +'r'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'BaseColor'
+  +'Button'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15
+  +'BaseColorButton'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10#7'TabStop'
+  +#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2
+  +'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendC'
+  +'olor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9
+  +'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
+  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0
+  +'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0
+  +#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#180'l'#220#0#20'GlyphBackgroundColor'#7
+  +#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#22'NormalBlendCol'
+  +'orButton'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6
+  +#22'NormalBlendColorButton'#7'OnClick'#7#16'NormalBlendClick'#8'TabOrder'#2
+  +#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
+  +'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
+  +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
+  +'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'
+  +#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'
+  +#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0
+  +#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#188'3'#7#0#20'GlyphBackgr'
+  +'oundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'O'
+  +'verBlendButton'#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7
+  +'Caption'#6#15'OverBlendButton'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2
+  +#12#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
+  ,'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
+  +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
+  +'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'
+  +#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'
+  +#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0
+  +#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#139#229#0#20'GlyphBac'
  +'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11
  +'GradButton4'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#149#0#5'Width'#2'h'#7
-  +'OnClick'#7#16'GradButton4Click'#8'TabOrder'#2#13#7'TabStop'#9#11'NormalBlen'
-  +'d'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7
-  +'Caption'#6#10'load Glyph'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16
-  ,'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou'
+  +'Caption'#6#10'Load Glyph'#7'OnClick'#7#16'GradButton4Click'#8'TabOrder'#2#13
+  +#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'
+  +#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16
+  +'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou'
  +'ndColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10
-  +'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'
-  +#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton5'
-  +#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#200#0#5'Width'#2'h'#7'OnClick'#7#16
-  +'GradButton5Click'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0
-  +#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11
-  +'GradButton5'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendCo'
-  +'lor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9
-  +'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
-  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhit'
-  +'e'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton6'#4'Left'#3
-  +#196#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#16'GradButton6C'
-  +'lick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254
-  +'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton6'
+  +'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0
+  +#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0
+  +#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#188#3#226#0#20'GlyphBackgroun'
+  +'dColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#26'Glyp'
+  +'hBackgroundColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#200#0#5'Wid'
+  +'th'#2'h'#7'Caption'#6#26'GlyphBackgroundColorButton'#7'OnClick'#7#31'GlyphB'
+  +'ackgroundColorButtonClick'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0
+  +#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseC'
+  +'olor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14
+  +'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderS'
+  +'ides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15
+  +'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'
+  +#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0
+  +#0#0#0#0#0#0#0'dk'#220#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'
+  +#7#6'clBlue'#0#0#11'TGradButton'#16'ClickColorButton'#4'Left'#3#196#1#6'Heig'
+  +'ht'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#16'ClickColorButton'#7'OnCl'
+  +'ick'#7#21'ClickColorButtonClick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBle'
+  +'nd'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'
  +#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWh'
  +'ite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11
  +'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'
-  +#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'
-  +#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton7'#4'Left'#3#196#1#6'Height'#2
-  +#25#3'Top'#2']'#5'Width'#2'h'#7'OnClick'#7#16'GradButton7Click'#8'TabOrder'#2
-  +#16#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
-  +'^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton7'#9'BaseColor'#7#6
-  +'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlend'
-  +'Color'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9
-  +'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBo'
-  +'rder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0
-  +#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1i'#182#0#4'left'#2'0'#3'top'#3
-  +#176#0#0#0#10'TImageList'#10'ImageList1'#4'left'#2#8#3'top'#3#176#0#0#0#18'T'
-  +'OpenPictureDialog'#18'OpenPictureDialog1'#6'Filter'#6#255'Graphic (*.tga;*.'
-  +'jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pg'
-  +'m;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert'
-  +' Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Por'
-  +'table Graymap'#4'left'#2'X'#3'top'#3#176#0#0#0#0
+  +#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0
+  +#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0
+  +#0#0#0#0#0#0#0#0#0','#253#222#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'Cli'
+  +'ckColor'#7#6'clBlue'#0#0#11'TGradButton'#19'DisabledColorButton'#4'Left'#3
+  +#196#1#6'Height'#2#25#3'Top'#2']'#5'Width'#2'h'#7'Caption'#6#19'DisabledColo'
+  +'rButton'#7'OnClick'#7#24'DisabledColorButtonClick'#8'TabOrder'#2#16#7'TabSt'
+  +'op'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'
+  +#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalB'
+  +'lendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'
+  +#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLi'
+  +'ne'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0
+  +#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4
+  +#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0'TT'#220#0#20'GlyphBackgroundColor'#7
+  +#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#9'TCheckBox'#17'UnderlineCheckBox'
+  +#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#242#0#5'Width'#2'G'#7'Caption'#6#9'U'
+  +'nderline'#8'OnChange'#7#23'UnderlineCheckBoxChange'#8'TabOrder'#2#17#0#0#9
+  +'TCheckBox'#12'BoldCheckBox'#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#5#1#5'Wi'
+  +'dth'#2'.'#7'Caption'#6#4'Bold'#8'OnChange'#7#18'BoldCheckBoxChange'#8'TabOr'
+  +'der'#2#18#0#0#11'TGradButton'#15'TextColorButton'#4'Left'#3'X'#1#6'Height'#2
+  +#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#10'Text Color'#7'OnClick'#7#20'Te'
+  +'xtColorButtonClick'#8'TabOrder'#2#19#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0
+  +#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7
+  +#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBle'
+  +'ndColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11
+  +#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocus'
+  +'Border'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('
+  +#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0
+  +#0#0#172#243#225#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6
+  +'clBlue'#0#0#9'TCheckBox'#14'ItalicCheckBox'#4'Left'#3'G'#1#6'Height'#2#19#3
+  +'Top'#3#24#1#5'Width'#2'1'#7'Caption'#6#6'Italic'#8'OnChange'#7#20'ItalicChe'
+  ,'ckBoxChange'#8'TabOrder'#2#20#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'
+  +#4'1i'#182#0#4'left'#2'0'#3'top'#3#176#0#0#0#10'TImageList'#10'ImageList1'#4
+  +'left'#2#8#3'top'#3#176#0#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#6
+  +'Filter'#6#255'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bm'
+  +'p)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.'
+  +'tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Po'
+  +'rtable Pixmap (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'X'#3'top'#3#176#0#0
+  +#0#0
 ]);
--- a/components/gradcontrols/examples/Forms/main.pas
+++ b/components/gradcontrols/examples/Forms/main.pas
@ -14,17 +14,22 @@ type
  { TForm1 }

  TForm1 = class(TForm)
+    BoldCheckBox: TCheckBox;
+    ItalicCheckBox: TCheckBox;
+    Label12: TLabel;
+    TextColorButton: TGradButton;
+    UnderlineCheckBox: TCheckBox;
    CheckGroup1: TCheckGroup;
    CheckGroup2: TCheckGroup;
    ColorDialog1: TColorDialog;
    b: TGradButton;
-    GradButton1: TGradButton;
-    GradButton2: TGradButton;
-    GradButton3: TGradButton;
+    BaseColorButton: TGradButton;
+    NormalBlendColorButton: TGradButton;
+    OverBlendButton: TGradButton;
    GradButton4: TGradButton;
-    GradButton5: TGradButton;
-    GradButton6: TGradButton;
-    GradButton7: TGradButton;
+    GlyphBackgroundColorButton: TGradButton;
+    ClickColorButton: TGradButton;
+    DisabledColorButton: TGradButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label10: TLabel;
@ -46,13 +51,15 @@ type
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    procedure bClick(Sender: TObject);
+    procedure BoldCheckBoxChange(Sender: TObject);
    procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
    procedure CheckGroup2ItemClick(Sender: TObject; Index: integer);
    procedure BaseColorClick(Sender: TObject);
    procedure GradButton4Click(Sender: TObject);
-    procedure GradButton5Click(Sender: TObject);
-    procedure GradButton6Click(Sender: TObject);
-    procedure GradButton7Click(Sender: TObject);
+    procedure GlyphBackgroundColorButtonClick(Sender: TObject);
+    procedure ClickColorButtonClick(Sender: TObject);
+    procedure DisabledColorButtonClick(Sender: TObject);
+    procedure ItalicCheckBoxChange(Sender: TObject);
    procedure NormalBlendClick(Sender: TObject);
    procedure OverBlendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
@ -60,10 +67,12 @@ type
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
+    procedure TextColorButtonClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
+    procedure UnderlineCheckBoxChange(Sender: TObject);
  end;

 var
@ -74,6 +83,12 @@ implementation
 uses
    GraphType, LazPNG;

+procedure UpdateButtonColor(Button: TGradButton; Color: TColor);
+begin
+  Button.BaseColor := Color;
+  Button.Caption := ColorToString(Color);
+end;
+
 { TForm1 }

 procedure TForm1.FormCreate(Sender: TObject);
@ -84,23 +99,13 @@ begin
  TrackBar2.Position:= trunc(b.OverBlend * TrackBar2.Max);
  TrackBar2Change(TrackBar2);

-  with GradButton1 do
-  begin
-      BaseColor:=b.BaseColor;
-      Caption:=ColorToString(BaseColor);
-  end;
-  
-  with GradButton2 do
-  begin
-      BaseColor:=b.NormalBlendColor;
-      Caption:=ColorToString(BaseColor);
-  end;
-  
-  with GradButton3 do
-  begin
-      BaseColor:=b.OverBlendColor;
-      Caption:=ColorToString(BaseColor);
-  end;
+  UpdateButtonColor(BaseColorButton, b.BaseColor);
+  UpdateButtonColor(NormalBlendColorButton, b.NormalBlendColor);
+  UpdateButtonColor(OverBlendButton, b.OverBlendColor);
+  UpdateButtonColor(GlyphBackgroundColorButton, b.GlyphBackgroundColor);
+  UpdateButtonColor(ClickColorButton, b.ClickColor);
+  UpdateButtonColor(DisabledColorButton, b.DisabledColor);
+  UpdateButtonColor(TextColorButton, b.Font.Color);

  CheckGroup1.Checked[0]:=true;
  CheckGroup1.Checked[1]:=true;
@ -116,14 +121,6 @@ begin

  //ImageList1.GetBitmap();

-  b.GlyphBackgroundColor:=clWhite;
-  GradButton5.BaseColor:=clWhite;
-  GradButton5.Caption:=ColorToString(clWhite);
-  GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
-  GradButton7.Caption:=ColorToString(b.DisabledColor);
-  GradButton7.BaseColor:=b.DisabledColor;
-  
-  b.ClickColor:=GradButton6.BaseColor;
  b.Caption:=LabeledEdit1.Text;
 end;

@ -165,14 +162,23 @@ begin
  end;
 end;

+procedure TForm1.TextColorButtonClick(Sender: TObject);
+begin
+  ColorDialog1.Color := b.Font.Color;
+  if ColorDialog1.Execute then
+  begin
+    b.Font.Color := ColorDialog1.Color;
+    UpdateButtonColor(TextColorButton, ColorDialog1.Color);
+  end;
+end;
+
 procedure TForm1.BaseColorClick(Sender: TObject);
 begin
-    ColorDialog1.Color:=GradButton1.BaseColor;
+    ColorDialog1.Color:=BaseColorButton.BaseColor;
    if ColorDialog1.Execute then
    begin
        b.BaseColor:=ColorDialog1.Color;
-        GradButton1.BaseColor:=ColorDialog1.Color;
-        GradButton1.Caption:=ColorToString(GradButton1.BaseColor);
+        UpdateButtonColor(BaseColorButton, ColorDialog1.Color);
    end;
 end;

@ -212,53 +218,65 @@ begin
  end;
 end;

-procedure TForm1.GradButton5Click(Sender: TObject);
+procedure TForm1.GlyphBackgroundColorButtonClick(Sender: TObject);
 begin
   ColorDialog1.Color:=b.GlyphBackgroundColor;
   if ColorDialog1.Execute then
   begin
       b.GlyphBackgroundColor:=ColorDialog1.Color;
-       GradButton5.BaseColor:=ColorDialog1.Color;
-       GradButton5.Caption:=ColorToString(GradButton5.BaseColor);
+       UpdateButtonColor(GlyphBackgroundColorButton, ColorDialog1.Color);
   end;
 end;

-procedure TForm1.GradButton6Click(Sender: TObject);
+procedure TForm1.ClickColorButtonClick(Sender: TObject);
 begin
    ColorDialog1.Color:=b.ClickColor;
    if ColorDialog1.Execute then
    begin
        b.ClickColor:=ColorDialog1.Color;
-        GradButton6.BaseColor:=ColorDialog1.Color;
-        GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
+        UpdateButtonColor(ClickColorButton, ColorDialog1.Color);
    end;
 end;

-procedure TForm1.GradButton7Click(Sender: TObject);
+procedure TForm1.DisabledColorButtonClick(Sender: TObject);
 begin
    ColorDialog1.Color:=b.DisabledColor;
    if ColorDialog1.Execute then
    begin
        b.DisabledColor:=ColorDialog1.Color;
-        GradButton7.BaseColor:=ColorDialog1.Color;
-        GradButton7.Caption:=ColorToString(GradButton7.BaseColor);
+        UpdateButtonColor(DisabledColorButton, ColorDialog1.Color);
    end;
 end;

+procedure TForm1.ItalicCheckBoxChange(Sender: TObject);
+begin
+  if ItalicCheckBox.Checked then
+    b.Font.Style := b.Font.Style + [fsItalic]
+  else
+    b.Font.Style := b.Font.Style - [fsItalic];
+end;
+
 procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
  b.Caption:=LabeledEdit1.Text;
 end;

+procedure TForm1.UnderlineCheckBoxChange(Sender: TObject);
+begin
+  if UnderlineCheckBox.Checked then
+    b.Font.Style := b.Font.Style + [fsUnderline]
+  else
+    b.Font.Style := b.Font.Style - [fsUnderline];
+end;
+
 procedure TForm1.NormalBlendClick(Sender: TObject);
 begin
    ColorDialog1.Color:=b.NormalBlendColor;
    if ColorDialog1.Execute then
    begin
        b.NormalBlendColor:=ColorDialog1.Color;
-        GradButton2.BaseColor:=ColorDialog1.Color;
-        GradButton2.Caption:=ColorToString(GradButton2.BaseColor);
+        UpdateButtonColor(NormalBlendColorButton, ColorDialog1.Color);
    end;
 end;

@ -268,8 +286,7 @@ begin
    if ColorDialog1.Execute then
    begin
        b.OverBlendColor:=ColorDialog1.Color;
-        GradButton3.BaseColor:=ColorDialog1.Color;
-        GradButton3.Caption:=ColorToString(GradButton3.BaseColor);
+        UpdateButtonColor(OverBlendButton, ColorDialog1.Color);
    end;
 end;

@ -278,6 +295,14 @@ begin

 end;

+procedure TForm1.BoldCheckBoxChange(Sender: TObject);
+begin
+  if BoldCheckBox.Checked then
+    b.Font.Style := b.Font.Style + [fsBold]
+  else
+    b.Font.Style := b.Font.Style - [fsBold];
+end;
+
 procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
 var
   bs : TBorderSides;
--- a/components/gradcontrols/examples/Forms/unit1.lfm
+++ b/components/gradcontrols/examples/Forms/unit1.lfm
@ -1,7 +1,7 @@
 object Form1: TForm1
-  Left = 194
+  Left = 81
  Height = 506
-  Top = 169
+  Top = 164
  Width = 898
  Caption = 'Form1'
  ClientHeight = 506
@ -14,6 +14,7 @@ object Form1: TForm1
    Height = 104
    Top = 88
    Width = 176
+    Caption = 'GradButton1'
    OnClick = GradButton1Click
    OnMouseDown = GradButton1MouseDown
    OnMouseEnter = GradButton1MouseEnter
@ -24,7 +25,6 @@ object Form1: TForm1
    TabStop = True
    NormalBlend = 0.5
    OverBlend = 0.653
-    Caption = 'GradButton1'
    BaseColor = clBlue
    Color = clBlue
    NormalBlendColor = clWhite
@ -32,6 +32,10 @@ object Form1: TForm1
    BackgroundColor = clBtnFace
    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
    ShowFocusBorder = True
+    Glyph.Data = {
+      3A000000424D3A00000000000000360000002800000001000000010000000100
+      18000000000004000000640000006400000000000000000000009451DC00
+    }
    GlyphBackgroundColor = clWhite
    ClickColor = clBlue
  end
@ -83,7 +87,7 @@ object Form1: TForm1
        PageIndex = 2
        Caption = 'GradTabPage3'
        object Memo1: TMemo
-          Left = 38
+          Left = 6
          Height = 362
          Top = 49
          Width = 326
@ -499,6 +503,7 @@ object Form1: TForm1
      Align = alRight
      ControlStyle = [csAcceptsControls]
      ActivePage = GradTabPage6
+      PageIndex = 1
      TabHeight = 30
      TabPosition = tpLeft
      object GradTabPage7: TGradTabPage
@ -508,7 +513,6 @@ object Form1: TForm1
        Width = 84
        ControlState = [csVisibleSetInLoading]
        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
-        PageIndex = 1
        Caption = 'GradTabPage7'
      end
      object GradTabPage6: TGradTabPage
@ -518,6 +522,7 @@ object Form1: TForm1
        Width = 84
        ControlState = [csVisibleSetInLoading]
        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
+        PageIndex = 1
        Caption = 'GradTabPage6'
        ShowCloseButton = True
      end
@ -548,12 +553,12 @@ object Form1: TForm1
      Height = 25
      Top = 48
      Width = 100
+      Caption = 'Add'
      OnClick = GradButton3Click
      TabOrder = 1
      TabStop = True
      NormalBlend = 0.5
      OverBlend = 0.653
-      Caption = 'Add'
      BaseColor = clBlue
      Color = clBlue
      NormalBlendColor = clWhite
@ -561,6 +566,10 @@ object Form1: TForm1
      BackgroundColor = clBtnFace
      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
      ShowFocusBorder = True
+      Glyph.Data = {
+        3A000000424D3A00000000000000360000002800000001000000010000000100
+        1800000000000400000064000000640000000000000000000000FC8FE500
+      }
      GlyphBackgroundColor = clWhite
      ClickColor = clBlue
    end
@ -569,12 +578,12 @@ object Form1: TForm1
      Height = 25
      Top = 112
      Width = 100
+      Caption = 'Delete'
      OnClick = GradButton4Click
      TabOrder = 2
      TabStop = True
      NormalBlend = 0.5
      OverBlend = 0.653
-      Caption = 'Delete'
      BaseColor = clBlue
      Color = clBlue
      NormalBlendColor = clWhite
@ -582,6 +591,10 @@ object Form1: TForm1
      BackgroundColor = clBtnFace
      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
      ShowFocusBorder = True
+      Glyph.Data = {
+        3A000000424D3A00000000000000360000002800000001000000010000000100
+        1800000000000400000064000000640000000000000000000000ACA4E500
+      }
      GlyphBackgroundColor = clWhite
      ClickColor = clBlue
    end
@ -590,12 +603,12 @@ object Form1: TForm1
      Height = 25
      Top = 80
      Width = 100
+      Caption = 'Add Custom Page'
      OnClick = GradButton2Click
      TabOrder = 3
      TabStop = True
      NormalBlend = 0.5
      OverBlend = 0.653
-      Caption = 'Add Custom Page'
      BaseColor = clBlue
      Color = clBlue
      NormalBlendColor = clWhite
@ -603,6 +616,10 @@ object Form1: TForm1
      BackgroundColor = clBtnFace
      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
      ShowFocusBorder = True
+      Glyph.Data = {
+        3A000000424D3A00000000000000360000002800000001000000010000000100
+        18000000000004000000640000006400000000000000000000008C440700
+      }
      GlyphBackgroundColor = clWhite
      ClickColor = clBlue
    end
@ -662,14 +679,14 @@ object Form1: TForm1
      Left = 44
      Height = 24
      Top = 336
-      Width = 21
+      Width = 24
+      Caption = 'X'
      Font.Name = 'System'
      Font.Style = [fsBold]
      TabOrder = 8
      TabStop = True
      NormalBlend = 0.5
      OverBlend = 0.653
-      Caption = 'X'
      BaseColor = clBtnFace
      Color = clBtnFace
      NormalBlendColor = clBtnFace
@ -679,13 +696,17 @@ object Form1: TForm1
      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
      ShowFocusBorder = True
      RotateDirection = rdRight
+      Glyph.Data = {
+        3A000000424D3A00000000000000360000002800000001000000010000000100
+        1800000000000400000064000000640000000000000000000000FCCFE100
+      }
      GlyphBackgroundColor = clWhite
      ClickColor = clBtnFace
    end
    object ScrollBox1: TScrollBox
-      Left = -36
+      Left = -28
      Height = 150
-      Top = 320
+      Top = 336
      Width = 150
      HorzScrollBar.Page = 145
      VertScrollBar.Page = 145
--- a/components/gradcontrols/examples/Forms/unit1.lrs
+++ b/components/gradcontrols/examples/Forms/unit1.lrs
@ -1,183 +1,194 @@
 { Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }

 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#194#0#6'Height'#3#250#1#3'Top'#3#169#0#5
-  +'Width'#3#130#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#250#1#11'ClientWidt'
-  +'h'#3#130#3#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'L'
-  +'CLVersion'#6#6'0.9.25'#0#11'TGradButton'#11'GradButton1'#4'Left'#2#24#6'Hei'
-  +'ght'#2'h'#3'Top'#2'X'#5'Width'#3#176#0#7'OnClick'#7#16'GradButton1Click'#11
-  +'OnMouseDown'#7#20'GradButton1MouseDown'#12'OnMouseEnter'#7#21'GradButton1Mo'
-  +'useEnter'#12'OnMouseLeave'#7#21'GradButton1MouseLeave'#11'OnMouseMove'#7#20
-  +'GradButton1MouseMove'#9'OnMouseUp'#7#18'GradButton1MouseUp'#8'TabOrder'#2#0
-  +#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'
-  +#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton1'#9'BaseColor'#7#6'clB'
-  +'lue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCol'
-  +'or'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'b'
-  +'sTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBor'
-  +'der'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0
-  +#6'TPanel'#6'Panel1'#6'Height'#3#250#1#5'Width'#3#247#2#5'Align'#7#6'alLeft'
-  +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#6'Pa'
-  +'nel1'#12'ClientHeight'#3#250#1#11'ClientWidth'#3#247#2#8'TabOrder'#2#1#0#15
-  +'TGradTabControl'#15'GradTabControl1'#4'Left'#3#248#0#6'Height'#3#248#1#3'To'
-  +'p'#2#1#5'Width'#3#136#1#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAcc'
-  +'eptsControls'#19'csDesignInteractive'#8'csOpaque'#12'csMenuEvents'#18'csPar'
-  +'entBackground'#23'csOwnedChildsSelectable'#0#10'ActivePage'#7#12'GradTabPag'
-  +'e2'#16'OnTabButtonClick'#7#29'GradTabControl1TabButtonClick'#18'OnTabButton'
-  +'MouseUp'#7#31'GradTabControl1TabButtonMouseUp'#9'PageIndex'#2#1#9'TabHeight'
-  +#2#20#0#12'TGradTabPage'#12'GradTabPage1'#4'Left'#2#2#6'Height'#3#224#1#3'To'
-  +'p'#2#22#5'Width'#3#132#1#12'ControlState'#11#21'csVisibleSetInLoading'#0#12
-  +'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'
-  +#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFixedB'
-  +'ounds'#20'csNoDesignSelectable'#0#7'Caption'#6#12'GradTabPage1'#15'ShowClos'
-  +'eButton'#9#0#5'TEdit'#5'Edit1'#6'Height'#3#224#1#5'Width'#3#132#1#5'Align'#7
-  +#8'alClient'#8'TabOrder'#2#0#4'Text'#6#5'Edit1'#0#0#0#12'TGradTabPage'#12'Gr'
-  +'adTabPage3'#4'Left'#2#2#6'Height'#3#224#1#3'Top'#2#22#5'Width'#3#132#1#12'C'
-  +'ontrolState'#11#21'csVisibleSetInLoading'#0#12'ControlStyle'#11#14'csCaptur'
-  +'eMouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesign'
-  +'Visible'#19'csDesignFixedBounds'#20'csNoDesignSelectable'#0#9'PageIndex'#2#2
-  +#7'Caption'#6#12'GradTabPage3'#0#5'TMemo'#5'Memo1'#4'Left'#2'&'#6'Height'#3
-  +'j'#1#3'Top'#2'1'#5'Width'#3'F'#1#5'Align'#7#8'alClient'#13'Lines.Strings'#1
-  +#6#5'Memo1'#0#8'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTabPage2'#4'Left'
-  +#2#2#6'Height'#3#224#1#3'Top'#2#22#5'Width'#3#132#1#12'ControlState'#11#21'c'
-  +'sVisibleSetInLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14'csCapt'
-  +'ureMouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#19'csDesign'
-  +'FixedBounds'#0#9'PageIndex'#2#1#7'Caption'#6#12'GradTabPage2'#0#0#0#15'TGra'
-  +'dTabControl'#15'GradTabControl2'#4'Left'#2#1#6'Height'#3#248#1#3'Top'#2#1#5
-  +'Width'#3#247#0#5'Align'#7#6'alLeft'#12'ControlStyle'#11#17'csAcceptsControl'
-  +'s'#0#10'ActivePage'#7#12'GradTabPage5'#16'OnTabButtonClick'#7#29'GradTabCon'
-  +'trol2TabButtonClick'#9'PageIndex'#2#1#9'TabHeight'#2#25#11'TabPosition'#7#7
-  +'tpRight'#0#12'TGradTabPage'#12'GradTabPage4'#4'Left'#2#2#6'Height'#3'K'#2#3
-  +'Top'#2#2#5'Width'#3#218#0#12'ControlState'#11#21'csVisibleSetInLoading'#0#12
-  +'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'
-  +#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFixedB'
-  +'ounds'#20'csNoDesignSelectable'#0#10'TabVisible'#8#7'Caption'#6#24'GradTabP'
-  +'age4wewwerwerwer'#0#8'TSynEdit'#8'SynEdit1'#6'Height'#3'K'#2#5'Width'#3#218
-  +#0#5'Align'#7#8'alClient'#11'Font.Height'#2#12#9'Font.Name'#6#7'Courier'#10
-  +'Font.Pitch'#7#7'fpFixed'#11'ParentColor'#8#8'TabOrder'#2#0#24'BookMarkOptio'
-  +'ns.OnChange'#13#11'Highlighter'#7#10'SynPHPSyn1'#10'Keystrokes'#14#1#7'Comm'
-  +'and'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Comma'
-  +'nd'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Com'
-  +'mand'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7
-  +'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'C'
-  +'ommand'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'C'
-  +'ommand'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7
-  +'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7
-  +'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7
-  +'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7
-  +'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'C'
-  ,'ommand'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7
-  +'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'C'
-  +'ommand'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7
-  +'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'C'
-  +'ommand'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7
-  +'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0
-  +#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2
-  +'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCu'
-  +'t'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'S'
-  +'hortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'
-  +#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7
-  +'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'
-  +#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3
-  +'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'Short'
-  +'Cut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8
-  +'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251
-  +#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'
-  +#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Comm'
-  +'and'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7
-  +'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0
-  +#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5'
-  +'@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'
-  +#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'Short'
-  +'Cut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8
-  +'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'
-  +#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3
-  +'d'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Comman'
-  +'d'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'C'
-  +'ommand'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0
-  +#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3
-  +'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'
-  +#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#2
-  +'<?'#6#0#6#14'echo "string";'#6#0#6#2'?>'#0#22'SelectedColor.OnChange'#13#0#0
-  +#0#12'TGradTabPage'#12'GradTabPage5'#4'Left'#2#2#6'Height'#3#244#1#3'Top'#2#2
-  +#5'Width'#3#218#0#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'Control'
-  +'Style'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12'csS'
-  +'etCaption'#14'csDoubleClicks'#19'csDesignFixedBounds'#0#9'PageIndex'#2#1#7
-  +'Caption'#6#12'GradTabPage5'#15'ShowCloseButton'#9#0#11'TStringGrid'#11'Stri'
-  +'ngGrid1'#6'Height'#3#244#1#5'Width'#3#218#0#5'Align'#7#8'alClient'#8'ColCou'
-  +'nt'#2#5#14'ExtendedSelect'#9#10'FixedColor'#7#9'clBtnFace'#7'Options'#11#15
-  +'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRan'
-  +'geSelect'#14'goSmoothScroll'#0#8'RowCount'#2#5#8'TabOrder'#2#0#0#0#0#0#15'T'
-  +'GradTabControl'#15'GradTabControl3'#4'Left'#3#128#2#6'Height'#3#248#1#3'Top'
-  +#2#1#5'Width'#2'v'#5'Align'#7#7'alRight'#12'ControlStyle'#11#17'csAcceptsCon'
-  +'trols'#0#10'ActivePage'#7#12'GradTabPage6'#9'TabHeight'#2#30#11'TabPosition'
-  +#7#6'tpLeft'#0#12'TGradTabPage'#12'GradTabPage7'#4'Left'#2' '#6'Height'#3#244
-  +#1#3'Top'#2#2#5'Width'#2'T'#12'ControlState'#11#21'csVisibleSetInLoading'#0
-  +#12'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEven'
-  +'ts'#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFi'
-  +'xedBounds'#20'csNoDesignSelectable'#0#9'PageIndex'#2#1#7'Caption'#6#12'Grad'
-  +'TabPage7'#0#0#12'TGradTabPage'#12'GradTabPage6'#4'Left'#2' '#6'Height'#3#244
-  +#1#3'Top'#2#2#5'Width'#2'T'#12'ControlState'#11#21'csVisibleSetInLoading'#0
-  +#12'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEven'
-  +'ts'#12'csSetCaption'#14'csDoubleClicks'#19'csDesignFixedBounds'#0#7'Caption'
-  +#6#12'GradTabPage6'#15'ShowCloseButton'#9#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'
-  +#3#252#2#6'Height'#3#250#1#5'Width'#3#134#0#5'Align'#7#8'alClient'#7'Caption'
-  +#6#6'Panel2'#12'ClientHeight'#3#250#1#11'ClientWidth'#3#134#0#8'TabOrder'#2#2
-  +#0#9'TComboBox'#9'ComboBox1'#4'Left'#2#16#6'Height'#2#21#3'Top'#2#16#5'Width'
-  +#2'd'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscen'
-  +'ding'#0#10'ItemHeight'#2#13#8'OnChange'#7#15'ComboBox1Change'#5'Style'#7#14
-  +'csDropDownList'#8'TabOrder'#2#0#0#0#11'TGradButton'#11'GradButton3'#4'Left'
-  +#2#16#6'Height'#2#25#3'Top'#2'0'#5'Width'#2'd'#7'OnClick'#7#16'GradButton3Cl'
-  +'ick'#8'TabOrder'#2#1#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'
-  +#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#3'Add'#9'BaseColo'
-  ,'r'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'Ov'
-  +'erBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSid'
-  +'es'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'Sh'
-  +'owFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'c'
-  +'lBlue'#0#0#11'TGradButton'#11'GradButton4'#4'Left'#2#16#6'Height'#2#25#3'To'
-  +'p'#2'p'#5'Width'#2'd'#7'OnClick'#7#16'GradButton4Click'#8'TabOrder'#2#2#7'T'
-  +'abStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
-  +'I'#12#2'+'#167#254'?'#7'Caption'#6#6'Delete'#9'BaseColor'#7#6'clBlue'#5'Col'
-  +'or'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'cl'
-  +'Silver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'
-  +#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20
-  +'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradB'
-  +'utton'#11'GradButton2'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'P'#5'Width'#2'd'
-  +#7'OnClick'#7#16'GradButton2Click'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBle'
-  +'nd'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'
-  +#7'Caption'#6#15'Add Custom Page'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBl'
-  +'ue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'B'
-  +'ackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomL'
-  +'ine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgro'
-  +'undColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TRadioGroup'#11'Ra'
-  +'dioGroup1'#4'Left'#2#16#6'Height'#2'q'#3'Top'#3#152#0#5'Width'#2'd'#8'AutoF'
-  +'ill'#9#7'Caption'#6#12'Tab Position'#28'ChildSizing.LeftRightSpacing'#2#6#28
-  +'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
-  +'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
-  +'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
-  +'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
-  +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHei'
-  +'ght'#2'_'#11'ClientWidth'#2'`'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#5'tpT'
-  +'op'#6#8'tpBottom'#6#6'tpLeft'#6#7'tpRight'#0#7'OnClick'#7#16'RadioGroup1Cli'
-  +'ck'#8'TabOrder'#2#4#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#15#6'Height'#2
-  +#19#3'Top'#3#20#1#5'Width'#2'K'#7'Caption'#6#9'Long Tabs'#7'OnClick'#7#14'Ch'
-  +'eckBox1Click'#8'TabOrder'#2#5#0#0#9'TSpinEdit'#9'SpinEdit1'#4'Left'#2'_'#6
-  +'Height'#2#19#3'Top'#3#20#1#5'Width'#2'"'#8'MaxValue'#2'2'#13'OnEditingDone'
-  +#7#20'SpinEdit1EditingDone'#8'TabOrder'#2#6#5'Value'#2'2'#0#0#6'TArrow'#6'Ar'
-  +'row1'#4'Left'#2#31#6'Height'#2#10#3'Top'#3#200#1#5'Width'#2#10#0#0#11'TGrad'
-  +'Button'#11'GradButton5'#4'Left'#2','#6'Height'#2#24#3'Top'#3'P'#1#5'Width'#2
-  +#21#9'Font.Name'#6#6'System'#10'Font.Style'#11#6'fsBold'#0#8'TabOrder'#2#8#7
-  +'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
-  +'I'#12#2'+'#167#254'?'#7'Caption'#6#1'X'#9'BaseColor'#7#9'clBtnFace'#5'Color'
-  +#7#9'clBtnFace'#16'NormalBlendColor'#7#9'clBtnFace'#14'OverBlendColor'#7#7'c'
-  +'lWhite'#15'BackgroundColor'#7#9'clBtnFace'#9'AutoWidth'#9#11'BorderSides'#11
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#2'Q'#6'Height'#3#250#1#3'Top'#3#164#0#5'Wid'
+  +'th'#3#130#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#250#1#11'ClientWidth'#3
+  +#130#3#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'LCLVer'
+  +'sion'#6#6'0.9.25'#0#11'TGradButton'#11'GradButton1'#4'Left'#2#24#6'Height'#2
+  +'h'#3'Top'#2'X'#5'Width'#3#176#0#7'Caption'#6#11'GradButton1'#7'OnClick'#7#16
+  +'GradButton1Click'#11'OnMouseDown'#7#20'GradButton1MouseDown'#12'OnMouseEnte'
+  +'r'#7#21'GradButton1MouseEnter'#12'OnMouseLeave'#7#21'GradButton1MouseLeave'
+  +#11'OnMouseMove'#7#20'GradButton1MouseMove'#9'OnMouseUp'#7#18'GradButton1Mou'
+  +'seUp'#8'TabOrder'#2#0#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254
+  +'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5
+  +'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8
+  +'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'
+  +#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10
+  +'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0
+  +#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#148'Q'
+  +#220#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#6
+  +'TPanel'#6'Panel1'#6'Height'#3#250#1#5'Width'#3#247#2#5'Align'#7#6'alLeft'#7
+  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#6'Pane'
+  +'l1'#12'ClientHeight'#3#250#1#11'ClientWidth'#3#247#2#8'TabOrder'#2#1#0#15'T'
+  +'GradTabControl'#15'GradTabControl1'#4'Left'#3#248#0#6'Height'#3#248#1#3'Top'
+  +#2#1#5'Width'#3#136#1#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAccept'
+  +'sControls'#19'csDesignInteractive'#8'csOpaque'#12'csMenuEvents'#18'csParent'
+  +'Background'#23'csOwnedChildsSelectable'#0#10'ActivePage'#7#12'GradTabPage2'
+  +#16'OnTabButtonClick'#7#29'GradTabControl1TabButtonClick'#18'OnTabButtonMous'
+  +'eUp'#7#31'GradTabControl1TabButtonMouseUp'#9'PageIndex'#2#1#9'TabHeight'#2
+  +#20#0#12'TGradTabPage'#12'GradTabPage1'#4'Left'#2#2#6'Height'#3#224#1#3'Top'
+  +#2#22#5'Width'#3#132#1#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'Co'
+  +'ntrolStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12
+  +'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFixedBoun'
+  +'ds'#20'csNoDesignSelectable'#0#7'Caption'#6#12'GradTabPage1'#15'ShowCloseBu'
+  +'tton'#9#0#5'TEdit'#5'Edit1'#6'Height'#3#224#1#5'Width'#3#132#1#5'Align'#7#8
+  +'alClient'#8'TabOrder'#2#0#4'Text'#6#5'Edit1'#0#0#0#12'TGradTabPage'#12'Grad'
+  +'TabPage3'#4'Left'#2#2#6'Height'#3#224#1#3'Top'#2#22#5'Width'#3#132#1#12'Con'
+  +'trolState'#11#21'csVisibleSetInLoading'#0#12'ControlStyle'#11#14'csCaptureM'
+  +'ouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVi'
+  +'sible'#19'csDesignFixedBounds'#20'csNoDesignSelectable'#0#9'PageIndex'#2#2#7
+  +'Caption'#6#12'GradTabPage3'#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#3'j'#1
+  +#3'Top'#2'1'#5'Width'#3'F'#1#5'Align'#7#8'alClient'#13'Lines.Strings'#1#6#5
+  +'Memo1'#0#8'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTabPage2'#4'Left'#2#2
+  +#6'Height'#3#224#1#3'Top'#2#22#5'Width'#3#132#1#12'ControlState'#11#21'csVis'
+  +'ibleSetInLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureM'
+  +'ouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#19'csDesignFixe'
+  +'dBounds'#0#9'PageIndex'#2#1#7'Caption'#6#12'GradTabPage2'#0#0#0#15'TGradTab'
+  +'Control'#15'GradTabControl2'#4'Left'#2#1#6'Height'#3#248#1#3'Top'#2#1#5'Wid'
+  +'th'#3#247#0#5'Align'#7#6'alLeft'#12'ControlStyle'#11#17'csAcceptsControls'#0
+  +#10'ActivePage'#7#12'GradTabPage5'#16'OnTabButtonClick'#7#29'GradTabControl2'
+  +'TabButtonClick'#9'PageIndex'#2#1#9'TabHeight'#2#25#11'TabPosition'#7#7'tpRi'
+  +'ght'#0#12'TGradTabPage'#12'GradTabPage4'#4'Left'#2#2#6'Height'#3'K'#2#3'Top'
+  +#2#2#5'Width'#3#218#0#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'Con'
+  +'trolStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12
+  +'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFixedBoun'
+  +'ds'#20'csNoDesignSelectable'#0#10'TabVisible'#8#7'Caption'#6#24'GradTabPage'
+  +'4wewwerwerwer'#0#8'TSynEdit'#8'SynEdit1'#6'Height'#3'K'#2#5'Width'#3#218#0#5
+  +'Align'#7#8'alClient'#11'Font.Height'#2#12#9'Font.Name'#6#7'Courier'#10'Font'
+  +'.Pitch'#7#7'fpFixed'#11'ParentColor'#8#8'TabOrder'#2#0#24'BookMarkOptions.O'
+  +'nChange'#13#11'Highlighter'#7#10'SynPHPSyn1'#10'Keystrokes'#14#1#7'Command'
+  +#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3'& '#0#1#7'Command'#3
+  +#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'#2'('#0#1#7'Command'#2
+  +'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCut'#3'(@'#0#1#7'Command'
+  +#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'#3'% '#0#1#7'Command'#2
+  +#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3'%`'#0#1#7'Command'#2#2
+  +#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3''' '#0#1#7'Command'#2#6
+  +#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3'''`'#0#1#7'Command'#2
+  +#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3'" '#0#1#7'Command'#2
+  ,#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3'"`'#0#1#7'Command'#2
+  +#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'! '#0#1#7'Command'#2#13
+  +#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3'!`'#0#1#7'Command'#2#7#8
+  +'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$ '#0#1#7'Command'#2#15#8
+  +'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3'$`'#0#1#7'Command'#2#8#8
+  +'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'# '#0#1#7'Command'#2#16#8
+  +'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3'#`'#0#1#7'Command'#3#223#0
+  +#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortCut'#3'-@'#0#1#7'Command'#3
+  +'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8'ShortCut'#2'.'#0#1#7'Comman'
+  +'d'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245#1#8'ShortCut'#2#8#0#1#7'Co'
+  +'mmand'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3#248#1#8'ShortCut'#3#8'@'
+  +#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7'Command'#3'Z'#2#8'Short'
+  +'Cut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2#13#0#1#7'Command'#3
+  +#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortCut'#3'C@'#0#1#7'Comm'
+  +'and'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8'ShortCut'#3'M@'#0#1#7
+  +'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3#247#1#8'ShortCut'#3'T@'
+  +#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Command'#3'\'#2#8'ShortCut'#3
+  +'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7'Command'#3#251#1#8'ShortC'
+  +'ut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'#0#1#7'Command'#3'Y'#2#8
+  +'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3'Z`'#0#1#7'Command'#3'-'
+  +#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCut'#3'1@'#0#1#7'Command'#3
+  +'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'ShortCut'#3'3@'#0#1#7'Comman'
+  +'d'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'C'
+  +'ommand'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3'4'#1#8'ShortCut'#3'7@'#0#1
+  +#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Command'#3'6'#1#8'ShortCut'#3'9@'
+  +#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'Command'#3'`'#1#8'ShortCut'#3
+  +'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1#7'Command'#3'b'#1#8'ShortCu'
+  +'t'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'#0#1#7'Command'#3'd'#1#8'Sh'
+  +'ortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3'6`'#0#1#7'Command'#3'f'#1
+  +#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCut'#3'8`'#0#1#7'Command'#3
+  +'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'ShortCut'#3'N`'#0#1#7'Comma'
+  +'nd'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233#0#8'ShortCut'#3'L`'#0#1#7
+  +'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3'e'#2#8'ShortCut'#3#9' '#0#1
+  +#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lines.Strings'#1#6#2'<?'#6#0#6
+  +#14'echo "string";'#6#0#6#2'?>'#0#22'SelectedColor.OnChange'#13#0#0#0#12'TGr'
+  +'adTabPage'#12'GradTabPage5'#4'Left'#2#2#6'Height'#3#244#1#3'Top'#2#2#5'Widt'
+  +'h'#3#218#0#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'ControlStyle'
+  +#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12'csSetCapti'
+  +'on'#14'csDoubleClicks'#19'csDesignFixedBounds'#0#9'PageIndex'#2#1#7'Caption'
+  +#6#12'GradTabPage5'#15'ShowCloseButton'#9#0#11'TStringGrid'#11'StringGrid1'#6
+  +'Height'#3#244#1#5'Width'#3#218#0#5'Align'#7#8'alClient'#8'ColCount'#2#5#14
+  +'ExtendedSelect'#9#10'FixedColor'#7#9'clBtnFace'#7'Options'#11#15'goFixedVer'
+  +'tLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'
+  +#14'goSmoothScroll'#0#8'RowCount'#2#5#8'TabOrder'#2#0#0#0#0#0#15'TGradTabCon'
+  +'trol'#15'GradTabControl3'#4'Left'#3#128#2#6'Height'#3#248#1#3'Top'#2#1#5'Wi'
+  +'dth'#2'v'#5'Align'#7#7'alRight'#12'ControlStyle'#11#17'csAcceptsControls'#0
+  +#10'ActivePage'#7#12'GradTabPage6'#9'PageIndex'#2#1#9'TabHeight'#2#30#11'Tab'
+  +'Position'#7#6'tpLeft'#0#12'TGradTabPage'#12'GradTabPage7'#4'Left'#2' '#6'He'
+  +'ight'#3#244#1#3'Top'#2#2#5'Width'#2'T'#12'ControlState'#11#21'csVisibleSetI'
+  +'nLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13
+  +'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#17'csNoDesignVisible'#19
+  +'csDesignFixedBounds'#20'csNoDesignSelectable'#0#7'Caption'#6#12'GradTabPage'
+  +'7'#0#0#12'TGradTabPage'#12'GradTabPage6'#4'Left'#2' '#6'Height'#3#244#1#3'T'
+  +'op'#2#2#5'Width'#2'T'#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'Co'
+  +'ntrolStyle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12
+  +'csSetCaption'#14'csDoubleClicks'#19'csDesignFixedBounds'#0#9'PageIndex'#2#1
+  +#7'Caption'#6#12'GradTabPage6'#15'ShowCloseButton'#9#0#0#0#0#6'TPanel'#6'Pan'
+  +'el2'#4'Left'#3#252#2#6'Height'#3#250#1#5'Width'#3#134#0#5'Align'#7#8'alClie'
+  +'nt'#7'Caption'#6#6'Panel2'#12'ClientHeight'#3#250#1#11'ClientWidth'#3#134#0
+  +#8'TabOrder'#2#2#0#9'TComboBox'#9'ComboBox1'#4'Left'#2#16#6'Height'#2#21#3'T'
+  +'op'#2#16#5'Width'#2'd'#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20
+  +'cbactSearchAscending'#0#10'ItemHeight'#2#13#8'OnChange'#7#15'ComboBox1Chang'
+  +'e'#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#0#0#0#11'TGradButton'#11'Gra'
+  +'dButton3'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'0'#5'Width'#2'd'#7'Caption'#6
+  ,#3'Add'#7'OnClick'#7#16'GradButton3Click'#8'TabOrder'#2#1#7'TabStop'#9#11'No'
+  +'rmalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167
+  +#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7
+  +#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFa'
+  +'ce'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRi'
+  +'ghtLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0
+  +#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0
+  +#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#143#229#0#20'GlyphBackgroundColor'#7#7'clW'
+  +'hite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton4'#4'Left'
+  +#2#16#6'Height'#2#25#3'Top'#2'p'#5'Width'#2'd'#7'Caption'#6#6'Delete'#7'OnCl'
+  +'ick'#7#16'GradButton4Click'#8'TabOrder'#2#2#7'TabStop'#9#11'NormalBlend'#5#0
+  +#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseC'
+  +'olor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14
+  +'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderS'
+  +'ides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15
+  +'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'
+  +#0#0#0'('#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0
+  +#0#0#0#0#0#0#0#172#164#229#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickC'
+  +'olor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton2'#4'Left'#2#16#6'Height'
+  +#2#25#3'Top'#2'P'#5'Width'#2'd'#7'Caption'#6#15'Add Custom Page'#7'OnClick'#7
+  +#16'GradButton2Click'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0
+  +#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7
+  +#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBle'
+  +'ndColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11
  +#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocus'
-  +'Border'#9#15'RotateDirection'#7#7'rdRight'#20'GlyphBackgroundColor'#7#7'clW'
-  +'hite'#10'ClickColor'#7#9'clBtnFace'#0#0#10'TScrollBox'#10'ScrollBox1'#4'Lef'
-  +'t'#2#220#6'Height'#3#150#0#3'Top'#3'@'#1#5'Width'#3#150#0#18'HorzScrollBar.'
-  +'Page'#3#145#0#18'VertScrollBar.Page'#3#145#0#10'AutoScroll'#8#8'TabOrder'#2
-  +#9#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#247#2#6'Height'#3#250#1#5'Width'
-  +#2#5#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#3#222#2#3'top'#3#141#1#0#9'TM'
-  +'enuItem'#9'MenuItem1'#7'Caption'#6#9'New Item1'#0#0#0#10'TSynPHPSyn'#10'Syn'
-  +'PHPSyn1'#13'DefaultFilter'#6'CPHP-Dateien (*.php,*.php3,*.phtml,*.inc)|*.ph'
-  +'p;*.php3;*.phtml;*.inc'#7'Enabled'#8#4'left'#2's'#3'top'#3#255#0#0#0#0
+  +'Border'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('
+  +#0#0#0#1#0#0#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0
+  +#0#0#140'D'#7#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
+  +'lue'#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#2#16#6'Height'#2'q'#3'Top'
+  +#3#152#0#5'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#12'Tab Position'#28'ChildS'
+  +'izing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSi'
+  +'zing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlar'
+  +'geVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'
+  +#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18
+  +'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Cont'
+  +'rolsPerLine'#2#1#12'ClientHeight'#2'_'#11'ClientWidth'#2'`'#9'ItemIndex'#2#0
+  +#13'Items.Strings'#1#6#5'tpTop'#6#8'tpBottom'#6#6'tpLeft'#6#7'tpRight'#0#7'O'
+  +'nClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#4#0#0#9'TCheckBox'#9'CheckBox1'
+  +#4'Left'#2#15#6'Height'#2#19#3'Top'#3#20#1#5'Width'#2'K'#7'Caption'#6#9'Long'
+  +' Tabs'#7'OnClick'#7#14'CheckBox1Click'#8'TabOrder'#2#5#0#0#9'TSpinEdit'#9'S'
+  +'pinEdit1'#4'Left'#2'_'#6'Height'#2#19#3'Top'#3#20#1#5'Width'#2'"'#8'MaxValu'
+  +'e'#2'2'#13'OnEditingDone'#7#20'SpinEdit1EditingDone'#8'TabOrder'#2#6#5'Valu'
+  +'e'#2'2'#0#0#6'TArrow'#6'Arrow1'#4'Left'#2#31#6'Height'#2#10#3'Top'#3#200#1#5
+  +'Width'#2#10#0#0#11'TGradButton'#11'GradButton5'#4'Left'#2','#6'Height'#2#24
+  +#3'Top'#3'P'#1#5'Width'#2#24#7'Caption'#6#1'X'#9'Font.Name'#6#6'System'#10'F'
+  +'ont.Style'#11#6'fsBold'#0#8'TabOrder'#2#8#7'TabStop'#9#11'NormalBlend'#5#0#0
+  +#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseCol'
+  +'or'#7#9'clBtnFace'#5'Color'#7#9'clBtnFace'#16'NormalBlendColor'#7#9'clBtnFa'
+  +'ce'#14'OverBlendColor'#7#7'clWhite'#15'BackgroundColor'#7#9'clBtnFace'#9'Au'
+  +'toWidth'#9#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
+  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#15'RotateDirection'#7#7'rdRight'#10
+  +'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#1#0#0
+  +#0#1#0#0#0#1#0#24#0#0#0#0#0#4#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#252#207
+  +#225#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#9'clBtnFace'#0
+  +#0#10'TScrollBox'#10'ScrollBox1'#4'Left'#2#228#6'Height'#3#150#0#3'Top'#3'P'
+  +#1#5'Width'#3#150#0#18'HorzScrollBar.Page'#3#145#0#18'VertScrollBar.Page'#3
+  +#145#0#10'AutoScroll'#8#8'TabOrder'#2#9#0#0#0#9'TSplitter'#9'Splitter1'#4'Le'
+  +'ft'#3#247#2#6'Height'#3#250#1#5'Width'#2#5#0#0#10'TPopupMenu'#10'PopupMenu1'
+  +#4'left'#3#222#2#3'top'#3#141#1#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#9'N'
+  +'ew Item1'#0#0#0#10'TSynPHPSyn'#10'SynPHPSyn1'#13'DefaultFilter'#6'CPHP-Date'
+  +'ien (*.php,*.php3,*.phtml,*.inc)|*.php;*.php3;*.phtml;*.inc'#7'Enabled'#8#4
+  +'left'#2's'#3'top'#3#255#0#0#0#0
 ]);
--- a/components/gradcontrols/examples/Forms/unit1.pas
+++ b/components/gradcontrols/examples/Forms/unit1.pas
@ -298,7 +298,7 @@ begin

  ComboBox1.ItemIndex:=ComboBox1.Items.Add('Custom_'+IntToStr(GradTabControl1.Tabs.Count-1));

-  WriteLn('CustomIndex: ', IntToStr(C));
+  //WriteLn('CustomIndex: ', IntToStr(C));
  
  GradTabControl1.Pages[C].Color:=clRed;
  GradTabControl1.Pages[C].Caption:=ComboBox1.Text; //WICHTIG, eine Caption muss für
--- a/components/gradcontrols/examples/gradbuttontest.lpi
+++ b/components/gradcontrols/examples/gradbuttontest.lpi
@ -4,6 +4,9 @@
    <PathDelim Value="\"/>
    <Version Value="6"/>
    <General>
+      <Flags>
+        <AlwaysBuild Value="False"/>
+      </Flags>
      <SessionStorage Value="InProjectDir"/>
      <MainUnit Value="0"/>
      <IconPath Value="./"/>
--- a/components/gradcontrols/examples/gradbuttontest.lpr
+++ b/components/gradcontrols/examples/gradbuttontest.lpr
@ -8,7 +8,7 @@ uses
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
-  { you can add units after this }, main, gradbutton, ImagesForLazarus;
+  { you can add units after this }, main;

 begin
  Application.Title:='TGradButton-Demo';
--- a/components/gradcontrols/examples/gradcontroltest.lpi
+++ b/components/gradcontrols/examples/gradcontroltest.lpi
@ -15,7 +15,7 @@
    <VersionInfo>
      <UseVersionInfo Value="True"/>
      <AutoIncrementBuild Value="True"/>
-      <CurrentBuildNr Value="498"/>
+      <CurrentBuildNr Value="508"/>
      <ProjectVersion Value="0.0.0.0"/>
    </VersionInfo>
    <PublishOptions>
@ -71,7 +71,7 @@
    <Version Value="5"/>
    <PathDelim Value="\"/>
    <SearchPaths>
-      <OtherUnitFiles Value="Forms/\"/>
+      <OtherUnitFiles Value="Forms\"/>
    </SearchPaths>
    <CodeGeneration>
      <Generate Value="Faster"/>
--- a/components/gradcontrols/examples/gradcontroltest.lpr
+++ b/components/gradcontrols/examples/gradcontroltest.lpr
@ -8,7 +8,7 @@ uses
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
-  { you can add units after this }, gradbutton, gradtabcontrol, unit1;
+  { you can add units after this }, unit1;

 {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

--- a/components/gradcontrols/src/ugradbtn.pas
+++ b/components/gradcontrols/src/ugradbtn.pas
@ -35,9 +35,8 @@ type

    TGradButton = class(TCustomControl)
    private
-       FCaption : TCaption;
       FRotateDirection : TRotateDirection;
-FTextAlignment : TTextAlignment;
+       FTextAlignment : TTextAlignment;
       FButtonLayout: TButtonLayout;
       FTextPoint, FGlyphPoint : TPoint;
       FTextSize, FGlyphSize : TSize;
@ -65,11 +64,11 @@ FTextAlignment : TTextAlignment;
       FBaseColor, FNormalBlendColor, FOverBlendColor, FDisabledColor,
         FBackgroundColor, FGlyphBackgroundColor, FClickColor: TColor;
       procedure InvPaint(StateCheck:Boolean=false);
+       procedure FontChanged(Sender: TObject); override;
       procedure GetBackgroundRect(var TheRect : TRect);
       function GetGlyph : TBitmap;
       procedure SetEnabled(Value: Boolean); override;
       procedure SetAutoWidth(const Value : Boolean); virtual;
-       procedure SetText(const Value: TCaption); virtual;
       procedure SetNormalBlend(const Value: Extended); virtual;
       procedure SetOverBlend(const Value: Extended); virtual;
       procedure SetBaseColor(const Value: TColor);  virtual;
@ -90,6 +89,7 @@ FTextAlignment : TTextAlignment;
       procedure SetName(const Value: TComponentName); override;
       procedure SetShowFocusBorder(const Value: Boolean); virtual;
       procedure SetGlyph(const Value: TBitmap); virtual;
+       procedure TextChanged; override;
    public
       constructor Create(AOwner: TComponent); override;
       destructor Destroy; override;
@ -116,6 +116,7 @@ FTextAlignment : TTextAlignment;
       property Action;
       property Anchors;
       property Align;
+       property Caption;
       property Enabled;
       property PopupMenu;
       property Font;
@ -136,7 +137,6 @@ FTextAlignment : TTextAlignment;
       property TabStop;
       property NormalBlend : Extended read FNormalBlend write SetNormalBlend;
       property OverBlend : Extended read FOverBlend write SetOverBlend;
-       property Caption: TCaption read FCaption write SetText;
       property BaseColor: TColor read FBaseColor write SetBaseColor;
       property Color: TColor read FBaseColor write SetBaseColor;
       property NormalBlendColor: TColor read FNormalBlendColor write SetNormalBlendColor;
@ -208,6 +208,19 @@ begin

    //UpdateGlyph;
 end;
+
+procedure TGradButton.TextChanged;
+begin
+  inherited TextChanged;
+  FRotatedText.Text := Caption;
+
+   if FAutoWidth then
+      UpdateButton
+   else
+      UpdatePositions;
+
+   InvPaint;
+end;
    
 procedure TGradButton.SetName(const Value: TComponentName);
 begin
@ -950,17 +963,12 @@ begin
  end;
 end;

-procedure TGradButton.SetText(const Value: TCaption);
+procedure TGradButton.FontChanged(Sender: TObject);
 begin
-     FCaption:=Value;
-     FRotatedText.Text:=Value;
-     
-     if FAutoWidth then
-        UpdateButton
-     else
-        UpdatePositions;
-     
-     InvPaint;
+  inherited FontChanged(Sender);
+  FRotatedText.Canvas.Font := Font;
+  FRotatedText.Update;
+  UpdatePositions;
 end;

 procedure TGradButton.DoEnter;
@ -1007,22 +1015,6 @@ begin
      
   with bm do
   begin
-   Canvas.Font.Color := Self.Font.Color;
-   Canvas.Font := Self.Font;
-
-   if FRotatedText.Canvas.Font.Color <> Self.Font.Color then
-   begin
-       FRotatedText.Canvas.Font.Color:=Self.Font.Color;
-       FRotatedText.Update;
-       UpdatePositions;
-   end;
-
-   if not FRotatedText.Canvas.Font.IsEqual(Self.Font) then
-   begin
-       FRotatedText.Canvas.Font := Self.Font;
-       FRotatedText.Update;
-       UpdatePositions;
-   end;

   Width := Self.Width;
   Height := Self.Height;
@ -1044,13 +1036,9 @@ begin
     else Canvas.Draw(0,0,FDisabledBackgroundCache);
   end;
   
-   if (Caption <> '') then begin
+   if Caption <> '' then
      FRotatedText.Draw(FTextPoint.x+p, FTextPoint.y+p, bm);
-   end else if (csDesigning in ComponentState) then begin
-      FRotatedText.Text:=Name;
-      FRotatedText.Draw(FTextPoint.x+p, FTextPoint.y+p, bm);
-   end;
-   
+
   if FShowGlyph then
   begin
      if not FEnabled then
--- a/components/gradcontrols/src/ugradtabcontrol.pas
+++ b/components/gradcontrols/src/ugradtabcontrol.pas
@ -32,7 +32,7 @@ type
       procedure SetShowCloseButton(AValue: Boolean);
  protected
       procedure SetRotateDirection(const Value: TRotateDirection); override;
-       procedure SetText(const Value: TCaption); override;
+       procedure RealSetText(const Value: TCaption); override;
  public
       constructor Create(AOwner: TComponent); override;
       procedure Resize; override;
@ -350,7 +350,7 @@ end;
 {-------------------------------------------------------------------------------
  TGradTabPageButton.SetText(const Value: TCaption)
 ------------------------------------------------------------------------------}
-procedure TGradTabPageButton.SetText(const Value: TCaption);
+procedure TGradTabPageButton.RealSetText(const Value: TCaption);
 var
   NewCaption : TCaption;
 begin
@ -359,7 +359,7 @@ begin
   {if FShowCloseButton then
      NewCaption := NewCaption+'    ';}

-   inherited SetText(NewCaption);
+   inherited RealSetText(NewCaption);

   AlignCloseButton;

--- a/components/gradcontrols/src/urotatebitmap.pas
+++ b/components/gradcontrols/src/urotatebitmap.pas
@ -66,7 +66,7 @@ type
    private
       FBitmap : TBitmap;
       FText : String;
-       procedure SetText(Value: String);
+       procedure SetText(const Value: String);
       function GetCanvas : TCanvas;
       procedure PaintText;
    public
@ -240,7 +240,7 @@ begin
    PaintText;
 end;

-procedure TRotatedText.SetText(Value: String);
+procedure TRotatedText.SetText(const Value: String);
 begin
    if FText <> Value then
    begin
@ -261,12 +261,24 @@ var
 begin
    TextSize := FBitmap.Canvas.TextExtent(FText);

-    FBitmap.Width:=TextSize.cx;
-    FBitmap.Height:=TextSize.cy;
+    {$ifdef LCLWin32}
+    //win32 does not comput correct text extent when Italic style is set.
+    //small workaround to this bug
+    //not sure if other widgetsets alsoa have this bug. Enable it only for win32 for now
+    if fsItalic in FBitmap.Canvas.Font.Style then
+      Inc(TextSize.cx, 4);
+    {$endif}
+    FBitmap.SetSize(TextSize.cx, TextSize.cy);

-    FBitmap.Canvas.FillRect(0,0,FBitmap.Width, FBitmap.Height);
+    //check to allow Text with Fuchsia color
+    if FBitmap.Canvas.Font.Color = clFuchsia then
+      FBitmap.Canvas.Brush.Color := clWhite
+    else
+      FBitmap.Canvas.Brush.Color := clFuchsia;

-    FBitmap.Canvas.TextOut(0,0,FText);
+    FBitmap.Canvas.FillRect(0,0, FBitmap.Width, FBitmap.Height);
+
+    FBitmap.Canvas.TextOut(0,0, FText);

    Inherited LoadBitmap(FBitmap);
 end;