initial import of TGradButton and TGradTabControl

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@526 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/gradcontrols/examples/Forms/main.lfm

@@ -0,0 +1,483 @@
+object Form1: TForm1
+  Left = 399
+  Height = 440
+  Top = 98
+  Width = 575
+  ActiveControl = TrackBar1
+  BorderIcons = [biSystemMenu, biMinimize]
+  BorderStyle = bsSingle
+  Caption = 'TGradButton-Demo'
+  ClientHeight = 440
+  ClientWidth = 575
+  OnCreate = FormCreate
+  LCLVersion = '0.9.25'
+  object Label1: TLabel
+    Left = 8
+    Height = 14
+    Top = 75
+    Width = 60
+    Caption = 'NormalBlend'
+    ParentColor = False
+  end
+  object Label2: TLabel
+    Left = 8
+    Height = 14
+    Top = 131
+    Width = 51
+    Caption = 'OverBlend'
+    ParentColor = False
+  end
+  object Label3: TLabel
+    Left = 88
+    Height = 14
+    Top = 75
+    Width = 1
+    ParentColor = False
+  end
+  object Label4: TLabel
+    Left = 88
+    Height = 14
+    Top = 131
+    Width = 1
+    ParentColor = False
+  end
+  object Label5: TLabel
+    Left = 45
+    Height = 14
+    Top = 16
+    Width = 52
+    Caption = 'Base Color'
+    ParentColor = False
+  end
+  object Label6: TLabel
+    Left = 151
+    Height = 14
+    Top = 16
+    Width = 91
+    Caption = 'Normal Blend Color'
+    ParentColor = False
+  end
+  object Label7: TLabel
+    Left = 272
+    Height = 14
+    Top = 16
+    Width = 82
+    Caption = 'Over Blend Color'
+    ParentColor = False
+  end
+  object Label8: TLabel
+    Left = 488
+    Height = 14
+    Top = 128
+    Width = 28
+    Caption = 'Glyph'
+    ParentColor = False
+  end
+  object Label9: TLabel
+    Left = 461
+    Height = 14
+    Top = 184
+    Width = 87
+    Caption = 'Glyph Background'
+    ParentColor = False
+  end
+  object Label10: TLabel
+    Left = 464
+    Height = 14
+    Top = 16
+    Width = 50
+    Caption = 'Click Color'
+    ParentColor = False
+  end
+  object Label11: TLabel
+    Left = 464
+    Height = 14
+    Top = 72
+    Width = 84
+    Caption = 'NotEnabled Color'
+    ParentColor = False
+  end
+  object TrackBar1: TTrackBar
+    Left = 8
+    Height = 30
+    Top = 96
+    Width = 368
+    Max = 100000
+    OnChange = TrackBar1Change
+    ScalePos = trBottom
+    TickStyle = tsNone
+    Align = alCustom
+    TabOrder = 0
+  end
+  object TrackBar2: TTrackBar
+    Left = 8
+    Height = 30
+    Top = 155
+    Width = 368
+    Max = 100000
+    OnChange = TrackBar2Change
+    ScalePos = trBottom
+    TabStop = False
+    TickStyle = tsNone
+    Align = alCustom
+    TabOrder = 1
+  end
+  object CheckGroup1: TCheckGroup
+    Left = 8
+    Height = 105
+    Top = 320
+    Width = 129
+    AutoFill = True
+    Caption = 'Border Sides'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    Items.Strings = (
+      'bsBottomLine'
+      'bsTopLine'
+      'bsLeftLine'
+      'bsRightLine'
+    )
+    OnItemClick = CheckGroup1ItemClick
+    TabOrder = 4
+    Data = {
+      0400000002020202
+    }
+  end
+  object CheckGroup2: TCheckGroup
+    Left = 8
+    Height = 89
+    Top = 216
+    Width = 129
+    AutoFill = True
+    Caption = 'Other'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    Items.Strings = (
+      'ShowFocusBorder'
+      'ShowGlyph'
+      'Enabled'
+    )
+    OnItemClick = CheckGroup2ItemClick
+    TabOrder = 6
+    Data = {
+      03000000020202
+    }
+  end
+  object RadioGroup1: TRadioGroup
+    Left = 432
+    Height = 65
+    Top = 240
+    Width = 129
+    AutoFill = True
+    Caption = 'Gradient Type'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 47
+    ClientWidth = 125
+    ItemIndex = 0
+    Items.Strings = (
+      'gtHorizontal'
+      'gtVertical'
+    )
+    OnClick = RadioGroup1Click
+    TabOrder = 8
+  end
+  object RadioGroup2: TRadioGroup
+    Left = 151
+    Height = 105
+    Top = 320
+    Width = 129
+    AutoFill = True
+    Caption = 'Rotated Direction'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 87
+    ClientWidth = 125
+    ItemIndex = 0
+    Items.Strings = (
+      'rdNormal'
+      'rdLeft'
+      'rdRight'
+    )
+    OnClick = RadioGroup2Click
+    TabOrder = 2
+  end
+  object RadioGroup3: TRadioGroup
+    Left = 296
+    Height = 105
+    Top = 320
+    Width = 121
+    AutoFill = True
+    Caption = 'Button Layout'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 87
+    ClientWidth = 117
+    ItemIndex = 1
+    Items.Strings = (
+      'blGlyphRight'
+      'blGlyphLeft'
+      'blGlyphTop'
+      'blGlyphBottom'
+    )
+    OnClick = RadioGroup3Click
+    TabOrder = 3
+  end
+  object RadioGroup4: TRadioGroup
+    Left = 432
+    Height = 106
+    Top = 320
+    Width = 129
+    AutoFill = True
+    Caption = 'Text Alignment'
+    ChildSizing.LeftRightSpacing = 6
+    ChildSizing.TopBottomSpacing = 6
+    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+    ChildSizing.EnlargeVertical = crsHomogenousChildResize
+    ChildSizing.ShrinkHorizontal = crsScaleChilds
+    ChildSizing.ShrinkVertical = crsScaleChilds
+    ChildSizing.Layout = cclLeftToRightThenTopToBottom
+    ChildSizing.ControlsPerLine = 1
+    ClientHeight = 88
+    ClientWidth = 125
+    ItemIndex = 0
+    Items.Strings = (
+      'taCenter'
+      'taLeftJustify'
+      'taRightJustify'
+    )
+    OnClick = RadioGroup4Click
+    TabOrder = 5
+  end
+  object LabeledEdit1: TLabeledEdit
+    Left = 328
+    Height = 23
+    Top = 240
+    Width = 80
+    EditLabel.AnchorSideLeft.Control = LabeledEdit1
+    EditLabel.AnchorSideBottom.Control = LabeledEdit1
+    EditLabel.Left = 328
+    EditLabel.Height = 14
+    EditLabel.Top = 223
+    EditLabel.Width = 73
+    EditLabel.Caption = 'Button Caption'
+    EditLabel.ParentColor = False
+    ParentColor = False
+    TabOrder = 7
+    Text = 'Sample Text'
+    OnKeyUp = LabeledEdit1KeyUp
+  end
+  object b: TGradButton
+    Left = 152
+    Height = 96
+    Top = 200
+    Width = 168
+    Font.Height = -15
+    OnClick = bClick
+    TabOrder = 9
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'ÖÄÜÒ'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton1: TGradButton
+    Left = 16
+    Height = 25
+    Top = 35
+    Width = 104
+    OnClick = BaseColorClick
+    TabOrder = 10
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton1'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton2: TGradButton
+    Left = 144
+    Height = 25
+    Top = 35
+    Width = 104
+    OnClick = NormalBlendClick
+    TabOrder = 11
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton2'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton3: TGradButton
+    Left = 256
+    Height = 25
+    Top = 35
+    Width = 104
+    OnClick = OverBlendClick
+    TabOrder = 12
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton3'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton4: TGradButton
+    Left = 452
+    Height = 25
+    Top = 149
+    Width = 104
+    OnClick = GradButton4Click
+    TabOrder = 13
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'load Glyph'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton5: TGradButton
+    Left = 452
+    Height = 25
+    Top = 200
+    Width = 104
+    OnClick = GradButton5Click
+    TabOrder = 14
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton5'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton6: TGradButton
+    Left = 452
+    Height = 25
+    Top = 35
+    Width = 104
+    OnClick = GradButton6Click
+    TabOrder = 15
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton6'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object GradButton7: TGradButton
+    Left = 452
+    Height = 25
+    Top = 93
+    Width = 104
+    OnClick = GradButton7Click
+    TabOrder = 16
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton7'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object ColorDialog1: TColorDialog
+    Color = 11954481
+    left = 48
+    top = 176
+  end
+  object ImageList1: TImageList
+    left = 8
+    top = 176
+  end
+  object OpenPictureDialog1: TOpenPictureDialog
+    Filter = 'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Portable Graymap'
+    left = 88
+    top = 176
+  end
+end

components/gradcontrols/examples/Forms/main.lrs

@@ -0,0 +1,166 @@
+{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
+
+LazarusResources.Add('TForm1','FORMDATA',[
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#143#1#6'Height'#3#184#1#3'Top'#2'b'#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
+  +'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
+  +#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#151#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#16#1#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
+  +'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'T'#7'Caption'#6#16'NotEnab'
+  +'led Color'#11'ParentColor'#8#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'He'
+  +'ight'#2#30#3'Top'#2'`'#5'Width'#3'p'#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'p'#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'
+  +#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#8
+  +#195#150#195#132#195#156#195#146#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlu'
+  +'e'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Ba'
+  +'ckgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLi'
+  +'ne'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgrou'
+  +'ndColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#11'Gra'
+  +'dButton1'#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'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'GradButton2'#4'Left'#3
+  +#144#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#16'NormalBlendC'
+  +'lick'#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'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'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'bsTopLi'
+  +'ne'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9
+  +#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGr'
+  +'adButton'#11'GradButton4'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#149#0#5'W'
+  +'idth'#2'h'#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'?'#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'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
+  +'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'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#11'GradButton5'#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'GradButton6'
+  +#4'Left'#3#196#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'OnClick'#7#16'Gr'
+  +'adButton6Click'#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'G'
+  +'radButton6'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendCol'
+  +'or'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'c'
+  +'lBtnFace'#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'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#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'Gra'
+  +'phic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.'
+  +'ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint '
+  +'Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.'
+  +'ppm)|*.ppm|Portable Graymap'#4'left'#2'X'#3'top'#3#176#0#0#0#0
+]);

components/gradcontrols/examples/Forms/main.pas

@@ -0,0 +1,325 @@
+unit main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
+  StdCtrls, ExtCtrls, ugradbtn, Buttons, ComCtrls,
+  LCLType, ExtDlgs, urotatebitmap;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    CheckGroup1: TCheckGroup;
+    CheckGroup2: TCheckGroup;
+    ColorDialog1: TColorDialog;
+    b: TGradButton;
+    GradButton1: TGradButton;
+    GradButton2: TGradButton;
+    GradButton3: TGradButton;
+    GradButton4: TGradButton;
+    GradButton5: TGradButton;
+    GradButton6: TGradButton;
+    GradButton7: TGradButton;
+    ImageList1: TImageList;
+    Label1: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    LabeledEdit1: TLabeledEdit;
+    OpenPictureDialog1: TOpenPictureDialog;
+    RadioGroup1: TRadioGroup;
+    RadioGroup2: TRadioGroup;
+    RadioGroup3: TRadioGroup;
+    RadioGroup4: TRadioGroup;
+    TrackBar1: TTrackBar;
+    TrackBar2: TTrackBar;
+    procedure bClick(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 NormalBlendClick(Sender: TObject);
+    procedure OverBlendClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure RadioGroup1Click(Sender: TObject);
+    procedure RadioGroup2Click(Sender: TObject);
+    procedure RadioGroup3Click(Sender: TObject);
+    procedure RadioGroup4Click(Sender: TObject);
+    procedure TrackBar1Change(Sender: TObject);
+    procedure TrackBar2Change(Sender: TObject);
+    procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+uses
+    GraphType, LazPNG;
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  TrackBar1.Position:= trunc(b.NormalBlend * TrackBar1.Max);
+  TrackBar1Change(TrackBar1);
+  
+  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;
+
+  CheckGroup1.Checked[0]:=true;
+  CheckGroup1.Checked[1]:=true;
+  CheckGroup1.Checked[2]:=true;
+  CheckGroup1.Checked[3]:=true;
+  
+  CheckGroup2.Checked[0]:=b.ShowFocusBorder;
+  CheckGroup2.Checked[2]:=true;
+
+  //ImageList1.AddLazarusResource('house');
+  
+  //ImageList1.GetBitmap(0,b.Glyph,gdeHighlighted);
+
+  //ImageList1.GetBitmap();
+
+  b.GlyphBackgroundColor:=clWhite;
+  GradButton5.BaseColor:=clWhite;
+  GradButton5.Caption:=ColorToString(clWhite);
+  GradButton6.Caption:=ColorToString(GradButton6.BaseColor);
+  GradButton7.Caption:=ColorToString(b.NotEnabledColor);
+  GradButton7.BaseColor:=b.NotEnabledColor;
+  
+  b.ClickColor:=GradButton6.BaseColor;
+  b.Caption:=LabeledEdit1.Text;
+end;
+
+procedure TForm1.RadioGroup1Click(Sender: TObject);
+begin
+    if RadioGroup1.ItemIndex = 0 then
+       b.GradientType := gtHorizontal
+    else
+       b.GradientType := gtVertical;
+end;
+
+procedure TForm1.RadioGroup2Click(Sender: TObject);
+begin
+    if RadioGroup2.ItemIndex = 0 then
+       b.RotateDirection := rdNormal
+    else if RadioGroup2.ItemIndex = 1 then
+       b.RotateDirection := rdLeft
+    else
+       b.RotateDirection := rdRight;
+end;
+
+procedure TForm1.RadioGroup3Click(Sender: TObject);
+begin
+  if RadioGroup3.ItemIndex = 0 then
+       b.ButtonLayout := blGlyphRight
+  else if RadioGroup3.ItemIndex = 1 then
+       b.ButtonLayout := blGlyphLeft
+  else if RadioGroup3.ItemIndex = 2 then
+       b.ButtonLayout := blGlyphTop
+  else b.ButtonLayout := blGlyphBottom;
+end;
+
+procedure TForm1.RadioGroup4Click(Sender: TObject);
+begin
+  case RadioGroup4.ItemIndex of
+     0 : b.TextAlignment := taCenter;
+     1 : b.TextAlignment := taLeftJustify;
+     2 : b.TextAlignment := taRightJustify;
+  end;
+end;
+
+procedure TForm1.BaseColorClick(Sender: TObject);
+begin
+    ColorDialog1.Color:=GradButton1.BaseColor;
+    if ColorDialog1.Execute then
+    begin
+        b.BaseColor:=ColorDialog1.Color;
+        GradButton1.BaseColor:=ColorDialog1.Color;
+        GradButton1.Caption:=ColorToString(GradButton1.BaseColor);
+    end;
+end;
+
+procedure TForm1.GradButton4Click(Sender: TObject);
+var
+   tempPicture : TPicture;
+   png : TPNGImage;
+begin
+  if OpenPictureDialog1.Execute then
+  begin
+      ImageList1.Clear;
+      try
+          tempPicture := TPicture.Create;
+          tempPicture.LoadFromFile(OpenPictureDialog1.FileName);
+          //png :=  TPNGImage.Create;
+          //png.LoadFromFile(OpenPictureDialog1.FileName);
+
+          GradButton4.Glyph.Assign(tempPicture.Graphic);
+          b.Glyph.Assign(tempPicture.Graphic);
+
+          GradButton4.UpdateButton;
+          b.UpdateButton;
+          //ImageList1.;
+          //Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
+          //tempPicture.Picture.Bitmap.Canvas.Pixels[1,2]:=clRed;
+          //ImageList1.AddMasked(tempPicture.Picture.Bitmap,clNone);
+          //ImageList1.GetBitmap(0,b.Glyph);
+          //mageList1.GetBitmap(0,);
+          //GradButton4.Glyph := Image1.Picture.Bitmap;
+          //Image1.Picture.Bitmap := tempPicture.Picture.Bitmap;
+          GradButton4.ShowGlyph:=true;
+          GradButton4.Caption:='';
+      finally
+          tempPicture.Free;
+          //png.Free;
+      end;
+  end;
+end;
+
+procedure TForm1.GradButton5Click(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);
+   end;
+end;
+
+procedure TForm1.GradButton6Click(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);
+    end;
+end;
+
+procedure TForm1.GradButton7Click(Sender: TObject);
+begin
+    ColorDialog1.Color:=b.NotEnabledColor;
+    if ColorDialog1.Execute then
+    begin
+        b.NotEnabledColor:=ColorDialog1.Color;
+        GradButton7.BaseColor:=ColorDialog1.Color;
+        GradButton7.Caption:=ColorToString(GradButton7.BaseColor);
+    end;
+end;
+
+procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  b.Caption:=LabeledEdit1.Text;
+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);
+    end;
+end;
+
+procedure TForm1.OverBlendClick(Sender: TObject);
+begin
+   ColorDialog1.Color:=b.OverBlendColor;
+    if ColorDialog1.Execute then
+    begin
+        b.OverBlendColor:=ColorDialog1.Color;
+        GradButton3.BaseColor:=ColorDialog1.Color;
+        GradButton3.Caption:=ColorToString(GradButton3.BaseColor);
+    end;
+end;
+
+procedure TForm1.bClick(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
+var
+   bs : TBorderSides;
+begin
+
+  bs := [];
+
+  if CheckGroup1.Checked[0] then bs := bs + [bsBottomLine];
+  if CheckGroup1.Checked[1] then bs := bs + [bsTopLine];
+  if CheckGroup1.Checked[2] then bs := bs + [bsLeftLine];
+  if CheckGroup1.Checked[3] then bs := bs + [bsRightLine];
+  
+  b.BorderSides:=bs;
+end;
+
+procedure TForm1.CheckGroup2ItemClick(Sender: TObject; Index: integer);
+begin
+  b.ShowFocusBorder:=CheckGroup2.Checked[0];
+  b.ShowGlyph:=CheckGroup2.Checked[1];
+  b.Enabled:=CheckGroup2.Checked[2];
+end;
+
+procedure TForm1.TrackBar1Change(Sender: TObject);
+var
+   blend : Extended;
+begin
+   blend := TrackBar1.Position / TrackBar1.Max;
+   b.NormalBlend:=blend;
+   Label3.Caption:=FloatToStr(blend);
+end;
+
+procedure TForm1.TrackBar2Change(Sender: TObject);
+var
+   blend : Extended;
+begin
+   blend := TrackBar2.Position / TrackBar2.Max;
+   b.OverBlend:=blend;
+   Label4.Caption:=FloatToStr(blend);
+end;
+
+initialization
+  {$I main.lrs}
+  
+end.
+

components/gradcontrols/examples/Forms/unit1.lfm

@@ -0,0 +1,711 @@
+object Form1: TForm1
+  Left = 121
+  Height = 500
+  Top = 184
+  Width = 898
+  Caption = 'Form1'
+  ClientHeight = 500
+  ClientWidth = 898
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  LCLVersion = '0.9.25'
+  object GradButton1: TGradButton
+    Left = 24
+    Height = 104
+    Top = 88
+    Width = 176
+    OnClick = GradButton1Click
+    OnMouseDown = GradButton1MouseDown
+    OnMouseEnter = GradButton1MouseEnter
+    OnMouseLeave = GradButton1MouseLeave
+    OnMouseMove = GradButton1MouseMove
+    OnMouseUp = GradButton1MouseUp
+    TabOrder = 0
+    TabStop = True
+    NormalBlend = 0.5
+    OverBlend = 0.653
+    Caption = 'GradButton1'
+    BaseColor = clBlue
+    Color = clBlue
+    NormalBlendColor = clWhite
+    OverBlendColor = clSilver
+    BackgroundColor = clBtnFace
+    BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+    ShowFocusBorder = True
+    GlyphBackgroundColor = clWhite
+    ClickColor = clBlue
+  end
+  object Panel1: TPanel
+    Height = 500
+    Width = 759
+    Align = alLeft
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Caption = 'Panel1'
+    ClientHeight = 500
+    ClientWidth = 759
+    TabOrder = 1
+    object GradTabControl1: TGradTabControl
+      Left = 248
+      Height = 498
+      Top = 1
+      Width = 376
+      Align = alClient
+      ControlStyle = [csAcceptsControls, csDesignInteractive, csOpaque, csMenuEvents, csParentBackground, csOwnedChildsSelectable]
+      ActivePage = GradTabPage3
+      OnTabButtonClick = GradTabControl1TabButtonClick
+      OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp
+      PageIndex = 2
+      TabHeight = 20
+      object GradTabPage1: TGradTabPage
+        Left = 2
+        Height = 567
+        Top = 22
+        Width = 506
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
+        Caption = 'GradTabPage1'
+        ShowCloseButton = True
+        object Edit1: TEdit
+          Height = 567
+          Width = 506
+          Align = alClient
+          TabOrder = 0
+          Text = 'Edit1'
+        end
+      end
+      object GradTabPage2: TGradTabPage
+        Left = 2
+        Height = 567
+        Top = 22
+        Width = 506
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
+        PageIndex = 1
+        Caption = 'GradTabPage2'
+      end
+      object GradTabPage3: TGradTabPage
+        Left = 2
+        Height = 474
+        Top = 22
+        Width = 372
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
+        PageIndex = 2
+        Caption = 'GradTabPage3'
+        object Memo1: TMemo
+          Height = 474
+          Width = 372
+          Align = alClient
+          Lines.Strings = (
+            'Memo1'
+          )
+          TabOrder = 0
+        end
+      end
+    end
+    object GradTabControl2: TGradTabControl
+      Left = 1
+      Height = 498
+      Top = 1
+      Width = 247
+      Align = alLeft
+      ControlStyle = [csAcceptsControls]
+      ActivePage = GradTabPage5
+      OnTabButtonClick = GradTabControl2TabButtonClick
+      PageIndex = 1
+      TabHeight = 25
+      TabPosition = tpRight
+      object GradTabPage4: TGradTabPage
+        Left = 2
+        Height = 587
+        Top = 2
+        Width = 218
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
+        TabVisible = False
+        Caption = 'GradTabPage4'
+        object SynEdit1: TSynEdit
+          Height = 587
+          Width = 218
+          Align = alClient
+          Font.Height = 12
+          Font.Name = 'Courier'
+          Font.Pitch = fpFixed
+          ParentColor = False
+          TabOrder = 0
+          Highlighter = SynPHPSyn1
+          Keystrokes = <          
+            item
+              Command = 3
+              ShortCut = 38
+            end          
+            item
+              Command = 103
+              ShortCut = 8230
+            end          
+            item
+              Command = 211
+              ShortCut = 16422
+            end          
+            item
+              Command = 4
+              ShortCut = 40
+            end          
+            item
+              Command = 104
+              ShortCut = 8232
+            end          
+            item
+              Command = 212
+              ShortCut = 16424
+            end          
+            item
+              Command = 1
+              ShortCut = 37
+            end          
+            item
+              Command = 101
+              ShortCut = 8229
+            end          
+            item
+              Command = 5
+              ShortCut = 16421
+            end          
+            item
+              Command = 105
+              ShortCut = 24613
+            end          
+            item
+              Command = 2
+              ShortCut = 39
+            end          
+            item
+              Command = 102
+              ShortCut = 8231
+            end          
+            item
+              Command = 6
+              ShortCut = 16423
+            end          
+            item
+              Command = 106
+              ShortCut = 24615
+            end          
+            item
+              Command = 10
+              ShortCut = 34
+            end          
+            item
+              Command = 110
+              ShortCut = 8226
+            end          
+            item
+              Command = 14
+              ShortCut = 16418
+            end          
+            item
+              Command = 114
+              ShortCut = 24610
+            end          
+            item
+              Command = 9
+              ShortCut = 33
+            end          
+            item
+              Command = 109
+              ShortCut = 8225
+            end          
+            item
+              Command = 13
+              ShortCut = 16417
+            end          
+            item
+              Command = 113
+              ShortCut = 24609
+            end          
+            item
+              Command = 7
+              ShortCut = 36
+            end          
+            item
+              Command = 107
+              ShortCut = 8228
+            end          
+            item
+              Command = 15
+              ShortCut = 16420
+            end          
+            item
+              Command = 115
+              ShortCut = 24612
+            end          
+            item
+              Command = 8
+              ShortCut = 35
+            end          
+            item
+              Command = 108
+              ShortCut = 8227
+            end          
+            item
+              Command = 16
+              ShortCut = 16419
+            end          
+            item
+              Command = 116
+              ShortCut = 24611
+            end          
+            item
+              Command = 223
+              ShortCut = 45
+            end          
+            item
+              Command = 201
+              ShortCut = 16429
+            end          
+            item
+              Command = 604
+              ShortCut = 8237
+            end          
+            item
+              Command = 502
+              ShortCut = 46
+            end          
+            item
+              Command = 603
+              ShortCut = 8238
+            end          
+            item
+              Command = 501
+              ShortCut = 8
+            end          
+            item
+              Command = 501
+              ShortCut = 8200
+            end          
+            item
+              Command = 504
+              ShortCut = 16392
+            end          
+            item
+              Command = 601
+              ShortCut = 32776
+            end          
+            item
+              Command = 602
+              ShortCut = 40968
+            end          
+            item
+              Command = 509
+              ShortCut = 13
+            end          
+            item
+              Command = 199
+              ShortCut = 16449
+            end          
+            item
+              Command = 201
+              ShortCut = 16451
+            end          
+            item
+              Command = 610
+              ShortCut = 24649
+            end          
+            item
+              Command = 509
+              ShortCut = 16461
+            end          
+            item
+              Command = 510
+              ShortCut = 16462
+            end          
+            item
+              Command = 503
+              ShortCut = 16468
+            end          
+            item
+              Command = 611
+              ShortCut = 24661
+            end          
+            item
+              Command = 604
+              ShortCut = 16470
+            end          
+            item
+              Command = 603
+              ShortCut = 16472
+            end          
+            item
+              Command = 507
+              ShortCut = 16473
+            end          
+            item
+              Command = 506
+              ShortCut = 24665
+            end          
+            item
+              Command = 601
+              ShortCut = 16474
+            end          
+            item
+              Command = 602
+              ShortCut = 24666
+            end          
+            item
+              Command = 301
+              ShortCut = 16432
+            end          
+            item
+              Command = 302
+              ShortCut = 16433
+            end          
+            item
+              Command = 303
+              ShortCut = 16434
+            end          
+            item
+              Command = 304
+              ShortCut = 16435
+            end          
+            item
+              Command = 305
+              ShortCut = 16436
+            end          
+            item
+              Command = 306
+              ShortCut = 16437
+            end          
+            item
+              Command = 307
+              ShortCut = 16438
+            end          
+            item
+              Command = 308
+              ShortCut = 16439
+            end          
+            item
+              Command = 309
+              ShortCut = 16440
+            end          
+            item
+              Command = 310
+              ShortCut = 16441
+            end          
+            item
+              Command = 351
+              ShortCut = 24624
+            end          
+            item
+              Command = 352
+              ShortCut = 24625
+            end          
+            item
+              Command = 353
+              ShortCut = 24626
+            end          
+            item
+              Command = 354
+              ShortCut = 24627
+            end          
+            item
+              Command = 355
+              ShortCut = 24628
+            end          
+            item
+              Command = 356
+              ShortCut = 24629
+            end          
+            item
+              Command = 357
+              ShortCut = 24630
+            end          
+            item
+              Command = 358
+              ShortCut = 24631
+            end          
+            item
+              Command = 359
+              ShortCut = 24632
+            end          
+            item
+              Command = 360
+              ShortCut = 24633
+            end          
+            item
+              Command = 231
+              ShortCut = 24654
+            end          
+            item
+              Command = 232
+              ShortCut = 24643
+            end          
+            item
+              Command = 233
+              ShortCut = 24652
+            end          
+            item
+              Command = 612
+              ShortCut = 9
+            end          
+            item
+              Command = 613
+              ShortCut = 8201
+            end          
+            item
+              Command = 250
+              ShortCut = 24642
+            end>
+          Lines.Strings = (
+            '<?'
+            ''
+            'echo "string";'
+            ''
+            '?>'
+          )
+        end
+      end
+      object GradTabPage5: TGradTabPage
+        Left = 2
+        Height = 494
+        Top = 2
+        Width = 218
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
+        PageIndex = 1
+        Caption = 'GradTabPage5'
+        ShowCloseButton = True
+        object StringGrid1: TStringGrid
+          Height = 494
+          Width = 218
+          Align = alClient
+          ColCount = 5
+          ExtendedSelect = True
+          FixedColor = clBtnFace
+          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goSmoothScroll]
+          RowCount = 5
+          TabOrder = 0
+        end
+      end
+    end
+    object GradTabControl3: TGradTabControl
+      Left = 624
+      Height = 498
+      Top = 1
+      Width = 134
+      Align = alRight
+      ControlStyle = [csAcceptsControls]
+      ActivePage = GradTabPage7
+      PageIndex = 1
+      TabHeight = 30
+      TabPosition = tpLeft
+      object GradTabPage6: TGradTabPage
+        Left = 32
+        Height = 587
+        Top = 2
+        Width = 100
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csNoDesignVisible, csDesignFixedBounds, csNoDesignSelectable]
+        Caption = 'GradTabPage6'
+        ShowCloseButton = True
+      end
+      object GradTabPage7: TGradTabPage
+        Left = 32
+        Height = 494
+        Top = 2
+        Width = 100
+        ControlState = [csVisibleSetInLoading]
+        ControlStyle = [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csDoubleClicks, csDesignFixedBounds]
+        PageIndex = 1
+        Caption = 'GradTabPage7'
+      end
+    end
+  end
+  object Panel2: TPanel
+    Left = 764
+    Height = 500
+    Width = 134
+    Align = alClient
+    Caption = 'Panel2'
+    ClientHeight = 500
+    ClientWidth = 134
+    TabOrder = 2
+    object ComboBox1: TComboBox
+      Left = 16
+      Height = 21
+      Top = 16
+      Width = 100
+      AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+      ItemHeight = 13
+      OnChange = ComboBox1Change
+      Style = csDropDownList
+      TabOrder = 0
+    end
+    object GradButton3: TGradButton
+      Left = 16
+      Height = 25
+      Top = 48
+      Width = 100
+      OnClick = GradButton3Click
+      TabOrder = 1
+      TabStop = True
+      NormalBlend = 0.5
+      OverBlend = 0.653
+      Caption = 'Add'
+      BaseColor = clBlue
+      Color = clBlue
+      NormalBlendColor = clWhite
+      OverBlendColor = clSilver
+      BackgroundColor = clBtnFace
+      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+      ShowFocusBorder = True
+      GlyphBackgroundColor = clWhite
+      ClickColor = clBlue
+    end
+    object GradButton4: TGradButton
+      Left = 16
+      Height = 25
+      Top = 112
+      Width = 100
+      OnClick = GradButton4Click
+      TabOrder = 2
+      TabStop = True
+      NormalBlend = 0.5
+      OverBlend = 0.653
+      Caption = 'Delete'
+      BaseColor = clBlue
+      Color = clBlue
+      NormalBlendColor = clWhite
+      OverBlendColor = clSilver
+      BackgroundColor = clBtnFace
+      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+      ShowFocusBorder = True
+      GlyphBackgroundColor = clWhite
+      ClickColor = clBlue
+    end
+    object GradButton2: TGradButton
+      Left = 16
+      Height = 25
+      Top = 80
+      Width = 100
+      OnClick = GradButton2Click
+      TabOrder = 3
+      TabStop = True
+      NormalBlend = 0.5
+      OverBlend = 0.653
+      Caption = 'Add Custom Page'
+      BaseColor = clBlue
+      Color = clBlue
+      NormalBlendColor = clWhite
+      OverBlendColor = clSilver
+      BackgroundColor = clBtnFace
+      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+      ShowFocusBorder = True
+      GlyphBackgroundColor = clWhite
+      ClickColor = clBlue
+    end
+    object RadioGroup1: TRadioGroup
+      Left = 16
+      Height = 113
+      Top = 152
+      Width = 100
+      AutoFill = True
+      Caption = 'Tab Position'
+      ChildSizing.LeftRightSpacing = 6
+      ChildSizing.TopBottomSpacing = 6
+      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+      ChildSizing.EnlargeVertical = crsHomogenousChildResize
+      ChildSizing.ShrinkHorizontal = crsScaleChilds
+      ChildSizing.ShrinkVertical = crsScaleChilds
+      ChildSizing.Layout = cclLeftToRightThenTopToBottom
+      ChildSizing.ControlsPerLine = 1
+      ClientHeight = 95
+      ClientWidth = 96
+      ItemIndex = 0
+      Items.Strings = (
+        'tpTop'
+        'tpBottom'
+        'tpLeft'
+        'tpRight'
+      )
+      OnClick = RadioGroup1Click
+      TabOrder = 4
+    end
+    object CheckBox1: TCheckBox
+      Left = 15
+      Height = 19
+      Top = 276
+      Width = 75
+      Caption = 'Long Tabs'
+      OnClick = CheckBox1Click
+      TabOrder = 5
+    end
+    object SpinEdit1: TSpinEdit
+      Left = 95
+      Height = 19
+      Top = 276
+      Width = 34
+      MaxValue = 50
+      OnEditingDone = SpinEdit1EditingDone
+      TabOrder = 6
+      Value = 50
+    end
+    object Arrow1: TArrow
+      Left = 31
+      Height = 10
+      Top = 456
+      Width = 10
+    end
+    object GradButton5: TGradButton
+      Left = 23
+      Height = 24
+      Top = 344
+      Width = 21
+      Font.Name = 'System'
+      Font.Style = [fsBold]
+      TabOrder = 8
+      TabStop = True
+      NormalBlend = 0.5
+      OverBlend = 0.653
+      Caption = 'X'
+      BaseColor = clBtnFace
+      Color = clBtnFace
+      NormalBlendColor = clBtnFace
+      OverBlendColor = clWhite
+      BackgroundColor = clBtnFace
+      AutoWidth = True
+      BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
+      ShowFocusBorder = True
+      RotateDirection = rdRight
+      GlyphBackgroundColor = clWhite
+      ClickColor = clBtnFace
+    end
+    object ScrollBox1: TScrollBox
+      Left = -34
+      Height = 150
+      Top = 400
+      Width = 150
+      HorzScrollBar.Page = 145
+      VertScrollBar.Page = 145
+      AutoScroll = False
+      TabOrder = 9
+    end
+  end
+  object Splitter1: TSplitter
+    Left = 759
+    Height = 500
+    Width = 5
+  end
+  object PopupMenu1: TPopupMenu
+    left = 734
+    top = 397
+    object MenuItem1: TMenuItem
+      Caption = 'New Item1'
+    end
+  end
+  object SynPHPSyn1: TSynPHPSyn
+    DefaultFilter = 'PHP-Dateien (*.php,*.php3,*.phtml,*.inc)|*.php;*.php3;*.phtml;*.inc'
+    Enabled = False
+    left = 115
+    top = 255
+  end
+end

components/gradcontrols/examples/Forms/unit1.lrs

@@ -0,0 +1,183 @@
+{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
+
+LazarusResources.Add('TForm1','FORMDATA',[
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#2'y'#6'Height'#3#244#1#3'Top'#3#184#0#5'Wid'
+  +'th'#3#130#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#244#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'OnClick'#7#16'GradButton1Click'#11'OnMous'
+  +'eDown'#7#20'GradButton1MouseDown'#12'OnMouseEnter'#7#21'GradButton1MouseEnt'
+  +'er'#12'OnMouseLeave'#7#21'GradButton1MouseLeave'#11'OnMouseMove'#7#20'GradB'
+  +'utton1MouseMove'#9'OnMouseUp'#7#18'GradButton1MouseUp'#8'TabOrder'#2#0#7'Ta'
+  +'bStop'#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'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'bsTopLi'
+  +'ne'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9
+  +#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#6'TPan'
+  +'el'#6'Panel1'#6'Height'#3#244#1#5'Width'#3#247#2#5'Align'#7#6'alLeft'#7'Anc'
+  +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Caption'#6#6'Panel1'
+  +#12'ClientHeight'#3#244#1#11'ClientWidth'#3#247#2#8'TabOrder'#2#1#0#15'TGrad'
+  +'TabControl'#15'GradTabControl1'#4'Left'#3#248#0#6'Height'#3#242#1#3'Top'#2#1
+  +#5'Width'#3'x'#1#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAcceptsCont'
+  +'rols'#19'csDesignInteractive'#8'csOpaque'#12'csMenuEvents'#18'csParentBackg'
+  +'round'#23'csOwnedChildsSelectable'#0#10'ActivePage'#7#12'GradTabPage3'#16'O'
+  +'nTabButtonClick'#7#29'GradTabControl1TabButtonClick'#18'OnTabButtonMouseUp'
+  +#7#31'GradTabControl1TabButtonMouseUp'#9'PageIndex'#2#2#9'TabHeight'#2#20#0
+  +#12'TGradTabPage'#12'GradTabPage1'#4'Left'#2#2#6'Height'#3'7'#2#3'Top'#2#22#5
+  +'Width'#3#250#1#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'ControlSt'
+  +'yle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12'csSet'
+  +'Caption'#14'csDoubleClicks'#17'csNoDesignVisible'#19'csDesignFixedBounds'#20
+  +'csNoDesignSelectable'#0#7'Caption'#6#12'GradTabPage1'#15'ShowCloseButton'#9
+  +#0#5'TEdit'#5'Edit1'#6'Height'#3'7'#2#5'Width'#3#250#1#5'Align'#7#8'alClient'
+  +#8'TabOrder'#2#0#4'Text'#6#5'Edit1'#0#0#0#12'TGradTabPage'#12'GradTabPage2'#4
+  +'Left'#2#2#6'Height'#3'7'#2#3'Top'#2#22#5'Width'#3#250#1#12'ControlState'#11
+  +#21'csVisibleSetInLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14'cs'
+  +'CaptureMouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#17'csNo'
+  +'DesignVisible'#19'csDesignFixedBounds'#20'csNoDesignSelectable'#0#9'PageInd'
+  +'ex'#2#1#7'Caption'#6#12'GradTabPage2'#0#0#12'TGradTabPage'#12'GradTabPage3'
+  +#4'Left'#2#2#6'Height'#3#218#1#3'Top'#2#22#5'Width'#3't'#1#12'ControlState'
+  +#11#21'csVisibleSetInLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14
+  +'csCaptureMouse'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#19'cs'
+  +'DesignFixedBounds'#0#9'PageIndex'#2#2#7'Caption'#6#12'GradTabPage3'#0#5'TMe'
+  +'mo'#5'Memo1'#6'Height'#3#218#1#5'Width'#3't'#1#5'Align'#7#8'alClient'#13'Li'
+  +'nes.Strings'#1#6#5'Memo1'#0#8'TabOrder'#2#0#0#0#0#0#15'TGradTabControl'#15
+  +'GradTabControl2'#4'Left'#2#1#6'Height'#3#242#1#3'Top'#2#1#5'Width'#3#247#0#5
+  +'Align'#7#6'alLeft'#12'ControlStyle'#11#17'csAcceptsControls'#0#10'ActivePag'
+  +'e'#7#12'GradTabPage5'#16'OnTabButtonClick'#7#29'GradTabControl2TabButtonCli'
+  +'ck'#9'PageIndex'#2#1#9'TabHeight'#2#25#11'TabPosition'#7#7'tpRight'#0#12'TG'
+  +'radTabPage'#12'GradTabPage4'#4'Left'#2#2#6'Height'#3'K'#2#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'#17'csNoDesignVisible'#19'csDesignFixedBounds'#20'csN'
+  +'oDesignSelectable'#0#10'TabVisible'#8#7'Caption'#6#12'GradTabPage4'#0#8'TSy'
+  +'nEdit'#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#11'Highlighter'#7#10'SynPHPSyn1'#10'Keyst'
+  +'rokes'#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'ShortCu'
+  +'t'#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'Shor'
+  +'tCut'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'Short'
+  +'Cut'#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'Short'
+  +'Cut'#3'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'Short'
+  +'Cut'#3''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'Sho'
+  +'rtCut'#3'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'Sh'
+  +'ortCut'#3'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'S'
+  +'hortCut'#3'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'Sh'
+  +'ortCut'#3'! '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'S'
+  ,'hortCut'#3'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'Sh'
+  +'ortCut'#3'$ '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'S'
+  +'hortCut'#3'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'Sh'
+  +'ortCut'#3'# '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'S'
+  +'hortCut'#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'Comman'
+  +'d'#3#245#1#8'ShortCut'#2#8#0#1#7'Command'#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'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'Comma'
+  +'nd'#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'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortC'
+  +'ut'#3'Y`'#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'S'
+  +'hortCut'#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'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Comman'
+  +'d'#3'2'#1#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'C'
+  +'ommand'#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'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCu'
+  +'t'#3'4`'#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'Sh'
+  +'ortCut'#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'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Comm'
+  +'and'#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#0#0#0
+  +#12'TGradTabPage'#12'GradTabPage5'#4'Left'#2#2#6'Height'#3#238#1#3'Top'#2#2#5
+  +'Width'#3#218#0#12'ControlState'#11#21'csVisibleSetInLoading'#0#12'ControlSt'
+  +'yle'#11#17'csAcceptsControls'#14'csCaptureMouse'#13'csClickEvents'#12'csSet'
+  +'Caption'#14'csDoubleClicks'#19'csDesignFixedBounds'#0#9'PageIndex'#2#1#7'Ca'
+  +'ption'#6#12'GradTabPage5'#15'ShowCloseButton'#9#0#11'TStringGrid'#11'String'
+  +'Grid1'#6'Height'#3#238#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'goF'
+  +'ixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeS'
+  +'elect'#14'goSmoothScroll'#0#8'RowCount'#2#5#8'TabOrder'#2#0#0#0#0#0#15'TGra'
+  +'dTabControl'#15'GradTabControl3'#4'Left'#3'p'#2#6'Height'#3#242#1#3'Top'#2#1
+  +#5'Width'#3#134#0#5'Align'#7#7'alRight'#12'ControlStyle'#11#17'csAcceptsCont'
+  +'rols'#0#10'ActivePage'#7#12'GradTabPage7'#9'PageIndex'#2#1#9'TabHeight'#2#30
+  +#11'TabPosition'#7#6'tpLeft'#0#12'TGradTabPage'#12'GradTabPage6'#4'Left'#2' '
+  +#6'Height'#3'K'#2#3'Top'#2#2#5'Width'#2'd'#12'ControlState'#11#21'csVisibleS'
+  +'etInLoading'#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'GradTabP'
+  +'age6'#15'ShowCloseButton'#9#0#0#12'TGradTabPage'#12'GradTabPage7'#4'Left'#2
+  +' '#6'Height'#3#238#1#3'Top'#2#2#5'Width'#2'd'#12'ControlState'#11#21'csVisi'
+  +'bleSetInLoading'#0#12'ControlStyle'#11#17'csAcceptsControls'#14'csCaptureMo'
+  +'use'#13'csClickEvents'#12'csSetCaption'#14'csDoubleClicks'#19'csDesignFixed'
+  +'Bounds'#0#9'PageIndex'#2#1#7'Caption'#6#12'GradTabPage7'#0#0#0#0#6'TPanel'#6
+  +'Panel2'#4'Left'#3#252#2#6'Height'#3#244#1#5'Width'#3#134#0#5'Align'#7#8'alC'
+  +'lient'#7'Caption'#6#6'Panel2'#12'ClientHeight'#3#244#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'cbactSearchAscending'#0#10'ItemHeight'#2#13#8'OnChange'#7#15'ComboBox1Ch'
+  +'ange'#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'OnClic'
+  +'k'#7#16'GradButton3Click'#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'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'
+  ,#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtn'
+  +'Face'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bs'
+  +'RightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#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'OnClick'#7#16'GradButton4Click'#8
+  +'TabOrder'#2#2#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'Ove'
+  +'rBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#6'Delete'#9'BaseColor'
+  +#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverB'
+  +'lendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'
+  +#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFo'
+  +'cusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlu'
+  +'e'#0#0#11'TGradButton'#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'TabSto'
+  +'p'#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#15'Add Custom Page'#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#20
+  +'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TRadio'
+  +'Group'#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'ChildSizing.LeftRightSpac'
+  +'ing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizon'
+  +'tal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'cr'
+  +'sHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChild'
+  +'s'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layou'
+  +'t'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1
+  +#12'ClientHeight'#2'_'#11'ClientWidth'#2'`'#9'ItemIndex'#2#0#13'Items.String'
+  +'s'#1#6#5'tpTop'#6#8'tpBottom'#6#6'tpLeft'#6#7'tpRight'#0#7'OnClick'#7#16'Ra'
+  +'dioGroup1Click'#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'OnClic'
+  +'k'#7#14'CheckBox1Click'#8'TabOrder'#2#5#0#0#9'TSpinEdit'#9'SpinEdit1'#4'Lef'
+  +'t'#2'_'#6'Height'#2#19#3'Top'#3#20#1#5'Width'#2'"'#8'MaxValue'#2'2'#13'OnEd'
+  +'itingDone'#7#20'SpinEdit1EditingDone'#8'TabOrder'#2#6#5'Value'#2'2'#0#0#6'T'
+  +'Arrow'#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#23#6'Height'#2#24#3'Top'#3'X'#1
+  +#5'Width'#2#21#9'Font.Name'#6#6'System'#10'Font.Style'#11#6'fsBold'#0#8'TabO'
+  +'rder'#2#8#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBle'
+  +'nd'#5'5^'#186'I'#12#2'+'#167#254'?'#7'Caption'#6#1'X'#9'BaseColor'#7#9'clBt'
+  +'nFace'#5'Color'#7#9'clBtnFace'#16'NormalBlendColor'#7#9'clBtnFace'#14'OverB'
+  +'lendColor'#7#7'clWhite'#15'BackgroundColor'#7#9'clBtnFace'#9'AutoWidth'#9#11
+  +'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'
+  +#0#15'ShowFocusBorder'#9#15'RotateDirection'#7#7'rdRight'#20'GlyphBackground'
+  +'Color'#7#7'clWhite'#10'ClickColor'#7#9'clBtnFace'#0#0#10'TScrollBox'#10'Scr'
+  +'ollBox1'#4'Left'#2#222#6'Height'#3#150#0#3'Top'#3#144#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
+  +#244#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'New Item1'#0#0#0#10'TSyn'
+  +'PHPSyn'#10'SynPHPSyn1'#13'DefaultFilter'#6'CPHP-Dateien (*.php,*.php3,*.pht'
+  +'ml,*.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

@@ -0,0 +1,399 @@
+unit Unit1; 
+
+{$mode objfpc}{$H+}
+
+(*
+  ich denke mal das beste wäre erstmal die TGradTabPages mit der TGradTabControl
+  richtig zu "verlinken", ich habe auch noch ne TabListe hinzufügt diese müsste man dann auch noch
+  bei der TGradTabPages einbauen damit die Tabs schon mal automatisch erstellt und
+  gelöscht werden ^^
+
+  ToDo:
+  - TGradTabBar & TGradTabPagesBar mit sortieren von Tabs "ausstatten"
+  - TabPosition einbauen, sowie das zeichnen und anordnen der Tabs/Pages ändern
+  - CurrentPage-Button ohne Abstand
+  - IDE Testen hoffe es geht *g*
+  
+  Danach:
+  - Eigene Page Classen zu ordnen ( bräuchte ich zumindest ^^ ) - Feddich
+  - Tabs disable-n
+  - noch welche Wünsche? xD
+  - Testen testen testen und voila wir haben eine neue komponente :D
+  
+  - Irgendwann mal eine TGradDrawer klasse um mehre
+*)
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
+  ugradbtn, StdCtrls, ComCtrls, LCLType, LCLProc, Buttons, ugradtabcontrol,
+  Menus, Spin, ButtonPanel,
+  MaskEdit, DBGrids, DbCtrls, EditBtn, Arrow,
+  SynHighlighterPHP, Grids, SynEdit;
+
+type
+
+  TTryOutPage = class(TGradTabPage)
+  
+  end;
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    Arrow1: TArrow;
+    CheckBox1: TCheckBox;
+    ComboBox1: TComboBox;
+    Edit1: TEdit;
+    GradButton1: TGradButton;
+    GradButton2: TGradButton;
+    GradButton3: TGradButton;
+    GradButton4: TGradButton;
+    GradButton5: TGradButton;
+    GradTabControl1: TGradTabControl;
+    GradTabControl2: TGradTabControl;
+    GradTabControl3: TGradTabControl;
+    GradTabPage1: TGradTabPage;
+    GradTabPage2: TGradTabPage;
+    GradTabPage3: TGradTabPage;
+    GradTabPage4: TGradTabPage;
+    GradTabPage5: TGradTabPage;
+    GradTabPage6: TGradTabPage;
+    GradTabPage7: TGradTabPage;
+    Memo1: TMemo;
+    MenuItem1: TMenuItem;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    PopupMenu1: TPopupMenu;
+    RadioGroup1: TRadioGroup;
+    ScrollBox1: TScrollBox;
+    SpinEdit1: TSpinEdit;
+    Splitter1: TSplitter;
+    StringGrid1: TStringGrid;
+    SynEdit1: TSynEdit;
+    SynPHPSyn1: TSynPHPSyn;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure ComboBox1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure GradButton1Click(Sender: TObject);
+    procedure GradButton1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure GradButton1MouseEnter(Sender: TObject);
+    procedure GradButton1MouseLeave(Sender: TObject);
+    procedure GradButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
+    procedure GradButton1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure GradButton2Click(Sender: TObject);
+    procedure GradButton3Click(Sender: TObject);
+    procedure GradButton4Click(Sender: TObject);
+    procedure GradTabControl1TabButtonClick(GradTabControl: TGradTabControl;
+      AIndex: Integer);
+    procedure GradTabControl1TabButtonMouseUp(GradTabControl: TGradTabControl;
+      Button: TMouseButton; Shift: TShiftState; X, Y, AIndex: Integer);
+    procedure GradTabControl2TabButtonClick(GradTabControl: TGradTabControl;
+      AIndex: Integer);
+    procedure RadioGroup1Click(Sender: TObject);
+    procedure SpinEdit1EditingDone(Sender: TObject);
+    //procedure FormPaint(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+    //GradTabControl1 : TGradTabControl;
+    FControlWidth : Integer;
+    FLastIndex : Integer;
+  end; 
+
+var
+  Form1: TForm1; 
+
+implementation
+
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+var
+   TestPage : TGradTabPage;
+begin
+  { GradTabControl1 := TGradTabControl.Create(nil);
+   with GradTabControl1 do
+   begin
+       ControlStyle:=ControlStyle+[csAcceptsControls];
+       Top := 1;
+       Left := 1;
+       Width := 400;
+       Height := 400;
+       Parent := Panel1;
+       Anchors:=[akLeft,akTop];
+       Align:=alClient;
+       //BorderStyle:=bsSingle;
+   end; }
+
+  GradTabControl1.Align:=alClient;
+  GradTabControl1.TabPosition:=tpTop;
+
+  { with TGradButton.Create(GradTabControl1) do
+   begin
+       Top := 0;
+       Height:=30;
+       Left := 2;
+       Caption := 'Tab1';
+       Name := 'Tab1';
+       Parent := GradTabControl1;
+       BorderSides:=BorderSides-[bsBottomLine];
+       OnClick:=@GradTabControl1.TabButtonClick;
+   end;
+   
+   with TGradButton.Create(GradTabControl1) do
+   begin
+       Top := 3;
+       Height:=27;
+       Left := 82;
+       Caption := 'Tab2';
+       Name := 'Tab2';
+       Parent := GradTabControl1;
+       Color := clGreen;
+       BorderSides:=BorderSides-[bsBottomLine];
+       OnClick:=@GradTabControl1.TabButtonClick;
+   end;
+   
+   with TGradTabPage.Create(GradTabControl1) do
+   begin
+       Name := 'page1';
+       Left := 2;
+       Top := 32;
+       Width:=496;
+       Height:=466;
+       Color:=clBlue;
+       Parent:=GradTabControl1;
+       Align:=alClient;
+   end;
+   
+   with TGradTabPage.Create(GradTabControl1) do
+   begin
+       Name := 'page2';
+       Left := 2;
+       Top := 32;
+       Width:=496;
+       Height:=466;
+       Color:=clGreen;
+       Visible:=false;
+       Parent:=GradTabControl1;
+       Align:=alClient;
+   end;   }
+   
+   {WriteLn(GradTabControl1.Tabs.Add('tab_0'));
+   ComboBox1.Items.Add('tab_0');
+   
+   WriteLn(GradTabControl1.Tabs.Add('tab_1'));
+   ComboBox1.Items.Add('tab_1');
+   }//WriteLn(GradTabControl1.Tabs.Add('BLA2'));
+   
+   {
+   
+   GradButton3.PopupMenu := PopupMenu1;
+   
+   WriteLn(BoolToStr(GradTabControl1.Pages[0] <> nil,true));
+   
+   GradButton1.Parent := GradTabControl1.Pages[0];
+   BitBtn1.Parent := GradTabControl1.Pages[0];
+   }
+   //GradButton3Click(GradButton3);
+   //GradButton3Click(GradButton3);
+
+   {TestPage := TGradTabPage(GradTabControl1.PageList.Items[0]);
+   Memo1.Lines.Add(TestPage.Name+' '+TestPage.Caption);
+   //GradTabControl1.Tabs.Text:='a';
+
+   Memo1.Parent := GradTabControl1.Pages[0];
+   Memo1.Align:=alClient;
+   Memo1.Lines.Add(TestPage.Name+' '+TestPage.Caption);
+    }
+
+   {TestPage.Name:='GradTabPage1';
+   TestPage.Caption:='GradTabPage1';
+   TestPage.Parent := GradTabControl1;
+   }
+   //ComboBox1.Items.AddStrings(GradTabControl1.Tabs);
+   //ComboBox1.Items.Add('a');
+   //ComboBox1.Items.Add('GradTabPage1');
+
+   FControlWidth:=247;
+   FLastIndex:=1;
+end;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  (GradTabControl1.ControlByName('page1') as TGradTabPage).Align:=alClient;
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+  GradTabControl1.Tabs.Add('No2');
+end;
+
+procedure TForm1.CheckBox1Click(Sender: TObject);
+begin
+  GradTabControl1.LongWidth:=SpinEdit1.Value;
+  GradTabControl1.LongTabs:=CheckBox1.Checked;
+end;
+
+procedure TForm1.ComboBox1Change(Sender: TObject);
+begin
+   GradTabControl1.CurrentPageNum:=GradTabControl1.Tabs.IndexOf(ComboBox1.Text);
+end;
+
+procedure TForm1.FormDestroy(Sender: TObject);
+begin
+   GradTabControl1.Free;
+end;
+
+procedure TForm1.GradButton1Click(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.GradButton1MouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+
+end;
+
+procedure TForm1.GradButton1MouseEnter(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.GradButton1MouseLeave(Sender: TObject);
+begin
+
+end;
+
+procedure TForm1.GradButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+
+end;
+
+procedure TForm1.GradButton1MouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+
+end;
+
+procedure TForm1.GradButton2Click(Sender: TObject);
+var
+   C : Integer;
+begin
+  with TTryOutPage.Create(Self) do
+  begin
+      Parent := GradTabControl1;
+      C := PageIndex;
+  end;
+
+  ComboBox1.ItemIndex:=ComboBox1.Items.Add('Custom_'+IntToStr(GradTabControl1.Tabs.Count-1));
+
+  WriteLn('CustomIndex: ', IntToStr(C));
+  
+  GradTabControl1.Pages[C].Color:=clRed;
+  GradTabControl1.Pages[C].Caption:=ComboBox1.Text; //WICHTIG, eine Caption muss für
+  //die Eigenschaft Tabs gesetzt werden!
+  
+  GradTabControl1.Pages[C].TabPopupMenu := PopupMenu1;
+  GradTabControl1.Pages[C].PopupMenu:= PopupMenu1;
+end;
+
+procedure TForm1.GradButton3Click(Sender: TObject);
+var
+   C,R,G,B : Integer;
+begin
+  C := GradTabControl1.Tabs.Count;
+  GradTabControl1.Tabs.Add('tab_'+IntToStr(C));
+  
+  Randomize;
+  
+  R := Random(255)+1;
+  G := Random(255)+1;
+  B := Random(255)+1;
+  
+  //WriteLn(R, ' ', G, ' ', B, ColorToString(RGBToColor(R,G,B)));
+  GradTabControl1.CurrentPage.Caption:='tab_'+IntToStr(C);
+  GradTabControl1.CurrentPage.Color:=RGBToColor(R, G, B);
+  GradTabControl1.CurrentPage.TabPopupMenu := PopupMenu1;
+  GradTabControl1.CurrentPage.PopupMenu:= PopupMenu1;
+  
+  ComboBox1.ItemIndex:=ComboBox1.Items.Add('tab_'+IntToStr(C));
+end;
+
+procedure TForm1.GradButton4Click(Sender: TObject);
+begin
+  if GradTabControl1.Tabs.IndexOf(ComboBox1.Text) <> -1 then
+  begin
+     GradTabControl1.Tabs.Delete(GradTabControl1.Tabs.IndexOf(ComboBox1.Text));
+     ComboBox1.Items.Delete(ComboBox1.Items.IndexOf(ComboBox1.Text));
+     ComboBox1.ItemIndex:=GradTabControl1.CurrentPageNum;
+  end;
+end;
+
+procedure TForm1.GradTabControl1TabButtonClick(GradTabControl: TGradTabControl;
+  AIndex: Integer);
+begin
+  ShowMessage('TabClicked: Index: '+IntToStr(AIndex)+' Caption: '+GradTabControl.Page[AIndex].Caption);
+end;
+
+procedure TForm1.GradTabControl1TabButtonMouseUp(
+  GradTabControl: TGradTabControl; Button: TMouseButton; Shift: TShiftState; X,
+  Y, AIndex: Integer);
+begin
+  ShowMessage('TabMouseUp: Index: '+IntToStr(AIndex)+' Caption: '+GradTabControl.Page[AIndex].Caption);
+
+  if Button=mbMiddle then
+  begin
+      //GradTabControl.Tabs.Delete(AIndex);
+      GradTabControl.Page[AIndex].Free;
+  end;
+end;
+
+procedure TForm1.GradTabControl2TabButtonClick(GradTabControl: TGradTabControl;
+  AIndex: Integer);
+begin
+  if AIndex = FLastIndex then
+  begin
+      if GradTabControl.Width=GradTabControl.TabHeight then
+         GradTabControl.Width:=FControlWidth
+      else
+         GradTabControl.Width:=GradTabControl.TabHeight;
+
+  end else begin
+      GradTabControl.Width:=FControlWidth;
+      FLastIndex:=AIndex;
+  end;
+end;
+
+procedure TForm1.RadioGroup1Click(Sender: TObject);
+begin
+  case RadioGroup1.ItemIndex of
+       0: GradTabControl1.TabPosition := tpTop;
+       1: GradTabControl1.TabPosition := tpBottom;
+       2: GradTabControl1.TabPosition := tpLeft;
+       3: GradTabControl1.TabPosition := tpRight;
+  end;
+end;
+
+procedure TForm1.SpinEdit1EditingDone(Sender: TObject);
+begin
+  GradTabControl1.LongWidth:=SpinEdit1.Value;
+end;
+
+
+
+initialization
+  {$I unit1.lrs}
+
+end.
+

components/gradcontrols/examples/gradbuttontest.lpi

@@ -0,0 +1,698 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="6"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <Title Value="TGradButton-Demo"/>
+      <ActiveEditorIndexAtStart Value="2"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="3">
+      <Item1>
+        <PackageName Value="ImagesForLazarus"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="gradbutton"/>
+        <MinVersion Valid="True"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="LCL"/>
+      </Item3>
+    </RequiredPackages>
+    <Units Count="92">
+      <Unit0>
+        <Filename Value="gradbuttontest.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="gradbuttontest"/>
+        <CursorPos X="71" Y="11"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="166"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="main.pas"/>
+        <ComponentName Value="Form1"/>
+        <ResourceFilename Value="main.lrs"/>
+        <UnitName Value="main"/>
+        <CursorPos X="26" Y="19"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="48"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="Forms\main.pas"/>
+        <ComponentName Value="Form1"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <ResourceFilename Value="Forms\main.lrs"/>
+        <UnitName Value="main"/>
+        <CursorPos X="10" Y="4"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="166"/>
+        <Loaded Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="tableaddfrm.lrs"/>
+        <CursorPos X="1" Y="44"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="tableaddfrm.lfm"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+        <SyntaxHighlighter Value="LFM"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="PageExtControl.pas"/>
+        <UnitName Value="PageExtControl"/>
+        <CursorPos X="66" Y="138"/>
+        <TopLine Value="49"/>
+        <UsageCount Value="9"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="GradBtn.pas"/>
+        <UnitName Value="Gradbtn"/>
+        <CursorPos X="9" Y="278"/>
+        <TopLine Value="252"/>
+        <UsageCount Value="10"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\win\wininc\messages.inc"/>
+        <CursorPos X="6" Y="1040"/>
+        <TopLine Value="8"/>
+        <UsageCount Value="10"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="..\..\..\lcl\forms.pp"/>
+        <UnitName Value="Forms"/>
+        <CursorPos X="19" Y="480"/>
+        <TopLine Value="467"/>
+        <UsageCount Value="10"/>
+      </Unit8>
+      <Unit9>
+        <Filename Value="..\..\..\lcl\lmessages.pp"/>
+        <UnitName Value="LMessages"/>
+        <CursorPos X="15" Y="415"/>
+        <TopLine Value="389"/>
+        <UsageCount Value="3"/>
+      </Unit9>
+      <Unit10>
+        <Filename Value="..\..\..\lcl\graphics.pp"/>
+        <UnitName Value="Graphics"/>
+        <CursorPos X="16" Y="973"/>
+        <TopLine Value="958"/>
+        <UsageCount Value="2"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="..\..\lazgradient\gradient.pas"/>
+        <UnitName Value="Gradient"/>
+        <CursorPos X="1" Y="130"/>
+        <TopLine Value="202"/>
+        <UsageCount Value="10"/>
+      </Unit11>
+      <Unit12>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\objpas\math.pp"/>
+        <UnitName Value="math"/>
+        <CursorPos X="18" Y="69"/>
+        <TopLine Value="12"/>
+        <UsageCount Value="10"/>
+      </Unit12>
+      <Unit13>
+        <Filename Value="Units\ugradbtn.pas"/>
+        <UnitName Value="ugradbtn"/>
+        <CursorPos X="56" Y="277"/>
+        <TopLine Value="251"/>
+        <UsageCount Value="49"/>
+      </Unit13>
+      <Unit14>
+        <Filename Value="..\..\..\lcl\extctrls.pp"/>
+        <UnitName Value="ExtCtrls"/>
+        <CursorPos X="24" Y="1079"/>
+        <TopLine Value="1026"/>
+        <UsageCount Value="20"/>
+      </Unit14>
+      <Unit15>
+        <Filename Value="..\..\..\lcl\controls.pp"/>
+        <UnitName Value="Controls"/>
+        <CursorPos X="14" Y="1249"/>
+        <TopLine Value="1234"/>
+        <UsageCount Value="20"/>
+      </Unit15>
+      <Unit16>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\objpas\classes\classesh.inc"/>
+        <CursorPos X="54" Y="110"/>
+        <TopLine Value="95"/>
+        <UsageCount Value="3"/>
+      </Unit16>
+      <Unit17>
+        <Filename Value="..\..\..\lcl\include\control.inc"/>
+        <CursorPos X="1" Y="864"/>
+        <TopLine Value="849"/>
+        <UsageCount Value="19"/>
+      </Unit17>
+      <Unit18>
+        <Filename Value="..\..\..\lcl\include\customform.inc"/>
+        <CursorPos X="1" Y="1384"/>
+        <TopLine Value="1369"/>
+        <UsageCount Value="2"/>
+      </Unit18>
+      <Unit19>
+        <Filename Value="..\..\..\lcl\include\winapih.inc"/>
+        <CursorPos X="10" Y="101"/>
+        <TopLine Value="86"/>
+        <UsageCount Value="10"/>
+      </Unit19>
+      <Unit20>
+        <Filename Value="..\..\..\lcl\buttons.pp"/>
+        <UnitName Value="Buttons"/>
+        <CursorPos X="7" Y="351"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="19"/>
+      </Unit20>
+      <Unit21>
+        <Filename Value="..\..\..\lcl\include\speedbutton.inc"/>
+        <CursorPos X="17" Y="500"/>
+        <TopLine Value="493"/>
+        <UsageCount Value="15"/>
+      </Unit21>
+      <Unit22>
+        <Filename Value="..\..\..\lcl\themes.pas"/>
+        <UnitName Value="Themes"/>
+        <CursorPos X="10" Y="479"/>
+        <TopLine Value="119"/>
+        <UsageCount Value="14"/>
+      </Unit22>
+      <Unit23>
+        <Filename Value="..\..\..\lcl\stdctrls.pp"/>
+        <UnitName Value="StdCtrls"/>
+        <CursorPos X="15" Y="119"/>
+        <TopLine Value="365"/>
+        <UsageCount Value="2"/>
+      </Unit23>
+      <Unit24>
+        <Filename Value="..\..\..\lcl\include\buttons.inc"/>
+        <CursorPos X="1" Y="26"/>
+        <TopLine Value="11"/>
+        <UsageCount Value="2"/>
+      </Unit24>
+      <Unit25>
+        <Filename Value="..\..\..\lcl\include\bitbtn.inc"/>
+        <CursorPos X="1" Y="44"/>
+        <TopLine Value="44"/>
+        <UsageCount Value="6"/>
+      </Unit25>
+      <Unit26>
+        <Filename Value="..\..\..\lcl\graphtype.pp"/>
+        <UnitName Value="GraphType"/>
+        <CursorPos X="14" Y="48"/>
+        <TopLine Value="30"/>
+        <UsageCount Value="5"/>
+      </Unit26>
+      <Unit27>
+        <Filename Value="..\..\..\lcl\dialogs.pp"/>
+        <UnitName Value="Dialogs"/>
+        <CursorPos X="11" Y="489"/>
+        <TopLine Value="474"/>
+        <UsageCount Value="5"/>
+      </Unit27>
+      <Unit28>
+        <Filename Value="Forms\main.lrs"/>
+        <CursorPos X="1" Y="140"/>
+        <TopLine Value="110"/>
+        <UsageCount Value="20"/>
+      </Unit28>
+      <Unit29>
+        <Filename Value="Forms\main.lfm"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="47"/>
+        <Loaded Value="True"/>
+        <SyntaxHighlighter Value="LFM"/>
+      </Unit29>
+      <Unit30>
+        <Filename Value="..\..\..\lcl\interfaces\win32\interfaces.pp"/>
+        <UnitName Value="Interfaces"/>
+        <CursorPos X="54" Y="11"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="5"/>
+      </Unit30>
+      <Unit31>
+        <Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
+        <CursorPos X="25" Y="5894"/>
+        <TopLine Value="5879"/>
+        <UsageCount Value="3"/>
+      </Unit31>
+      <Unit32>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\inc\systemh.inc"/>
+        <CursorPos X="14" Y="87"/>
+        <TopLine Value="72"/>
+        <UsageCount Value="3"/>
+      </Unit32>
+      <Unit33>
+        <Filename Value="..\..\..\lcl\lcltype.pp"/>
+        <UnitName Value="LCLType"/>
+        <CursorPos X="3" Y="1114"/>
+        <TopLine Value="7"/>
+        <UsageCount Value="4"/>
+      </Unit33>
+      <Unit34>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\win32\windows.pp"/>
+        <UnitName Value="windows"/>
+        <CursorPos X="8" Y="33"/>
+        <TopLine Value="15"/>
+        <UsageCount Value="3"/>
+      </Unit34>
+      <Unit35>
+        <Filename Value="..\..\..\fpc\2.2.0\source\rtl\win\wininc\defines.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="265"/>
+        <UsageCount Value="3"/>
+      </Unit35>
+      <Unit36>
+        <Filename Value="..\..\..\lcl\comctrls.pp"/>
+        <UnitName Value="ComCtrls"/>
+        <CursorPos X="5" Y="2676"/>
+        <TopLine Value="2654"/>
+        <UsageCount Value="5"/>
+      </Unit36>
+      <Unit37>
+        <Filename Value="..\..\..\lcl\include\trackbar.inc"/>
+        <CursorPos X="3" Y="296"/>
+        <TopLine Value="48"/>
+        <UsageCount Value="5"/>
+      </Unit37>
+      <Unit38>
+        <Filename Value="..\..\..\lcl\widgetset\wscomctrls.pp"/>
+        <UnitName Value="WSComCtrls"/>
+        <CursorPos X="1" Y="481"/>
+        <TopLine Value="484"/>
+        <UsageCount Value="3"/>
+      </Unit38>
+      <Unit39>
+        <Filename Value="..\gradbutton.pas"/>
+        <UnitName Value="gradbutton"/>
+        <CursorPos X="21" Y="10"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="38"/>
+      </Unit39>
+      <Unit40>
+        <Filename Value="..\..\..\lcl\colorbox.pas"/>
+        <UnitName Value="ColorBox"/>
+        <CursorPos X="1" Y="194"/>
+        <TopLine Value="341"/>
+        <UsageCount Value="4"/>
+      </Unit40>
+      <Unit41>
+        <Filename Value="..\ugradbtn.pas"/>
+        <UnitName Value="ugradbtn"/>
+        <CursorPos X="19" Y="797"/>
+        <TopLine Value="789"/>
+        <UsageCount Value="63"/>
+      </Unit41>
+      <Unit42>
+        <Filename Value="..\..\..\packager\registration\lazaruspackageintf.pas"/>
+        <UnitName Value="LazarusPackageIntf"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="52"/>
+        <UsageCount Value="3"/>
+      </Unit42>
+      <Unit43>
+        <Filename Value="..\..\..\SVN\lcl\comctrls.pp"/>
+        <UnitName Value="ComCtrls"/>
+        <CursorPos X="10" Y="1435"/>
+        <TopLine Value="1435"/>
+        <UsageCount Value="33"/>
+      </Unit43>
+      <Unit44>
+        <Filename Value="..\..\..\SVN\fpc\2.2.3\source\rtl\objpas\classes\classesh.inc"/>
+        <CursorPos X="15" Y="32"/>
+        <TopLine Value="21"/>
+        <UsageCount Value="33"/>
+      </Unit44>
+      <Unit45>
+        <Filename Value="..\..\..\SVN\fpc\2.2.3\source\rtl\objpas\types.pp"/>
+        <UnitName Value="types"/>
+        <CursorPos X="10" Y="279"/>
+        <TopLine Value="251"/>
+        <UsageCount Value="19"/>
+      </Unit45>
+      <Unit46>
+        <Filename Value="..\..\..\SVN\lcl\graphics.pp"/>
+        <UnitName Value="Graphics"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="45"/>
+      </Unit46>
+      <Unit47>
+        <Filename Value="silkicons.lrs"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="27"/>
+      </Unit47>
+      <Unit48>
+        <Filename Value="..\..\..\SVN\lcl\include\graphic.inc"/>
+        <CursorPos X="17" Y="19"/>
+        <TopLine Value="4"/>
+        <UsageCount Value="25"/>
+      </Unit48>
+      <Unit49>
+        <Filename Value="..\..\..\SVN\components\images\lazpng.pas"/>
+        <UnitName Value="LazPNG"/>
+        <CursorPos X="22" Y="27"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="25"/>
+      </Unit49>
+      <Unit50>
+        <Filename Value="..\..\..\SVN\lcl\buttons.pp"/>
+        <UnitName Value="Buttons"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="35"/>
+      </Unit50>
+      <Unit51>
+        <Filename Value="..\..\..\SVN\lcl\include\bitbtn.inc"/>
+        <CursorPos X="1" Y="21"/>
+        <TopLine Value="42"/>
+        <UsageCount Value="29"/>
+      </Unit51>
+      <Unit52>
+        <Filename Value="..\..\..\SVN\lcl\controls.pp"/>
+        <UnitName Value="Controls"/>
+        <CursorPos X="28" Y="1848"/>
+        <TopLine Value="1829"/>
+        <UsageCount Value="34"/>
+      </Unit52>
+      <Unit53>
+        <Filename Value="..\..\..\SVN\lcl\imglist.pp"/>
+        <UnitName Value="ImgList"/>
+        <CursorPos X="15" Y="179"/>
+        <TopLine Value="164"/>
+        <UsageCount Value="28"/>
+      </Unit53>
+      <Unit54>
+        <Filename Value="..\..\..\SVN\lcl\graphtype.pp"/>
+        <UnitName Value="GraphType"/>
+        <CursorPos X="5" Y="53"/>
+        <TopLine Value="24"/>
+        <UsageCount Value="28"/>
+      </Unit54>
+      <Unit55>
+        <Filename Value="..\..\..\SVN\lcl\arrow.pp"/>
+        <UnitName Value="Arrow"/>
+        <CursorPos X="20" Y="133"/>
+        <TopLine Value="115"/>
+        <UsageCount Value="20"/>
+      </Unit55>
+      <Unit56>
+        <Filename Value="..\..\..\SVN\components\virtualtrees-4.0.17.26\virtualtrees.pas"/>
+        <UnitName Value="VirtualTrees"/>
+        <CursorPos X="80" Y="1815"/>
+        <TopLine Value="1802"/>
+        <UsageCount Value="5"/>
+      </Unit56>
+      <Unit57>
+        <Filename Value="..\..\..\SVN\fpc\2.2.3\source\packages\libpng\src\png.pp"/>
+        <UnitName Value="png"/>
+        <CursorPos X="1" Y="612"/>
+        <TopLine Value="612"/>
+        <UsageCount Value="6"/>
+      </Unit57>
+      <Unit58>
+        <Filename Value="..\..\..\SVN\fpc\2.2.3\source\packages\fcl-image\src\pngcomn.pp"/>
+        <UnitName Value="PNGcomn"/>
+        <CursorPos X="17" Y="20"/>
+        <TopLine Value="2"/>
+        <UsageCount Value="6"/>
+      </Unit58>
+      <Unit59>
+        <Filename Value="..\..\..\SVN\fpc\2.2.3\source\packages\fcl-image\src\fpimage.pp"/>
+        <UnitName Value="FPimage"/>
+        <CursorPos X="1" Y="82"/>
+        <TopLine Value="82"/>
+        <UsageCount Value="6"/>
+      </Unit59>
+      <Unit60>
+        <Filename Value="..\..\..\SVN\lcl\include\picture.inc"/>
+        <CursorPos X="14" Y="364"/>
+        <TopLine Value="358"/>
+        <UsageCount Value="26"/>
+      </Unit60>
+      <Unit61>
+        <Filename Value="..\..\..\SVN\lcl\include\imglist.inc"/>
+        <CursorPos X="40" Y="550"/>
+        <TopLine Value="529"/>
+        <UsageCount Value="13"/>
+      </Unit61>
+      <Unit62>
+        <Filename Value="..\..\..\SVN\lcl\include\control.inc"/>
+        <CursorPos X="3" Y="4276"/>
+        <TopLine Value="4267"/>
+        <UsageCount Value="13"/>
+      </Unit62>
+      <Unit63>
+        <Filename Value="..\..\..\SVN\components\zeos\src\component\ZAbstractRODataset.pas"/>
+        <UnitName Value="ZAbstractRODataset"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit63>
+      <Unit64>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\packages\fcl-db\src\base\db.pas"/>
+        <UnitName Value="db"/>
+        <CursorPos X="50" Y="110"/>
+        <TopLine Value="95"/>
+        <UsageCount Value="10"/>
+      </Unit64>
+      <Unit65>
+        <Filename Value="..\..\..\SVN\ide\lazarus.pp"/>
+        <UnitName Value="Lazarus"/>
+        <CursorPos X="1" Y="43"/>
+        <TopLine Value="22"/>
+        <UsageCount Value="10"/>
+      </Unit65>
+      <Unit66>
+        <Filename Value="..\..\..\SVN\lcl\lresources.pp"/>
+        <UnitName Value="LResources"/>
+        <CursorPos X="1" Y="2855"/>
+        <TopLine Value="2840"/>
+        <UsageCount Value="12"/>
+      </Unit66>
+      <Unit67>
+        <Filename Value="..\urotatebitmap.pas"/>
+        <UnitName Value="urotatebitmap"/>
+        <CursorPos X="5" Y="129"/>
+        <TopLine Value="127"/>
+        <UsageCount Value="17"/>
+      </Unit67>
+      <Unit68>
+        <Filename Value="..\..\..\SVN\ide\sourceeditor.pp"/>
+        <ComponentName Value="SourceNotebook"/>
+        <HasResources Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="SourceEditor"/>
+        <CursorPos X="5" Y="6318"/>
+        <TopLine Value="6318"/>
+        <UsageCount Value="9"/>
+      </Unit68>
+      <Unit69>
+        <Filename Value="..\..\..\SVN\components\synedit\synedit.pp"/>
+        <UnitName Value="SynEdit"/>
+        <CursorPos X="14" Y="821"/>
+        <TopLine Value="806"/>
+        <UsageCount Value="9"/>
+      </Unit69>
+      <Unit70>
+        <Filename Value="..\..\..\SVN\lcl\intfgraphics.pas"/>
+        <UnitName Value="IntfGraphics"/>
+        <CursorPos X="1" Y="3157"/>
+        <TopLine Value="3142"/>
+        <UsageCount Value="9"/>
+      </Unit70>
+      <Unit71>
+        <Filename Value="..\..\..\SVN\lcl\stdctrls.pp"/>
+        <UnitName Value="StdCtrls"/>
+        <CursorPos X="3" Y="1022"/>
+        <TopLine Value="1037"/>
+        <UsageCount Value="11"/>
+      </Unit71>
+      <Unit72>
+        <Filename Value="..\..\..\SVN\lcl\include\buttoncontrol.inc"/>
+        <CursorPos X="3" Y="69"/>
+        <TopLine Value="67"/>
+        <UsageCount Value="9"/>
+      </Unit72>
+      <Unit73>
+        <Filename Value="..\..\..\SVN\lcl\include\buttons.inc"/>
+        <CursorPos X="26" Y="243"/>
+        <TopLine Value="243"/>
+        <UsageCount Value="14"/>
+      </Unit73>
+      <Unit74>
+        <Filename Value="..\..\..\SVN\lcl\include\speedbutton.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="14"/>
+      </Unit74>
+      <Unit75>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\rtl\win\sysutils.pp"/>
+        <UnitName Value="sysutils"/>
+        <CursorPos X="9" Y="34"/>
+        <TopLine Value="16"/>
+        <UsageCount Value="10"/>
+      </Unit75>
+      <Unit76>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\rtl\win32\windows.pp"/>
+        <UnitName Value="windows"/>
+        <CursorPos X="8" Y="33"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="10"/>
+      </Unit76>
+      <Unit77>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\rtl\win\wininc\base.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="478"/>
+        <UsageCount Value="10"/>
+      </Unit77>
+      <Unit78>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\rtl\objpas\sysutils\sysutilh.inc"/>
+        <CursorPos X="39" Y="242"/>
+        <TopLine Value="241"/>
+        <UsageCount Value="10"/>
+      </Unit78>
+      <Unit79>
+        <Filename Value="..\..\..\SVN\lcl\include\wincontrol.inc"/>
+        <CursorPos X="5" Y="4915"/>
+        <TopLine Value="4901"/>
+        <UsageCount Value="11"/>
+      </Unit79>
+      <Unit80>
+        <Filename Value="..\..\..\SVN\lcl\include\winapih.inc"/>
+        <CursorPos X="15" Y="211"/>
+        <TopLine Value="196"/>
+        <UsageCount Value="11"/>
+      </Unit80>
+      <Unit81>
+        <Filename Value="..\..\..\SVN\lcl\include\intfbasewinapi.inc"/>
+        <CursorPos X="3" Y="1394"/>
+        <TopLine Value="1392"/>
+        <UsageCount Value="11"/>
+      </Unit81>
+      <Unit82>
+        <Filename Value="..\..\..\SVN\lcl\themes.pas"/>
+        <UnitName Value="Themes"/>
+        <CursorPos X="8" Y="451"/>
+        <TopLine Value="451"/>
+        <UsageCount Value="10"/>
+      </Unit82>
+      <Unit83>
+        <Filename Value="..\..\..\SVN\lcl\include\buttonglyph.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="13"/>
+      </Unit83>
+      <Unit84>
+        <Filename Value="..\..\..\SVN\lcl\include\lclintfh.inc"/>
+        <CursorPos X="30" Y="68"/>
+        <TopLine Value="53"/>
+        <UsageCount Value="13"/>
+      </Unit84>
+      <Unit85>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\rtl\objpas\classes\classesh.inc"/>
+        <CursorPos X="3" Y="161"/>
+        <TopLine Value="146"/>
+        <UsageCount Value="13"/>
+      </Unit85>
+      <Unit86>
+        <Filename Value="..\..\..\SVN\lcl\include\rasterimage.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="11"/>
+      </Unit86>
+      <Unit87>
+        <Filename Value="..\..\..\SVN\components\CCR\components\virtualtreeview\virtualstringtree.pas"/>
+        <UnitName Value="VirtualStringTree"/>
+        <CursorPos X="25" Y="375"/>
+        <TopLine Value="351"/>
+        <UsageCount Value="11"/>
+      </Unit87>
+      <Unit88>
+        <Filename Value="..\..\..\SVN\components\CCR\components\virtualtreeview\virtualtrees.pas"/>
+        <UnitName Value="VirtualTrees"/>
+        <CursorPos X="36" Y="1465"/>
+        <TopLine Value="1447"/>
+        <UsageCount Value="11"/>
+      </Unit88>
+      <Unit89>
+        <Filename Value="..\..\..\SVN\ide\ideprocs.pp"/>
+        <UnitName Value="IDEProcs"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="11"/>
+      </Unit89>
+      <Unit90>
+        <Filename Value="..\..\..\SVN\lcl\avglvltree.pas"/>
+        <UnitName Value="AvgLvlTree"/>
+        <CursorPos X="72" Y="190"/>
+        <TopLine Value="175"/>
+        <UsageCount Value="10"/>
+      </Unit90>
+      <Unit91>
+        <Filename Value="..\..\..\SVN\fpc\2.3.1\packages\fcl-image\src\fpcanvas.pp"/>
+        <UnitName Value="FPCanvas"/>
+        <CursorPos X="3" Y="82"/>
+        <TopLine Value="73"/>
+        <UsageCount Value="10"/>
+      </Unit91>
+    </Units>
+    <JumpHistory Count="2" HistoryIndex="1">
+      <Position1>
+        <Filename Value="Forms\main.pas"/>
+        <Caret Line="190" Column="48" TopLine="180"/>
+      </Position1>
+      <Position2>
+        <Filename Value="Forms\main.pas"/>
+        <Caret Line="75" Column="23" TopLine="60"/>
+      </Position2>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <OtherUnitFiles Value="Forms\"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Linking>
+      <Debugging>
+        <UseHeaptrc Value="True"/>
+      </Debugging>
+    </Linking>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+</CONFIG>

components/gradcontrols/examples/gradbuttontest.lpr

@@ -0,0 +1,19 @@
+program gradbuttontest;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms
+  { you can add units after this }, main, gradbutton, ImagesForLazarus;
+
+begin
+  Application.Title:='TGradButton-Demo';
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+

components/gradcontrols/examples/gradcontroltest.lpi

@@ -0,0 +1,467 @@
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="\"/>
+    <Version Value="6"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <Title Value="gradcontroltest"/>
+      <UseAppBundle Value="False"/>
+      <UseXPManifest Value="True"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <UseVersionInfo Value="True"/>
+      <AutoIncrementBuild Value="True"/>
+      <CurrentBuildNr Value="490"/>
+      <ProjectVersion Value="0.0.0.0"/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <RequiredPackages Count="5">
+      <Item1>
+        <PackageName Value="SynEdit"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item1>
+      <Item2>
+        <PackageName Value="FCL"/>
+        <MinVersion Major="1" Valid="True"/>
+      </Item2>
+      <Item3>
+        <PackageName Value="gradtabcontrol"/>
+      </Item3>
+      <Item4>
+        <PackageName Value="gradbutton"/>
+        <MinVersion Major="1" Minor="2" Valid="True"/>
+      </Item4>
+      <Item5>
+        <PackageName Value="LCL"/>
+      </Item5>
+    </RequiredPackages>
+    <Units Count="58">
+      <Unit0>
+        <Filename Value="gradcontroltest.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="gradcontroltest"/>
+        <CursorPos X="38" Y="19"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="144"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="unit1.pas"/>
+        <ComponentName Value="Form1"/>
+        <ResourceBaseClass Value="Form"/>
+        <ResourceFilename Value="unit1.lrs"/>
+        <UnitName Value="unit1"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="144"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="..\..\gradbutton\ugradbtn.pas"/>
+        <UnitName Value="ugradbtn"/>
+        <CursorPos X="58" Y="91"/>
+        <TopLine Value="66"/>
+        <UsageCount Value="61"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="..\..\fpc\2.2.3\source\rtl\objpas\classes\classesh.inc"/>
+        <CursorPos X="19" Y="635"/>
+        <TopLine Value="606"/>
+        <UsageCount Value="13"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="..\testcomp\testcomp.pas"/>
+        <UnitName Value="testcomp"/>
+        <CursorPos X="13" Y="53"/>
+        <TopLine Value="31"/>
+        <UsageCount Value="16"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="..\..\lcl\controls.pp"/>
+        <UnitName Value="Controls"/>
+        <CursorPos X="14" Y="1271"/>
+        <TopLine Value="1256"/>
+        <UsageCount Value="66"/>
+      </Unit5>
+      <Unit6>
+        <Filename Value="unit1.lrs"/>
+        <CursorPos X="1" Y="50"/>
+        <TopLine Value="21"/>
+        <UsageCount Value="15"/>
+      </Unit6>
+      <Unit7>
+        <Filename Value="..\..\lcl\include\control.inc"/>
+        <CursorPos X="81" Y="3024"/>
+        <TopLine Value="3009"/>
+        <UsageCount Value="33"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="..\..\lcl\include\wincontrol.inc"/>
+        <CursorPos X="18" Y="5853"/>
+        <TopLine Value="5834"/>
+        <UsageCount Value="15"/>
+      </Unit8>
+      <Unit9>
+        <Filename Value="..\..\lcl\graphics.pp"/>
+        <UnitName Value="Graphics"/>
+        <CursorPos X="44" Y="985"/>
+        <TopLine Value="970"/>
+        <UsageCount Value="19"/>
+      </Unit9>
+      <Unit10>
+        <Filename Value="..\..\lcl\include\canvas.inc"/>
+        <CursorPos X="80" Y="1529"/>
+        <TopLine Value="1520"/>
+        <UsageCount Value="11"/>
+      </Unit10>
+      <Unit11>
+        <Filename Value="..\..\lcl\include\winapih.inc"/>
+        <CursorPos X="10" Y="122"/>
+        <TopLine Value="94"/>
+        <UsageCount Value="13"/>
+      </Unit11>
+      <Unit12>
+        <Filename Value="..\..\fpc\2.2.3\source\rtl\objpas\classes\stringl.inc"/>
+        <CursorPos X="3" Y="1090"/>
+        <TopLine Value="1085"/>
+        <UsageCount Value="13"/>
+      </Unit12>
+      <Unit13>
+        <Filename Value="..\..\lcl\comctrls.pp"/>
+        <UnitName Value="ComCtrls"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="53"/>
+      </Unit13>
+      <Unit14>
+        <Filename Value="..\..\lcl\extctrls.pp"/>
+        <UnitName Value="ExtCtrls"/>
+        <CursorPos X="5" Y="79"/>
+        <TopLine Value="59"/>
+        <UsageCount Value="53"/>
+      </Unit14>
+      <Unit15>
+        <Filename Value="..\..\lcl\include\customnotebook.inc"/>
+        <CursorPos X="3" Y="509"/>
+        <TopLine Value="507"/>
+        <UsageCount Value="51"/>
+      </Unit15>
+      <Unit16>
+        <Filename Value="..\..\lcl\lcltype.pp"/>
+        <UnitName Value="LCLType"/>
+        <CursorPos X="3" Y="2258"/>
+        <TopLine Value="2244"/>
+        <UsageCount Value="18"/>
+      </Unit16>
+      <Unit17>
+        <Filename Value="..\..\lcl\lclproc.pas"/>
+        <UnitName Value="LCLProc"/>
+        <CursorPos X="1" Y="790"/>
+        <TopLine Value="776"/>
+        <UsageCount Value="43"/>
+      </Unit17>
+      <Unit18>
+        <Filename Value="..\..\lcl\buttons.pp"/>
+        <UnitName Value="Buttons"/>
+        <CursorPos X="9" Y="74"/>
+        <TopLine Value="59"/>
+        <UsageCount Value="23"/>
+      </Unit18>
+      <Unit19>
+        <Filename Value="..\..\lcl\include\application.inc"/>
+        <CursorPos X="32" Y="111"/>
+        <TopLine Value="92"/>
+        <UsageCount Value="1"/>
+      </Unit19>
+      <Unit20>
+        <Filename Value="..\..\fpc\2.3.1\rtl\objpas\classes\classesh.inc"/>
+        <CursorPos X="14" Y="542"/>
+        <TopLine Value="528"/>
+        <UsageCount Value="35"/>
+      </Unit20>
+      <Unit21>
+        <Filename Value="..\..\fpc\2.3.1\rtl\objpas\classes\lists.inc"/>
+        <CursorPos X="3" Y="626"/>
+        <TopLine Value="624"/>
+        <UsageCount Value="9"/>
+      </Unit21>
+      <Unit22>
+        <Filename Value="..\..\fpc\2.3.1\rtl\inc\systemh.inc"/>
+        <CursorPos X="16" Y="534"/>
+        <TopLine Value="521"/>
+        <UsageCount Value="5"/>
+      </Unit22>
+      <Unit23>
+        <Filename Value="..\..\fpc\2.3.1\rtl\inc\system.inc"/>
+        <CursorPos X="3" Y="537"/>
+        <TopLine Value="529"/>
+        <UsageCount Value="5"/>
+      </Unit23>
+      <Unit24>
+        <Filename Value="ugradtabcontrol.pas"/>
+        <UnitName Value="ugradtabcontrol"/>
+        <CursorPos X="17" Y="289"/>
+        <TopLine Value="278"/>
+        <UsageCount Value="75"/>
+      </Unit24>
+      <Unit25>
+        <Filename Value="..\..\lcl\menus.pp"/>
+        <UnitName Value="Menus"/>
+        <CursorPos X="3" Y="511"/>
+        <TopLine Value="212"/>
+        <UsageCount Value="14"/>
+      </Unit25>
+      <Unit26>
+        <Filename Value="..\..\lcl\stdctrls.pp"/>
+        <UnitName Value="StdCtrls"/>
+        <CursorPos X="31" Y="983"/>
+        <TopLine Value="980"/>
+        <UsageCount Value="14"/>
+      </Unit26>
+      <Unit27>
+        <Filename Value="..\..\lcl\include\buttons.inc"/>
+        <CursorPos X="21" Y="26"/>
+        <TopLine Value="10"/>
+        <UsageCount Value="14"/>
+      </Unit27>
+      <Unit28>
+        <Filename Value="..\..\lcl\include\custompage.inc"/>
+        <CursorPos X="1" Y="58"/>
+        <TopLine Value="54"/>
+        <UsageCount Value="43"/>
+      </Unit28>
+      <Unit29>
+        <Filename Value="..\..\lcl\lresources.pp"/>
+        <UnitName Value="LResources"/>
+        <CursorPos X="8" Y="2844"/>
+        <TopLine Value="2841"/>
+        <UsageCount Value="18"/>
+      </Unit29>
+      <Unit30>
+        <Filename Value="..\..\lcl\include\pagecontrol.inc"/>
+        <CursorPos X="3" Y="53"/>
+        <TopLine Value="111"/>
+        <UsageCount Value="38"/>
+      </Unit30>
+      <Unit31>
+        <Filename Value="..\..\lcl\include\tabsheet.inc"/>
+        <CursorPos X="18" Y="44"/>
+        <TopLine Value="16"/>
+        <UsageCount Value="43"/>
+      </Unit31>
+      <Unit32>
+        <Filename Value="..\..\lcl\include\statuspanel.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="7"/>
+      </Unit32>
+      <Unit33>
+        <Filename Value="unit1.lfm"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="37"/>
+        <SyntaxHighlighter Value="LFM"/>
+      </Unit33>
+      <Unit34>
+        <Filename Value="..\..\fpc\2.3.1\rtl\inc\objpash.inc"/>
+        <CursorPos X="21" Y="184"/>
+        <TopLine Value="169"/>
+        <UsageCount Value="15"/>
+      </Unit34>
+      <Unit35>
+        <Filename Value="..\..\lcl\dialogs.pp"/>
+        <UnitName Value="Dialogs"/>
+        <CursorPos X="50" Y="621"/>
+        <TopLine Value="602"/>
+        <UsageCount Value="6"/>
+      </Unit35>
+      <Unit36>
+        <Filename Value="..\..\lcl\include\promptdialog.inc"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="196"/>
+        <UsageCount Value="6"/>
+      </Unit36>
+      <Unit37>
+        <Filename Value="..\..\lcl\include\commondialog.inc"/>
+        <CursorPos X="18" Y="27"/>
+        <TopLine Value="16"/>
+        <UsageCount Value="6"/>
+      </Unit37>
+      <Unit38>
+        <Filename Value="..\..\lcl\widgetset\wscomctrls.pp"/>
+        <UnitName Value="WSComCtrls"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="139"/>
+        <UsageCount Value="6"/>
+      </Unit38>
+      <Unit39>
+        <Filename Value="..\..\lcl\include\inputdialog.inc"/>
+        <CursorPos X="10" Y="17"/>
+        <TopLine Value="77"/>
+        <UsageCount Value="6"/>
+      </Unit39>
+      <Unit40>
+        <Filename Value="..\..\fpc\2.3.1\rtl\inc\wstringh.inc"/>
+        <CursorPos X="11" Y="29"/>
+        <TopLine Value="15"/>
+        <UsageCount Value="11"/>
+      </Unit40>
+      <Unit41>
+        <Filename Value="..\ComponentWizard\source\Boxes.pas"/>
+        <UnitName Value="Boxes"/>
+        <CursorPos X="45" Y="458"/>
+        <TopLine Value="444"/>
+        <UsageCount Value="11"/>
+      </Unit41>
+      <Unit42>
+        <Filename Value="..\..\lcl\graphtype.pp"/>
+        <UnitName Value="GraphType"/>
+        <CursorPos X="3" Y="45"/>
+        <TopLine Value="31"/>
+        <UsageCount Value="11"/>
+      </Unit42>
+      <Unit43>
+        <Filename Value="..\ComponentWizard\source\ccreg.pas"/>
+        <UnitName Value="ccreg"/>
+        <CursorPos X="14" Y="73"/>
+        <TopLine Value="70"/>
+        <UsageCount Value="11"/>
+      </Unit43>
+      <Unit44>
+        <Filename Value="..\..\fpc\2.3.1\rtl\objpas\classes\compon.inc"/>
+        <CursorPos X="6" Y="328"/>
+        <TopLine Value="324"/>
+        <UsageCount Value="11"/>
+      </Unit44>
+      <Unit45>
+        <Filename Value="..\..\lcl\widgetset\wsextctrls.pp"/>
+        <UnitName Value="WSExtCtrls"/>
+        <CursorPos X="1" Y="199"/>
+        <TopLine Value="188"/>
+        <UsageCount Value="9"/>
+      </Unit45>
+      <Unit46>
+        <Filename Value="..\..\ideintf\componenteditors.pas"/>
+        <UnitName Value="ComponentEditors"/>
+        <CursorPos X="1" Y="789"/>
+        <TopLine Value="789"/>
+        <UsageCount Value="33"/>
+      </Unit46>
+      <Unit47>
+        <Filename Value="gradtabcontrol.pas"/>
+        <UnitName Value="gradtabcontrol"/>
+        <CursorPos X="56" Y="17"/>
+        <TopLine Value="1"/>
+        <UsageCount Value="33"/>
+      </Unit47>
+      <Unit48>
+        <Filename Value="..\..\ideintf\objinspstrconsts.pas"/>
+        <UnitName Value="ObjInspStrConsts"/>
+        <CursorPos X="3" Y="158"/>
+        <TopLine Value="144"/>
+        <UsageCount Value="8"/>
+      </Unit48>
+      <Unit49>
+        <Filename Value="gradtabcontroleditor.pas"/>
+        <UnitName Value="gradtabcontroleditor"/>
+        <CursorPos X="7" Y="205"/>
+        <TopLine Value="195"/>
+        <UsageCount Value="33"/>
+      </Unit49>
+      <Unit50>
+        <Filename Value="..\..\ideintf\propedits.pp"/>
+        <UnitName Value="PropEdits"/>
+        <CursorPos X="3" Y="1210"/>
+        <TopLine Value="1196"/>
+        <UsageCount Value="7"/>
+      </Unit50>
+      <Unit51>
+        <Filename Value="..\..\lcl\include\customcontrol.inc"/>
+        <CursorPos X="15" Y="61"/>
+        <TopLine Value="50"/>
+        <UsageCount Value="7"/>
+      </Unit51>
+      <Unit52>
+        <Filename Value="..\..\fpc\2.3.1\rtl\inc\objpas.inc"/>
+        <CursorPos X="12" Y="147"/>
+        <TopLine Value="141"/>
+        <UsageCount Value="7"/>
+      </Unit52>
+      <Unit53>
+        <Filename Value="..\..\lcl\intfgraphics.pas"/>
+        <UnitName Value="IntfGraphics"/>
+        <CursorPos X="1" Y="3149"/>
+        <TopLine Value="3135"/>
+        <UsageCount Value="31"/>
+      </Unit53>
+      <Unit54>
+        <Filename Value="..\..\lcl\arrow.pp"/>
+        <UnitName Value="Arrow"/>
+        <CursorPos X="17" Y="119"/>
+        <TopLine Value="103"/>
+        <UsageCount Value="12"/>
+      </Unit54>
+      <Unit55>
+        <Filename Value="..\..\lcl\interfacebase.pp"/>
+        <UnitName Value="InterfaceBase"/>
+        <CursorPos X="3" Y="77"/>
+        <TopLine Value="66"/>
+        <UsageCount Value="12"/>
+      </Unit55>
+      <Unit56>
+        <Filename Value="..\..\lcl\include\lclintfh.inc"/>
+        <CursorPos X="11" Y="68"/>
+        <TopLine Value="138"/>
+        <UsageCount Value="12"/>
+      </Unit56>
+      <Unit57>
+        <Filename Value="Forms\unit1.pas"/>
+        <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
+        <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
+        <ResourceFilename Value="Forms\unit1.lrs"/>
+        <UnitName Value="Unit1"/>
+        <CursorPos X="16" Y="31"/>
+        <TopLine Value="13"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit57>
+    </Units>
+    <JumpHistory Count="1" HistoryIndex="0">
+      <Position1>
+        <Filename Value="Forms\unit1.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
+      </Position1>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <PathDelim Value="\"/>
+    <SearchPaths>
+      <OtherUnitFiles Value="Forms/\"/>
+    </SearchPaths>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+</CONFIG>

components/gradcontrols/examples/gradcontroltest.lpr

@@ -0,0 +1,22 @@
+program gradcontroltest;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Interfaces, // this includes the LCL widgetset
+  Forms
+  { you can add units after this }, gradbutton, gradtabcontrol, unit1;
+
+{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
+
+{$IFDEF WINDOWS}{$R manifest.rc}{$ENDIF}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1,Form1);
+  Application.Run;
+end.
+

components/gradcontrols/examples/manifest.rc

@@ -0,0 +1,25 @@
+#define RT_MANIFEST  24
+#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
+#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
+#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
+
+CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST MOVEABLE PURE
+{
+ "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
+ "<assembly xmlns=""urn:schemas-microsoft-com:asm.v1"" manifestVersion=""1.0"">"
+ "<assemblyIdentity version=""1.0.0.0"" processorArchitecture=""*"" name=""CompanyName.ProductName.YourApp"" type=""win32""/>"
+ "<description>Your application description here.</description>"
+ "<dependency>"
+ "<dependentAssembly>"
+ "<assemblyIdentity type=""win32"" name=""Microsoft.Windows.Common-Controls"" version=""6.0.0.0"" processorArchitecture=""*"" publicKeyToken=""6595b64144ccf1df"" language=""*""/>"
+ "</dependentAssembly>"
+ "</dependency>"
+ "<trustInfo xmlns=""urn:schemas-microsoft-com:asm.v3"">"
+ "<security>"
+ "<requestedPrivileges>"
+ "<requestedExecutionLevel level=""asInvoker"" uiAccess=""false""/>"
+ "</requestedPrivileges>"
+ "</security>"
+ "</trustInfo>"
+ "</assembly>"
+}

components/gradcontrols/examples/project1.rc

@@ -0,0 +1,25 @@
+1 VERSIONINFO
+FILEVERSION 0,0,0,491
+PRODUCTVERSION 0,0,0,0
+{
+ BLOCK "StringFileInfo"
+ {
+  BLOCK "040904E4"
+  {
+   VALUE "Comments", "\000"
+   VALUE "CompanyName", "\000"
+   VALUE "FileDescription", "\000"
+   VALUE "FileVersion", "0.0.0.491\000"
+   VALUE "InternalName", "\000"
+   VALUE "LegalCopyright", "\000"
+   VALUE "LegalTrademarks", "\000"
+   VALUE "OriginalFilename", "\000"
+   VALUE "ProductName", "\000"
+   VALUE "ProductVersion", "0.0.0.0\000"
+  }
+ }
+ BLOCK "VarFileInfo"
+ {
+  VALUE "Translation", 0x0409, 0x04E4
+ }
+}