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

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
+  object BaseColorButton: TGradButton
-    Left = 16
+    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
+  object NormalBlendColorButton: TGradButton
-    Left = 160
+    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
+  object OverBlendButton: TGradButton
-    Left = 304
+    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

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'
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'='#1#6'Height'#3#184#1#3'Top'#2'~'#5'Widt'
-  +'th'#3'?'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSystemM'
+  +'h'#3'?'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSystemMe'
-  +'enu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGradBu'
+  +'nu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGradBut'
-  +'tton-Demo'#12'ClientHeight'#3#184#1#11'ClientWidth'#3'?'#2#8'OnCreate'#7#10
+  +'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'
+  +'d Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'#1#6'Height'
-  +'ht'#2#30#3'Top'#2'`'#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15
+  +#2#14#3'Top'#2#16#5'Width'#2'3'#7'Caption'#6#10'Text Color'#11'ParentColor'#8
-  +'TrackBar1Change'#8'ScalePos'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'
+  +#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'Top'#2'`'#5'Widt'
-  +#7#8'alCustom'#8'TabOrder'#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'H'
+  +'h'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'ScalePo'
-  +'eight'#2#30#3'Top'#3#155#0#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'
+  +'s'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'
-  +#7#15'TrackBar2Change'#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7
+  +#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#155#0
-  +#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'Che'
+  +#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar2Change'#8'S'
-  +'ckGroup1'#4'Left'#2#8#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoF'
+  +'calePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'a'
-  +'ill'#9#7'Caption'#6#12'Border Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28
+  +'lCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#2#8#6
-  +'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
+  +'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#12'B'
-  +'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
+  +'order Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomS'
-  +'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
+  +'pacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'
-  +'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
+  +#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi'
-  +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Str'
+  +'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7
-  +'ings'#1#6#12'bsBottomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'
+  +#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto'
-  +#0#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0
+  +'m'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12'bsBottomLin'
-  +#0#0#4#0#0#0#2#2#2#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2#8#6'Heigh'
+  +'e'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItemClick'#7#20
-  +'t'#2'Y'#3'Top'#3#216#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'
+  +'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'
+  +'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'u'#9'Item'
-  +'wGlyph'#6#7'Enabled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrde'
+  +'Index'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6#11'blGlyphLeft'#6#10'bl'
-  +'r'#2#6#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'
+  +'GlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'RadioGroup3Click'#8'TabOrde'
-  +#4'Left'#3#176#1#6'Height'#2'A'#3'Top'#3#240#0#5'Width'#3#129#0#8'AutoFill'#9
+  +'r'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3#176#1#6'Height'#2'j'#3
-  +#7'Caption'#6#13'Gradient Type'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chil'
+  +'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#14'Text Alignment'
-  +'dSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHom'
+  +#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
-  +'ogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChild'
+  +'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
-  +'Resize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizin'
+  +'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
-  +'g.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftT'
+  +'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
-  +'oRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'
+  +'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
-  +#2'/'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHoriz'
+  +'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'X'#11'ClientWidth'#2'}'#9'Item'
-  +'ontal'#6#10'gtVertical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8
+  +'Index'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13'taLeftJustify'#6#14'taRig'
-  +#0#0#11'TRadioGroup'#11'RadioGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3'Top'#3
+  +'htJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'TabOrder'#2#5#0#0#12'TLabe'
-  +'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Direction'#28'C'
+  +'ledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1#6'Height'#2#23#3'Top'#3#216#0#5'Wi'
-  +'hildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Ch'
+  +'dth'#2'P EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit1"EditLabel.Anch'
-  +'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.'
+  +'orSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Left'#3'H'#1#16'EditL'
-  +'EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizo'
+  +'abel.Height'#2#14#13'EditLabel.Top'#3#199#0#15'EditLabel.Width'#2'I'#17'Edi'
-  +'ntal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChil'
+  +'tLabel.Caption'#6#14'Button Caption'#21'EditLabel.ParentColor'#8#11'ParentC'
-  +'ds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizi'
+  +'olor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyUp'#7#17'LabeledEd'
-  ,'ng.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'}'#9'ItemIn'
+  +'it1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6'Height'#2'`'#3'Top'#3
-  +'dex'#2#0#13'Items.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnC'
+  +#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#11'Font.Height'#2#241#10
-  +'lick'#7#16'RadioGroup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGr'
+  +'Font.Style'#11#8'fsItalic'#0#7'OnClick'#7#6'bClick'#8'TabOrder'#2#9#7'TabSt'
-  +'oup3'#4'Left'#3'('#1#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFill'
+  +'op'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'
-  +#9#7'Caption'#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28'Ch'
+  +#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalB'
-  +'ildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsH'
+  +'lendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'
-  +'omogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChi'
+  +#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLi'
-  +'ldResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSiz'
+  +'ne'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0
-  +'ing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLef'
+  +#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
-  +'tToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeigh'
+  +#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'
-  +'t'#2'W'#11'ClientWidth'#2'u'#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'blGl'
+  +'r'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'BaseColor'
-  +'yphRight'#6#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnClic'
+  +'Button'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15
-  +'k'#7#16'RadioGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGroup'
+  +'BaseColorButton'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10#7'TabStop'
-  +'4'#4'Left'#3#176#1#6'Height'#2'j'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'
+  +#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2
-  +#9#7'Caption'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6#28'C'
+  +'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendC'
-  +'hildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crs'
+  +'olor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9
-  +'HomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousCh'
+  +'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
-  +'ildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSi'
+  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0
-  +'zing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLe'
+  +'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
-  +'ftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeig'
+  +#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#180'l'#220#0#20'GlyphBackgroundColor'#7
-  +'ht'#2'X'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'taCe'
+  +#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#22'NormalBlendCol'
-  +'nter'#6#13'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGroup'
+  +'orButton'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6
-  +'4Click'#8'TabOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1
+  +#22'NormalBlendColorButton'#7'OnClick'#7#16'NormalBlendClick'#8'TabOrder'#2
-  +#6'Height'#2#23#3'Top'#3#240#0#5'Width'#2'P EditLabel.AnchorSideLeft.Control'
+  +#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
-  +#7#12'LabeledEdit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14
+  +'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
-  +'EditLabel.Left'#3'H'#1#16'EditLabel.Height'#2#14#13'EditLabel.Top'#3#223#0
+  +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
-  +#15'EditLabel.Width'#2'I'#17'EditLabel.Caption'#6#14'Button Caption'#21'Edit'
+  +'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'
-  +'Label.ParentColor'#8#11'ParentColor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample '
+  +#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'
-  +'Text'#7'OnKeyUp'#7#17'LabeledEdit1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3
+  +#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
-  +#152#0#6'Height'#2'`'#3'Top'#3#200#0#5'Width'#3#168#0#11'Font.Height'#2#241#7
+  +#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'
-  +'OnClick'#7#6'bClick'#8'TabOrder'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0
+  +'oundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'O'
-  +#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6
+  +'verBlendButton'#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7
-  +#11'Sample Text'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlen'
+  +'Caption'#6#15'OverBlendButton'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2
-  +'dColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7
+  +#12#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
-  +#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
+  ,'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
-  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhit'
+  +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
-  +'e'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton1'#4'Left'#2
+  +'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'
-  +#16#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#14'BaseColorClick'
+  +#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'
-  +#8'TabOrder'#2#10#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9
+  +#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
-  +'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton1'#9'B'
+  +#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'
-  +'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'
   +'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'
+  +'Caption'#6#10'Load Glyph'#7'OnClick'#7#16'GradButton4Click'#8'TabOrder'#2#13
-  +'d'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7
+  +#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'
-  +'Caption'#6#10'load Glyph'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16
+  +#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'
+  +'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'
+  +'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0
-  +#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton5'
+  +#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
-  +#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#200#0#5'Width'#2'h'#7'OnClick'#7#16
+  +#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'
-  +'GradButton5Click'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0
+  +'dColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#26'Glyp'
-  +#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11
+  +'hBackgroundColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#200#0#5'Wid'
-  +'GradButton5'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendCo'
+  +'th'#2'h'#7'Caption'#6#26'GlyphBackgroundColorButton'#7'OnClick'#7#31'GlyphB'
-  +'lor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9
+  +'ackgroundColorButtonClick'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0
-  +'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'
+  +#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseC'
-  +#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhit'
+  +'olor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14
-  +'e'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton6'#4'Left'#3
+  +'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderS'
-  +#196#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#16'GradButton6C'
+  +'ides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15
-  +'lick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254
+  +'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0#0'6'
-  +'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton6'
+  +#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'
+  +#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0#0#0'BM:'#0#0#0#0#0#0
-  +#7#6'clBlue'#0#0#11'TGradButton'#11'GradButton7'#4'Left'#3#196#1#6'Height'#2
+  +#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
-  +#25#3'Top'#2']'#5'Width'#2'h'#7'OnClick'#7#16'GradButton7Click'#8'TabOrder'#2
+  +#0#0#0#0#0#0#0#0#0','#253#222#0#20'GlyphBackgroundColor'#7#7'clWhite'#10'Cli'
-  +#16#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
+  +'ckColor'#7#6'clBlue'#0#0#11'TGradButton'#19'DisabledColorButton'#4'Left'#3
-  +'^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#11'GradButton7'#9'BaseColor'#7#6
+  +#196#1#6'Height'#2#25#3'Top'#2']'#5'Width'#2'h'#7'Caption'#6#19'DisabledColo'
-  +'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlend'
+  +'rButton'#7'OnClick'#7#24'DisabledColorButtonClick'#8'TabOrder'#2#16#7'TabSt'
-  +'Color'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9
+  +'op'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'
-  +'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBo'
+  +#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalB'
-  +'rder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0
+  +'lendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'
-  +#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1i'#182#0#4'left'#2'0'#3'top'#3
+  +#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLi'
-  +#176#0#0#0#10'TImageList'#10'ImageList1'#4'left'#2#8#3'top'#3#176#0#0#0#18'T'
+  +'ne'#11'bsRightLine'#0#15'ShowFocusBorder'#9#10'Glyph.Data'#10'>'#0#0#0':'#0
-  +'OpenPictureDialog'#18'OpenPictureDialog1'#6'Filter'#6#255'Graphic (*.tga;*.'
+  +#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
-  +'jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pg'
+  +#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
-  +'m;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert'
+  +#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#9'TCheckBox'#17'UnderlineCheckBox'
-  +' Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Por'
+  +#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#242#0#5'Width'#2'G'#7'Caption'#6#9'U'
-  +'table Graymap'#4'left'#2'X'#3'top'#3#176#0#0#0#0
+  +'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
 ]);

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;
+    BaseColorButton: TGradButton;
-    GradButton2: TGradButton;
+    NormalBlendColorButton: TGradButton;
-    GradButton3: TGradButton;
+    OverBlendButton: TGradButton;
     GradButton4: TGradButton;
-    GradButton5: TGradButton;
+    GlyphBackgroundColorButton: TGradButton;
-    GradButton6: TGradButton;
+    ClickColorButton: TGradButton;
-    GradButton7: 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 GlyphBackgroundColorButtonClick(Sender: TObject);
-    procedure GradButton6Click(Sender: TObject);
+    procedure ClickColorButtonClick(Sender: TObject);
-    procedure GradButton7Click(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
+  UpdateButtonColor(BaseColorButton, b.BaseColor);
-  begin
+  UpdateButtonColor(NormalBlendColorButton, b.NormalBlendColor);
-      BaseColor:=b.BaseColor;
+  UpdateButtonColor(OverBlendButton, b.OverBlendColor);
-      Caption:=ColorToString(BaseColor);
+  UpdateButtonColor(GlyphBackgroundColorButton, b.GlyphBackgroundColor);
-  end;
+  UpdateButtonColor(ClickColorButton, b.ClickColor);
-  
+  UpdateButtonColor(DisabledColorButton, b.DisabledColor);
-  with GradButton2 do
+  UpdateButtonColor(TextColorButton, b.Font.Color);
-  begin
-      BaseColor:=b.NormalBlendColor;
-      Caption:=ColorToString(BaseColor);
-  end;
-  
-  with GradButton3 do
-  begin
-      BaseColor:=b.OverBlendColor;
-      Caption:=ColorToString(BaseColor);
-  end;
 
   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;
+        UpdateButtonColor(BaseColorButton, ColorDialog1.Color);
-        GradButton1.Caption:=ColorToString(GradButton1.BaseColor);
     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;
+       UpdateButtonColor(GlyphBackgroundColorButton, ColorDialog1.Color);
-       GradButton5.Caption:=ColorToString(GradButton5.BaseColor);
    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;
+        UpdateButtonColor(ClickColorButton, ColorDialog1.Color);
-        GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
     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;
+        UpdateButtonColor(DisabledColorButton, ColorDialog1.Color);
-        GradButton7.Caption:=ColorToString(GradButton7.BaseColor);
     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;
+        UpdateButtonColor(NormalBlendColorButton, ColorDialog1.Color);
-        GradButton2.Caption:=ColorToString(GradButton2.BaseColor);
     end;
 end;
 
@@ -268,8 +286,7 @@ begin
     if ColorDialog1.Execute then
     begin
         b.OverBlendColor:=ColorDialog1.Color;
-        GradButton3.BaseColor:=ColorDialog1.Color;
+        UpdateButtonColor(OverBlendButton, ColorDialog1.Color);
-        GradButton3.Caption:=ColorToString(GradButton3.BaseColor);
     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;

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

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

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

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="./"/>

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';

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"/>

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}
 

components/gradcontrols/src/ugradbtn.pas

@@ -35,7 +35,6 @@ type
 
     TGradButton = class(TCustomControl)
     private
-       FCaption : TCaption;
        FRotateDirection : TRotateDirection;
        FTextAlignment : TTextAlignment;
        FButtonLayout: TButtonLayout;
@@ -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;
@@ -209,6 +209,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
     if (Caption='') OR (Caption=Name) then
@@ -950,17 +963,12 @@ begin
   end;
 end;
 
-procedure TGradButton.SetText(const Value: TCaption);
+procedure TGradButton.FontChanged(Sender: TObject);
 begin
-     FCaption:=Value;
+  inherited FontChanged(Sender);
-     FRotatedText.Text:=Value;
+  FRotatedText.Canvas.Font := Font;
-     
+  FRotatedText.Update;
-     if FAutoWidth then
-        UpdateButton
-     else
   UpdatePositions;
-     
-     InvPaint;
 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,12 +1036,8 @@ 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

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;
 

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,8 +261,20 @@ var
 begin
     TextSize := FBitmap.Canvas.TextExtent(FText);
 
-    FBitmap.Width:=TextSize.cx;
+    {$ifdef LCLWin32}
-    FBitmap.Height:=TextSize.cy;
+    //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);
+
+    //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.FillRect(0,0, FBitmap.Width, FBitmap.Height);