pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ImageList Support, Popup-Properties, ScrollToTab(unstable), LongTabs, fixed some issues

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@592 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
eugene1
2008-10-13 16:35:25 +00:00
parent 67eae142b3
commit ef371ad0d4
10 changed files with 1260 additions and 848 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
components/gradcontrols/examples/Forms/main.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 292 Left = 473
Height = 443 Height = 443
Top = 151 Top = 192
Width = 576 Width = 576
ActiveControl = TrackBar1 ActiveControl = TrackBar1
BorderIcons = [biSystemMenu, biMinimize] BorderIcons = [biSystemMenu, biMinimize]
@ -10,7 +10,8 @@ object Form1: TForm1
ClientHeight = 443 ClientHeight = 443
ClientWidth = 576 ClientWidth = 576
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.25' ParentFont = False
LCLVersion = '0.9.27'
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 14 Height = 14
@ -120,7 +121,7 @@ object Form1: TForm1
object TrackBar2: TTrackBar object TrackBar2: TTrackBar
Left = 8 Left = 8
Height = 30 Height = 30
Top = 155 Top = 152
Width = 440 Width = 440
Max = 100000 Max = 100000
OnChange = TrackBar2Change OnChange = TrackBar2Change
@ -311,6 +312,7 @@ object Form1: TForm1
Top = 200 Top = 200
Width = 168 Width = 168
Caption = 'Sample Text' Caption = 'Sample Text'
Font.Color = clWhite
Font.Height = -15 Font.Height = -15
TabOrder = 9 TabOrder = 9
TabStop = True TabStop = True
@ -321,10 +323,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object BaseColorButton: TGradButton object BaseColorButton: TGradButton
Left = 8 Left = 8
@ -332,6 +335,7 @@ object Form1: TForm1
Top = 35 Top = 35
Width = 104 Width = 104
Caption = 'BaseColorButton' Caption = 'BaseColorButton'
Font.Color = clWhite
OnClick = BaseColorClick OnClick = BaseColorClick
TabOrder = 10 TabOrder = 10
TabStop = True TabStop = True
@ -342,10 +346,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object NormalBlendColorButton: TGradButton object NormalBlendColorButton: TGradButton
Left = 120 Left = 120
@ -353,6 +358,7 @@ object Form1: TForm1
Top = 35 Top = 35
Width = 104 Width = 104
Caption = 'NormalBlendColorButton' Caption = 'NormalBlendColorButton'
Font.Color = clWhite
OnClick = NormalBlendClick OnClick = NormalBlendClick
TabOrder = 11 TabOrder = 11
TabStop = True TabStop = True
@ -363,10 +369,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object OverBlendButton: TGradButton object OverBlendButton: TGradButton
Left = 232 Left = 232
@ -374,6 +381,7 @@ object Form1: TForm1
Top = 35 Top = 35
Width = 104 Width = 104
Caption = 'OverBlendButton' Caption = 'OverBlendButton'
Font.Color = clWhite
OnClick = OverBlendClick OnClick = OverBlendClick
TabOrder = 12 TabOrder = 12
TabStop = True TabStop = True
@ -384,10 +392,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object LoadGlyphButton: TGradButton object LoadGlyphButton: TGradButton
Left = 452 Left = 452
@ -395,6 +404,7 @@ object Form1: TForm1
Top = 144 Top = 144
Width = 104 Width = 104
Caption = 'Load Glyph' Caption = 'Load Glyph'
Font.Color = clWhite
OnClick = LoadGlyphButtonClick OnClick = LoadGlyphButtonClick
TabOrder = 13 TabOrder = 13
TabStop = True TabStop = True
@ -405,10 +415,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object GlyphBackgroundColorButton: TGradButton object GlyphBackgroundColorButton: TGradButton
Left = 452 Left = 452
@ -416,6 +427,7 @@ object Form1: TForm1
Top = 192 Top = 192
Width = 104 Width = 104
Caption = 'GlyphBackgroundColorButton' Caption = 'GlyphBackgroundColorButton'
Font.Color = clWhite
OnClick = GlyphBackgroundColorButtonClick OnClick = GlyphBackgroundColorButtonClick
TabOrder = 14 TabOrder = 14
TabStop = True TabStop = True
@ -426,10 +438,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object ClickColorButton: TGradButton object ClickColorButton: TGradButton
Left = 452 Left = 452
@ -437,6 +450,7 @@ object Form1: TForm1
Top = 35 Top = 35
Width = 104 Width = 104
Caption = 'ClickColorButton' Caption = 'ClickColorButton'
Font.Color = clWhite
OnClick = ClickColorButtonClick OnClick = ClickColorButtonClick
TabOrder = 15 TabOrder = 15
TabStop = True TabStop = True
@ -447,10 +461,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object DisabledColorButton: TGradButton object DisabledColorButton: TGradButton
Left = 452 Left = 452
@ -458,6 +473,7 @@ object Form1: TForm1
Top = 93 Top = 93
Width = 104 Width = 104
Caption = 'DisabledColorButton' Caption = 'DisabledColorButton'
Font.Color = clWhite
OnClick = DisabledColorButtonClick OnClick = DisabledColorButtonClick
TabOrder = 16 TabOrder = 16
TabStop = True TabStop = True
@ -468,10 +484,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object UnderlineCheckBox: TCheckBox object UnderlineCheckBox: TCheckBox
Left = 327 Left = 327
@ -497,6 +514,7 @@ object Form1: TForm1
Top = 35 Top = 35
Width = 104 Width = 104
Caption = 'Text Color' Caption = 'Text Color'
Font.Color = clWhite
OnClick = TextColorButtonClick OnClick = TextColorButtonClick
TabOrder = 19 TabOrder = 19
TabStop = True TabStop = True
@ -507,10 +525,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object ItalicCheckBox: TCheckBox object ItalicCheckBox: TCheckBox
Left = 327 Left = 327

356
components/gradcontrols/examples/Forms/main.lrs
View File

@ -1,186 +1,188 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'$'#1#6'Height'#3#187#1#3'Top'#3#151#0#5'W' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#217#1#6'Height'#3#187#1#3'Top'#3#192#0#5
+'idth'#3'@'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSyste' +'Width'#3'@'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSyst'
+'mMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGrad' +'emMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGra'
+'Button-Demo'#12'ClientHeight'#3#187#1#11'ClientWidth'#3'@'#2#8'OnCreate'#7 +'dButton-Demo'#12'ClientHeight'#3#187#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 +#10'FormCreate'#10'ParentFont'#8#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'La'
+#6'Height'#2#14#3'Top'#2'K'#5'Width'#2'<'#7'Caption'#6#11'NormalBlend'#11'Pa' +'bel1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'K'#5'Width'#2'<'#7'Caption'#6#11
+'rentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#131 +'NormalBlend'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'
+#0#5'Width'#2'3'#7'Caption'#6#9'OverBlend'#11'ParentColor'#8#0#0#6'TLabel'#6 +#2#14#3'Top'#3#131#0#5'Width'#2'3'#7'Caption'#6#9'OverBlend'#11'ParentColor'
+'Label3'#4'Left'#2'X'#6'Height'#2#14#3'Top'#2'K'#5'Width'#2#1#11'ParentColor' +#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'X'#6'Height'#2#14#3'Top'#2'K'#5'Width'#2
+#8#0#0#6'TLabel'#6'Label4'#4'Left'#2'X'#6'Height'#2#14#3'Top'#3#131#0#5'Widt' +#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2'X'#6'Height'#2#14#3'T'
+'h'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2'%'#6'Height'#2#14 +'op'#3#131#0#5'Width'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2
+#3'Top'#2#16#5'Width'#2'4'#7'Caption'#6#10'Base Color'#11'ParentColor'#8#0#0 +'%'#6'Height'#2#14#3'Top'#2#16#5'Width'#2'4'#7'Caption'#6#10'Base Color'#11
+#6'TLabel'#6'Label6'#4'Left'#3#133#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'[' +'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3#133#0#6'Height'#2#14#3'Top'
+#7'Caption'#6#18'Normal Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label' +#2#16#5'Width'#2'['#7'Caption'#6#18'Normal Blend Color'#11'ParentColor'#8#0#0
+'7'#4'Left'#3#240#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'R'#7'Caption'#6#16 +#6'TLabel'#6'Label7'#4'Left'#3#240#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'R'
+'Over Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#232#1 +#7'Caption'#6#16'Over Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'
+#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2#28#7'Caption'#6#5'Glyph'#11'Parent' +#4'Left'#3#232#1#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2#28#7'Caption'#6#5
+'Color'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#205#1#6'Height'#2#14#3'Top'#3#176 +'Glyph'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#205#1#6'Height'#2
+#0#5'Width'#2'W'#7'Caption'#6#16'Glyph Background'#11'ParentColor'#8#0#0#6'T' +#14#3'Top'#3#176#0#5'Width'#2'W'#7'Caption'#6#16'Glyph Background'#11'Parent'
+'Label'#7'Label10'#4'Left'#3#216#1#6'Height'#2#14#3'Top'#2#16#5'Width'#2'2'#7 +'Color'#8#0#0#6'TLabel'#7'Label10'#4'Left'#3#216#1#6'Height'#2#14#3'Top'#2#16
+'Caption'#6#11'Click Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Lef' +#5'Width'#2'2'#7'Caption'#6#11'Click Color'#11'ParentColor'#8#0#0#6'TLabel'#7
+'t'#3#208#1#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'E'#7'Caption'#6#14'Disable' +'Label11'#4'Left'#3#208#1#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'E'#7'Caption'
+'d Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'#1#6'Height' +#6#14'Disabled Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'
+#2#14#3'Top'#2#16#5'Width'#2'3'#7'Caption'#6#10'Text Color'#11'ParentColor'#8 +#1#6'Height'#2#14#3'Top'#2#16#5'Width'#2'3'#7'Caption'#6#10'Text Color'#11'P'
+#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'Top'#2'`'#5'Widt' +'arentColor'#8#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'To'
+'h'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'ScalePo' +'p'#2'`'#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Cha'
+'s'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder' +'nge'#8'ScalePos'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCust'
+#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#155#0 +'om'#8'TabOrder'#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30
+#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar2Change'#8'S' +#3'Top'#3#152#0#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'Track'
+'calePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'a' +'Bar2Change'#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'
+'lCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#2#8#6 +#5'Align'#7#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4
+'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#12'B' +'Left'#2#8#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Cap'
+'order Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomS' +'tion'#6#12'Border Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin'
+'pacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize' +'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou'
+#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizi' +'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'ng.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7 +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBotto' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'m'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12'bsBottomLin' +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12
+'e'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItemClick'#7#20 +'bsBottomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItem'
+'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0#0#0#4#0#0#0#2#2#2#2#0#0 +'Click'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0#0#0#4#0#0#0
+#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2#8#6'Height'#2'Y'#3'Top'#3#216#0#5 +#2#2#2#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2#8#6'Height'#2'Y'#3'To'
+'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'#28'ChildSizing.LeftRight' +'p'#3#216#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'#28'ChildSiz'
+'Spacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHor' +'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
+'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24 +'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
+'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi' +'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
+'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay' +#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1 +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
+#13'Items.Strings'#1#6#15'ShowFocusBorder'#6#9'ShowGlyph'#6#7'Enabled'#0#11 +'olsPerLine'#2#1#13'Items.Strings'#1#6#15'ShowFocusBorder'#6#9'ShowGlyph'#6#7
+'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrder'#2#6#4'Data'#10#7#0#0#0#3 +'Enabled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrder'#2#6#4'Dat'
+#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3#176#1#6'Height'#2 +'a'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3
+'A'#3'Top'#3#240#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#13'Gradient T' +#176#1#6'Height'#2'A'#3'Top'#3#240#0#5'Width'#3#129#0#8'AutoFill'#9#7'Captio'
+'ype'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2 +'n'#6#13'Gradient Type'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.'
+#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'Child' +'TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousC'
+'Sizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.Shrin' +'hildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'kHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsSc' +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'aleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Ch' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'ildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'/'#11'ClientWidth'#2'}'#9 +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'/'#11
+'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHorizontal'#6#10'gtVertical'#0#7 +'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHorizontal'#6
+'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8#0#0#11'TRadioGroup'#11'Radi' +#10'gtVertical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8#0#0#11'T'
+'oGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129#0#8'Au' +'RadioGroup'#11'RadioGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3'Top'#3'@'#1#5
+'toFill'#9#7'Caption'#6#17'Rotated Direction'#28'ChildSizing.LeftRightSpacin' +'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Direction'#28'ChildSiz'
+'g'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizonta' +'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
+'l'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsH' +'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
+'omogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds' +'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
,#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7 ,#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
+#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Cl' +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
+'ientHeight'#2'W'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6 +'olsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0
+#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnClick'#7#16'RadioGroup2Click'#8 +#13'Items.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnClick'#7#16
+'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGroup3'#4'Left'#3'('#1#6'Height'#2 +'RadioGroup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGroup3'#4'Lef'
+'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFill'#9#7'Caption'#6#13'Button Layout' +'t'#3'('#1#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFill'#9#7'Captio'
+#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29 +'n'#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.'
+'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin' +'TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousC'
+'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori' +'hildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh' +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'u'#9'Item' +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11
+'Index'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6#11'blGlyphLeft'#6#10'bl' +'ClientWidth'#2'u'#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6
+'GlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'RadioGroup3Click'#8'TabOrde' +#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'Radi'
+'r'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3#176#1#6'Height'#2'j'#3 +'oGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3
+'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#14'Text Alignment' +#176#1#6'Height'#2'j'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'
+#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29 +#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.To'
+'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin' +'pBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChi'
+'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori' +'ldResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28
+'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh' +'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer'
+'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi' +'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT'
+'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'X'#11'ClientWidth'#2'}'#9'Item' +'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'X'#11'Cl'
+'Index'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13'taLeftJustify'#6#14'taRig' +'ientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13'taL'
+'htJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'TabOrder'#2#5#0#0#12'TLabe' +'eftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'TabO'
+'ledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1#6'Height'#2#23#3'Top'#3#216#0#5'Wi' +'rder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#3'H'#1#6'Height'#2
+'dth'#2'P EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit1"EditLabel.Anch' +#23#3'Top'#3#216#0#5'Width'#2'P EditLabel.AnchorSideLeft.Control'#7#12'Label'
+'orSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Left'#3'H'#1#16'EditL' +'edEdit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel'
+'abel.Height'#2#14#13'EditLabel.Top'#3#199#0#15'EditLabel.Width'#2'I'#17'Edi' +'.Left'#3'H'#1#16'EditLabel.Height'#2#14#13'EditLabel.Top'#3#199#0#15'EditLa'
+'tLabel.Caption'#6#14'Button Caption'#21'EditLabel.ParentColor'#8#11'ParentC' +'bel.Width'#2'I'#17'EditLabel.Caption'#6#14'Button Caption'#21'EditLabel.Par'
+'olor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyUp'#7#17'LabeledEd' +'entColor'#8#11'ParentColor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'O'
+'it1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6'Height'#2'`'#3'Top'#3 +'nKeyUp'#7#17'LabeledEdit1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6
+#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#11'Font.Height'#2#241#8 +'Height'#2'`'#3'Top'#3#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#10
+'TabOrder'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'Ove' +'Font.Color'#7#7'clWhite'#11'Font.Height'#2#241#8'TabOrder'#2#9#7'TabStop'#9
+'rBlend'#5#0'`'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7 +#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'
+#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver' +#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColo'
+#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBot' +'r'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'cl'
+'tomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBac' +'BtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'Cli'
+'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15 +'ckColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpa'
+'BaseColorButton'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Cap' +'cing'#2#15#0#0#11'TGradButton'#15'BaseColorButton'#4'Left'#2#8#6'Height'#2
+'tion'#6#15'BaseColorButton'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10 +#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15'BaseColorButton'#10'Font.Color'
+#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5#0'`' +#7#7'clWhite'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10#7'TabStop'#9
+#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16 +#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'
+'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou' +#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColo'
+'ndColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10 +'r'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'cl'
+'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor' +'BtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'Cli'
+#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#22'NormalBlendC' +'ckColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpa'
+'olorButton'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption' +'cing'#2#15#0#0#11'TGradButton'#22'NormalBlendColorButton'#4'Left'#2'x'#6'He'
+#6#22'NormalBlendColorButton'#7'OnClick'#7#16'NormalBlendClick'#8'TabOrder'#2 +'ight'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#22'NormalBlendColorButton'
+#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5#0 +#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'NormalBlendClick'#8'TabOrder'#2
+'`'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue' +#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5'
+'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
+#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg' +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
+'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine' +'roundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7
+#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundCo' +#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'Au'
+'lor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'OverBle' +'toHeightBorderSpacing'#2#15#0#0#11'TGradButton'#15'OverBlendButton'#4'Left'
+'ndButton'#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Captio' +#3#232#0#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15'OverBlendB'
+'n'#6#15'OverBlendButton'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2#12#7 +'utton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'OverBlendClick'#8'TabOrd'
+'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5#0'`' +'er'#2#12#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlen'
+'d'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'cl'
+'Blue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15
+'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundCol'
+'or'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15
+#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#15'LoadGlyphButton'#4
+'Left'#3#196#1#6'Height'#2#25#3'Top'#3#144#0#5'Width'#2'h'#7'Caption'#6#10'L'
,'oad Glyph'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#20'LoadGlyphButtonClick'
+#8'TabOrder'#2#13#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9
+'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'
+#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilv'
+'er'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgr'
+'oundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacin'
+'g'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#26'GlyphBackgr'
+'oundColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#192#0#5'Width'#2'h'
+#7'Caption'#6#26'GlyphBackgroundColorButton'#10'Font.Color'#7#7'clWhite'#7'O'
+'nClick'#7#31'GlyphBackgroundColorButtonClick'#8'TabOrder'#2#14#7'TabStop'#9
+#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'
+#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColo'
+'r'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'cl'
+'BtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'Cli'
+'ckColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpa'
+'cing'#2#15#0#0#11'TGradButton'#16'ClickColorButton'#4'Left'#3#196#1#6'Heigh'
+'t'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#16'ClickColorButton'#10'Font'
+'.Color'#7#7'clWhite'#7'OnClick'#7#21'ClickColorButtonClick'#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'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16 +#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16
+'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou' +'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backgrou'
+'ndColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10 +'ndColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7
+'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor' +'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'Auto'
+#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#15'LoadGlyphBut' +'HeightBorderSpacing'#2#15#0#0#11'TGradButton'#19'DisabledColorButton'#4'Lef'
+'ton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#144#0#5'Width'#2'h'#7'Caption' +'t'#3#196#1#6'Height'#2#25#3'Top'#2']'#5'Width'#2'h'#7'Caption'#6#19'Disable'
+#6#10'Load Glyph'#7'OnClick'#7#20'LoadGlyphButtonClick'#8'TabOrder'#2#13#7'T' +'dColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#24'DisabledColorButt'
,'abStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5#0'`'#186 +'onClick'#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'?'#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'#15'ShowFocusBorder'#9#20'Gly'
+'phBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBord'
+'erSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#9'TCheckBox'#17'Underl'
+'ineCheckBox'#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#242#0#5'Width'#2'G'#7'C'
+'aption'#6#9'Underline'#8'OnChange'#7#23'UnderlineCheckBoxChange'#8'TabOrder'
+#2#17#0#0#9'TCheckBox'#12'BoldCheckBox'#4'Left'#3'G'#1#6'Height'#2#19#3'Top'
+#3#5#1#5'Width'#2'.'#7'Caption'#6#4'Bold'#8'OnChange'#7#18'BoldCheckBoxChang'
+'e'#8'TabOrder'#2#18#0#0#11'TGradButton'#15'TextColorButton'#4'Left'#3'X'#1#6
+'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#10'Text Color'#10'Font.'
+'Color'#7#7'clWhite'#7'OnClick'#7#20'TextColorButtonClick'#8'TabOrder'#2#19#7
+'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186
+'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'Norm' +'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'Norm'
+'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo' +'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo'
+'lor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsL' +'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWh'
+'eftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7 +'ite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeig'
+#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#11'TGradButton'#26'GlyphBackgroun' +'htBorderSpacing'#2#15#0#0#9'TCheckBox'#14'ItalicCheckBox'#4'Left'#3'G'#1#6
+'dColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#192#0#5'Width'#2'h'#7 +'Height'#2#19#3'Top'#3#24#1#5'Width'#2'1'#7'Caption'#6#6'Italic'#8'OnChange'
+'Caption'#6#26'GlyphBackgroundColorButton'#7'OnClick'#7#31'GlyphBackgroundCo' +#7#20'ItalicCheckBoxChange'#8'TabOrder'#2#20#0#0#9'TCheckBox'#24'GlyphTransp'
+'lorButtonClick'#8'TabOrder'#2#14#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0 +'arentCheckBox'#4'Left'#3#192#1#6'Height'#2#19#3'Top'#3#220#0#5'Width'#2's'#7
+#0#128#254'?'#9'OverBlend'#5#0'`'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6 +'Caption'#6#17'Glyph Transparent'#8'OnChange'#7#30'GlyphTransparentCheckBoxC'
+'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlend' +'hange'#8'TabOrder'#2#21#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1i'
+'Color'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9 +#182#0#4'left'#2#8#3'top'#3#176#0#0#0#18'TOpenPictureDialog'#18'OpenPictureD'
+'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBo' +'ialog1'#6'Filter'#6#255'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;'
+'rder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0 +'*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Imag'
+#11'TGradButton'#16'ClickColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#2 +'e File (*.tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico'
+'#'#5'Width'#2'h'#7'Caption'#6#16'ClickColorButton'#7'OnClick'#7#21'ClickCol' +')|*.ico|Portable Pixmap (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'0'#3'top'
+'orButtonClick'#8'TabOrder'#2#15#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0 +#3#176#0#0#0#0
+#128#254'?'#9'OverBlend'#5#0'`'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'c'
+'lBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendC'
+'olor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9
+'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBo'
+'rder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0
+#11'TGradButton'#19'DisabledColorButton'#4'Left'#3#196#1#6'Height'#2#25#3'To'
+'p'#2']'#5'Width'#2'h'#7'Caption'#6#19'DisabledColorButton'#7'OnClick'#7#24
+'DisabledColorButtonClick'#8'TabOrder'#2#16#7'TabStop'#9#11'NormalBlend'#5#0
+#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5#0'`'#186'I'#12#2'+'#167#254'?'#9'Base'
+'Color'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14
+'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderS'
+'ides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15
+'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6
+'clBlue'#0#0#9'TCheckBox'#17'UnderlineCheckBox'#4'Left'#3'G'#1#6'Height'#2#19
+#3'Top'#3#242#0#5'Width'#2'G'#7'Caption'#6#9'Underline'#8'OnChange'#7#23'Und'
+'erlineCheckBoxChange'#8'TabOrder'#2#17#0#0#9'TCheckBox'#12'BoldCheckBox'#4
+'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#5#1#5'Width'#2'.'#7'Caption'#6#4'Bold'
+#8'OnChange'#7#18'BoldCheckBoxChange'#8'TabOrder'#2#18#0#0#11'TGradButton'#15
+'TextColorButton'#4'Left'#3'X'#1#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7
+'Caption'#6#10'Text Color'#7'OnClick'#7#20'TextColorButtonClick'#8'TabOrder'
+#2#19#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5
+#0'`'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'
+#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg'
+'roundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'
+#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundCo'
+'lor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#0#0#9'TCheckBox'#14'ItalicChec'
+'kBox'#4'Left'#3'G'#1#6'Height'#2#19#3'Top'#3#24#1#5'Width'#2'1'#7'Caption'#6
+#6'Italic'#8'OnChange'#7#20'ItalicCheckBoxChange'#8'TabOrder'#2#20#0#0#9'TCh'
+'eckBox'#24'GlyphTransparentCheckBox'#4'Left'#3#192#1#6'Height'#2#19#3'Top'#3
+#220#0#5'Width'#2's'#7'Caption'#6#17'Glyph Transparent'#8'OnChange'#7#30'Gly'
+'phTransparentCheckBoxChange'#8'TabOrder'#2#21#0#0#12'TColorDialog'#12'Color'
+'Dialog1'#5'Color'#4'1i'#182#0#4'left'#2#8#3'top'#3#176#0#0#0#18'TOpenPictur'
+'eDialog'#18'OpenPictureDialog1'#6'Filter'#6#255'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 Gray'
+'map'#4'left'#2'0'#3'top'#3#176#0#0#0#0
]); ]);

285
components/gradcontrols/examples/Forms/unit1.lfm
View File

@ -1,37 +1,31 @@
object Form1: TForm1 object Form1: TForm1
Left = 254 Left = 300
Height = 506 Height = 490
Top = 116 Top = 146
Width = 898 Width = 884
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 506 ClientHeight = 490
ClientWidth = 898 ClientWidth = 884
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnMouseWheel = FormMouseWheel
OnMouseWheelDown = FormMouseWheelDown
OnMouseWheelUp = FormMouseWheelUp
ParentFont = False ParentFont = False
LCLVersion = '0.9.27' LCLVersion = '0.9.27'
object Panel1: TPanel object Panel1: TPanel
Height = 506 Height = 490
Width = 751 Width = 646
Align = alLeft Align = alClient
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Panel1' Caption = 'Panel1'
ClientHeight = 506 ClientHeight = 490
ClientWidth = 751 ClientWidth = 646
TabOrder = 0 TabOrder = 0
OnClick = BewegeBtn
object GradTabControl1: TGradTabControl object GradTabControl1: TGradTabControl
Left = 1 Left = 1
Height = 504 Height = 488
Top = 1 Top = 1
Width = 749 Width = 644
Align = alClient Align = alClient
ControlStyle = [csAcceptsControls] ControlStyle = [csAcceptsControls]
ActivePage = GradTabPage1 ActivePage = GradTabPage3
OnTabButtonClick = GradTabControl1TabButtonClick
OnTabButtonMouseDown = GradTabControl1TabButtonMouseDown OnTabButtonMouseDown = GradTabControl1TabButtonMouseDown
OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp OnTabButtonMouseUp = GradTabControl1TabButtonMouseUp
OnTabButtonMouseMove = GradTabControl1TabButtonMouseMove OnTabButtonMouseMove = GradTabControl1TabButtonMouseMove
@ -40,17 +34,38 @@ object Form1: TForm1
OnMouseDown = GradTabControl1MouseDown OnMouseDown = GradTabControl1MouseDown
OnMouseWheelUp = GradTabControl1MouseWheelUp OnMouseWheelUp = GradTabControl1MouseWheelUp
OnMouseWheelDown = GradTabControl1MouseWheelDown OnMouseWheelDown = GradTabControl1MouseWheelDown
OnPagesBarDragOver = GradTabControl1PagesBarDragOver PageIndex = 3
TabHeight = 20 TabHeight = 20
MoveIncrement = 1 MoveIncrement = 1
OnPageChanged = GradTabControl1PageChanged OnPageChanged = GradTabControl1PageChanged
object GradTabPage1: TGradTabPage
Left = 2
Height = 464
Top = 22
Width = 640
PageIndex = 1
Caption = 'abc'
Color = clGrayText
TabColor = clBlue
TabTextAlignment = taCenter
object ToggleBox2: TToggleBox
Left = 357
Height = 23
Top = 155
Width = 90
Caption = 'ToggleBox2'
TabOrder = 0
end
end
object GradTabPage2: TGradTabPage object GradTabPage2: TGradTabPage
Left = 2 Left = 2
Height = 480 Height = 464
Top = 22 Top = 22
Width = 745 Width = 640
PageIndex = 1
Caption = 'GradTabPage2' Caption = 'GradTabPage2'
TabPopupMenu = PopupMenu1
TabColor = clBlue
TabTextAlignment = taCenter
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 173 Left = 173
Height = 200 Height = 200
@ -61,7 +76,6 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
OnDragDrop = PageControl1DragDrop OnDragDrop = PageControl1DragDrop
OnDragOver = PageControl1DragOver OnDragOver = PageControl1DragOver
OnMouseDown = PageControl1MouseDown
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'TabSheet1' Caption = 'TabSheet1'
end end
@ -89,47 +103,50 @@ object Form1: TForm1
TabOrder = 2 TabOrder = 2
end end
end end
object GradTabPage1: TGradTabPage object GradTabPage4: TGradTabPage
Left = 2 Left = 2
Height = 480 Height = 464
Top = 22 Top = 22
Width = 745 Width = 640
Caption = 'GradTabPage1' PageIndex = 2
object Button1: TButton Caption = 'äöü-test'
Left = 94 TabColor = clBlue
Height = 25 TabTextAlignment = taCenter
Top = 50
Width = 75
Caption = 'Button1'
TabOrder = 0
end end
object ToggleBox2: TToggleBox object GradTabPage3: TGradTabPage
Left = 357 Left = 2
Height = 23 Height = 464
Top = 155 Top = 22
Width = 90 Width = 640
Caption = 'ToggleBox2' PageIndex = 3
TabOrder = 1 Caption = 'GradTabPage3'
TabColor = clGreen
TabTextAlignment = taCenter
object Button3: TButton
Left = 99
Height = 25
Top = 71
Width = 75
Caption = 'Button3'
TabOrder = 0
end end
end end
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 756 Left = 646
Height = 506 Height = 490
Width = 142 Width = 238
Align = alClient Align = alRight
Caption = 'Panel2' ClientHeight = 490
ClientHeight = 506 ClientWidth = 238
ClientWidth = 142 TabOrder = 1
TabOrder = 2
OnClick = Panel2Click
object Label1: TLabel object Label1: TLabel
Left = 15 Left = 16
Height = 14 Height = 14
Top = 304 Top = 160
Width = 79 Width = 50
Caption = 'Move Increment' Caption = 'TabHeight'
ParentColor = False ParentColor = False
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
@ -138,15 +155,14 @@ object Form1: TForm1
Top = 16 Top = 16
Width = 100 Width = 100
ItemHeight = 13 ItemHeight = 13
MaxLength = -1
OnChange = ComboBox1Change OnChange = ComboBox1Change
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 21 Left = 128
Height = 113 Height = 113
Top = 144 Top = 16
Width = 100 Width = 100
AutoFill = True AutoFill = True
Caption = 'Tab Position' Caption = 'Tab Position'
@ -168,27 +184,17 @@ object Form1: TForm1
'tpRight' 'tpRight'
) )
OnClick = RadioGroup1Click OnClick = RadioGroup1Click
TabOrder = 2 TabOrder = 1
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 15 Left = 16
Height = 19 Height = 16
Top = 276 Top = 112
Width = 75 Width = 100
AutoSize = False
Caption = 'Long Tabs' Caption = 'Long Tabs'
OnClick = CheckBox1Click OnClick = CheckBox1Click
TabOrder = 3 TabOrder = 2
end
object SpinEdit1: TSpinEdit
Left = 95
Height = 19
Top = 276
Width = 34
Enabled = False
MaxValue = 50
OnEditingDone = SpinEdit1EditingDone
TabOrder = 1
Value = 50
end end
object NewPageBtn: TGradButton object NewPageBtn: TGradButton
Left = 16 Left = 16
@ -197,8 +203,8 @@ object Form1: TForm1
Width = 100 Width = 100
Caption = 'New Page' Caption = 'New Page'
Font.Color = clWhite Font.Color = clWhite
OnClick = BewegeBtn OnClick = NewPageBtnClick
TabOrder = 4 TabOrder = 3
TabStop = True TabStop = True
NormalBlend = 0.5 NormalBlend = 0.5
OverBlend = 0.653 OverBlend = 0.653
@ -207,20 +213,11 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15 AutoWidthBorderSpacing = 15
end AutoHeightBorderSpacing = 15
object SpinEdit2: TSpinEdit
Left = 15
Height = 23
Top = 320
Width = 79
MinValue = -100
OnChange = SpinEdit2Change
TabOrder = 5
end end
object DeleteBtn: TGradButton object DeleteBtn: TGradButton
Left = 16 Left = 16
@ -230,7 +227,7 @@ object Form1: TForm1
Caption = 'Delete' Caption = 'Delete'
Font.Color = clWhite Font.Color = clWhite
OnClick = DeleteBtnClick OnClick = DeleteBtnClick
TabOrder = 6 TabOrder = 4
TabStop = True TabStop = True
NormalBlend = 0.5 NormalBlend = 0.5
OverBlend = 0.653 OverBlend = 0.653
@ -239,17 +236,78 @@ object Form1: TForm1
NormalBlendColor = clWhite NormalBlendColor = clWhite
OverBlendColor = clSilver OverBlendColor = clSilver
BackgroundColor = clBtnFace BackgroundColor = clBtnFace
BorderSides = [bsTopLine, bsBottomLine, bsLeftLine, bsRightLine]
ShowFocusBorder = True ShowFocusBorder = True
GlyphBackgroundColor = clWhite GlyphBackgroundColor = clWhite
ClickColor = clBlue ClickColor = clBlue
AutoWidthBorderSpacing = 15 AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end end
object SpinEdit2: TSpinEdit
Left = 16
Height = 19
Top = 176
Width = 100
OnEditingDone = SpinEdit2EditingDone
TabOrder = 5
end
object Edit1: TEdit
Left = 16
Height = 19
Top = 136
Width = 72
TabOrder = 6
Text = 'Edit1'
end
object GradButton1: TGradButton
Left = 90
Height = 19
Top = 136
Width = 26
Caption = 'set'
Font.Color = clWhite
OnClick = GradButton1Click
TabOrder = 7
TabStop = True
NormalBlend = 0.5
OverBlend = 0.653
BaseColor = clBlue
Color = clBlue
NormalBlendColor = clWhite
OverBlendColor = clSilver
BackgroundColor = clBtnFace
ShowFocusBorder = True
GlyphBackgroundColor = clWhite
ClickColor = clBlue
AutoWidthBorderSpacing = 15
AutoHeightBorderSpacing = 15
end
object CheckGroup1: TCheckGroup
Left = 128
Height = 105
Top = 143
Width = 100
AutoFill = True
Caption = 'Scroll Buttons'
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 = (
'Auto'
'LeftTop'
'RightBottom'
)
OnClick = CheckGroup1Click
OnItemClick = CheckGroup1ItemClick
TabOrder = 8
Data = {
03000000020202
}
end end
object Splitter1: TSplitter
Left = 751
Height = 506
Width = 5
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
left = 734 left = 734
@ -258,4 +316,43 @@ object Form1: TForm1
Caption = 'New Item1' Caption = 'New Item1'
end end
end end
object ImageList1: TImageList
left = 656
top = 397
Bitmap = {
4C69010000001000000010000000000023007B534966674034941A00000A71A1
A2243A9FBD9E319FC1BC2E9FC3D32B9EC4EA2B9FC3EC2D9FC3D6309FC3BF37A0
C0A45EA1AD3100002300000023000000000962423ABC523228A47AA4B35537A2
C3F3189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189FCFFF189F
CFFF2E9FC4F77BB8C869000023000000000636221B264D2E28747DC6DF6C6BCC
EBFF49AFCFFF3BA6C9FF34A2C5FF2E9EC3FF2D9DC2FF2D9CBFFF2F9BBEFF369E
C0FF50B2D2FF79CCEA82000023006B524A7C704C45895C392D6C7FC3DA4F6CD2
F5FE5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2991B5FF349C
C0FF4FB6DAFF82CDE56F00002300644E468068483F8E55352D7E84C5D96A5BBA
D9FC59BEE1FF59B9DBFF50B1D3FF3CA4C8FF3099BDFF3193B5FF3999BBFF40A4
C7FF50AFCFFD7CC3D787000023000000230064463D96472C245D7BC4DD6C6AD2
F6FF60BDD9FF4FB0CDFF4AAAC8FF4CA8C4FF49A4C1FF3D9AB8FF3697B6FF409D
BBFF4EB6DAFF7ACCE982000023000000000562443BB15030289F749DA8536CCD
EEFB5FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C
C0FF55B6D8FD82C0CD6C0000230000000004704E44966C42379A7ABBCE715DB8
D2FF50B2D4FF49B3D8FF44B0D4FF41A8CDFF39A0C4FF349DC2FF35A0C6FF40A5
C6FF4FACC8FF7ECAE48600002300000023002C231A1D5132298A70B1C6716AD2
F6FF60C7EAFF5CB7D3FF4FABC7FF42A1C0FF3B9BB9FF3995B0FF3892AFFF369C
BFFF4EB6DAFF7BCEE98100002300000000045E41378A653E337785B8C45169C4
E5FC60C7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C
C0FF57B5D5FD87BBCC7700002300000000075E3F386D5F382E6974B7CD7268C5
E2FF55B0CDFF4EAFCEFF4AABCDFF43A9CCFF3DA3C7FF3DA0C1FF40A1C1FF49A4
C3FF51AFCDFF7ACCE982000023000000230069483E835F39308E85CCE65A6BD2
F6FF5FC7EBFF53BBDFFF47B0D4FF44A4C3FF3A9AB7FF2890B4FF2990B5FF349C
C0FF4EB6DAFF7DCCE6780000230000000006583E357C603A30B57BAFC16D5EBB
DBFC5EC1E3FF5ABBDCFF47B0D4FF3CA4C8FF3099BDFF2890B4FF3395B6FF42A2
C4FF54B1D1FD7EC0D28800002300513C36266E4B428E4C2D266B76BBD26F6BD2
F5FF5DBAD5FF51AFCDFF52ACC8FF4AA8C7FF45A3C3FF469FBCFF3D99B8FF409E
BBFF4FB5D9FF7ACDEB8200002300664E4982593D37706D4237706186964470D0
F2F65FC7EBFF53BBDFFF47B0D4FF3CA4C8FF3099BDFF2890B4FF2990B5FF349C
C0FF55B7D9FA85C9E14F000023006E554E8D704E44A6683F35A51C0E0E1286C6
DC2D6BC2E1995FBCDDB855B4D4D24CA9CAE843A0C0EA3E9CBCD5429EBFBC50A8
C79F79B9D03B0000230000002300
}
end
end end

216
components/gradcontrols/examples/Forms/unit1.lrs
View File

@ -1,83 +1,145 @@
{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei } { Das ist eine automatisch erzeugte Lazarus-Ressourcendatei }
LazarusResources.Add('TForm1','FORMDATA',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#254#0#6'Height'#3#250#1#3'Top'#2't'#5'Wid' 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3','#1#6'Height'#3#234#1#3'Top'#3#146#0#5'W'
+'th'#3#130#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#250#1#11'ClientWidth'#3 +'idth'#3't'#3#7'Caption'#6#5'Form1'#12'ClientHeight'#3#234#1#11'ClientWidth'
+#130#3#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#12'OnMous' +#3't'#3#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11'FormDestroy'#10'Paren'
+'eWheel'#7#14'FormMouseWheel'#16'OnMouseWheelDown'#7#18'FormMouseWheelDown' +'tFont'#8#10'LCLVersion'#6#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#3#234#1
+#14'OnMouseWheelUp'#7#16'FormMouseWheelUp'#10'ParentFont'#8#10'LCLVersion'#6 +#5'Width'#3#134#2#5'Align'#7#8'alClient'#7'Caption'#6#6'Panel1'#12'ClientHei'
+#6'0.9.27'#0#6'TPanel'#6'Panel1'#6'Height'#3#250#1#5'Width'#3#239#2#5'Align' +'ght'#3#234#1#11'ClientWidth'#3#134#2#8'TabOrder'#2#0#0#15'TGradTabControl'
+#7#6'alLeft'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#7'Cap' +#15'GradTabControl1'#4'Left'#2#1#6'Height'#3#232#1#3'Top'#2#1#5'Width'#3#132
+'tion'#6#6'Panel1'#12'ClientHeight'#3#250#1#11'ClientWidth'#3#239#2#8'TabOrd' +#2#5'Align'#7#8'alClient'#12'ControlStyle'#11#17'csAcceptsControls'#0#10'Act'
+'er'#2#0#7'OnClick'#7#9'BewegeBtn'#0#15'TGradTabControl'#15'GradTabControl1' +'ivePage'#7#12'GradTabPage3'#20'OnTabButtonMouseDown'#7'!GradTabControl1TabB'
+#4'Left'#2#1#6'Height'#3#248#1#3'Top'#2#1#5'Width'#3#237#2#5'Align'#7#8'alCl' +'uttonMouseDown'#18'OnTabButtonMouseUp'#7#31'GradTabControl1TabButtonMouseUp'
+'ient'#12'ControlStyle'#11#17'csAcceptsControls'#0#10'ActivePage'#7#12'GradT' +#20'OnTabButtonMouseMove'#7'!GradTabControl1TabButtonMouseMove'#10'OnDragDro'
+'abPage1'#16'OnTabButtonClick'#7#29'GradTabControl1TabButtonClick'#20'OnTabB' +'p'#7#23'GradTabControl1DragDrop'#10'OnDragOver'#7#23'GradTabControl1DragOve'
+'uttonMouseDown'#7'!GradTabControl1TabButtonMouseDown'#18'OnTabButtonMouseUp' +'r'#11'OnMouseDown'#7#24'GradTabControl1MouseDown'#14'OnMouseWheelUp'#7#27'G'
+#7#31'GradTabControl1TabButtonMouseUp'#20'OnTabButtonMouseMove'#7'!GradTabCo' +'radTabControl1MouseWheelUp'#16'OnMouseWheelDown'#7#29'GradTabControl1MouseW'
+'ntrol1TabButtonMouseMove'#10'OnDragDrop'#7#23'GradTabControl1DragDrop'#10'O' +'heelDown'#9'PageIndex'#2#3#9'TabHeight'#2#20#13'MoveIncrement'#2#1#13'OnPag'
+'nDragOver'#7#23'GradTabControl1DragOver'#11'OnMouseDown'#7#24'GradTabContro' +'eChanged'#7#26'GradTabControl1PageChanged'#0#12'TGradTabPage'#12'GradTabPag'
+'l1MouseDown'#14'OnMouseWheelUp'#7#27'GradTabControl1MouseWheelUp'#16'OnMous' +'e1'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2#9'PageIndex'
+'eWheelDown'#7#29'GradTabControl1MouseWheelDown'#18'OnPagesBarDragOver'#7#31 +#2#1#7'Caption'#6#3'abc'#5'Color'#7#10'clGrayText'#8'TabColor'#7#6'clBlue'#16
+'GradTabControl1PagesBarDragOver'#9'TabHeight'#2#20#13'MoveIncrement'#2#1#13 +'TabTextAlignment'#7#8'taCenter'#0#10'TToggleBox'#10'ToggleBox2'#4'Left'#3'e'
+'OnPageChanged'#7#26'GradTabControl1PageChanged'#0#12'TGradTabPage'#12'GradT' +#1#6'Height'#2#23#3'Top'#3#155#0#5'Width'#2'Z'#7'Caption'#6#10'ToggleBox2'#8
+'abPage2'#4'Left'#2#2#6'Height'#3#224#1#3'Top'#2#22#5'Width'#3#233#2#9'PageI' +'TabOrder'#2#0#0#0#0#12'TGradTabPage'#12'GradTabPage2'#4'Left'#2#2#6'Height'
+'ndex'#2#1#7'Caption'#6#12'GradTabPage2'#0#12'TPageControl'#12'PageControl1' +#3#208#1#3'Top'#2#22#5'Width'#3#128#2#7'Caption'#6#12'GradTabPage2'#12'TabPo'
+#4'Left'#3#173#0#6'Height'#3#200#0#3'Top'#2'9'#5'Width'#3#200#0#10'ActivePag' +'pupMenu'#7#10'PopupMenu1'#8'TabColor'#7#6'clBlue'#16'TabTextAlignment'#7#8
+'e'#7#9'TabSheet3'#8'TabIndex'#2#2#8'TabOrder'#2#0#10'OnDragDrop'#7#20'PageC' +'taCenter'#0#12'TPageControl'#12'PageControl1'#4'Left'#3#173#0#6'Height'#3
+'ontrol1DragDrop'#10'OnDragOver'#7#20'PageControl1DragOver'#11'OnMouseDown'#7 +#200#0#3'Top'#2'9'#5'Width'#3#200#0#10'ActivePage'#7#9'TabSheet3'#8'TabIndex'
+#21'PageControl1MouseDown'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#9'TabShe' +#2#2#8'TabOrder'#2#0#10'OnDragDrop'#7#20'PageControl1DragDrop'#10'OnDragOver'
+'et1'#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#9'TabSheet2'#0#0#9'TTabShee' +#7#20'PageControl1DragOver'#0#9'TTabSheet'#9'TabSheet1'#7'Caption'#6#9'TabSh'
+'t'#9'TabSheet3'#7'Caption'#6#9'TabSheet3'#0#0#0#7'TButton'#7'Button2'#4'Lef' +'eet1'#0#0#9'TTabSheet'#9'TabSheet2'#7'Caption'#6#9'TabSheet2'#0#0#9'TTabShe'
+'t'#2'/'#6'Height'#2#25#3'Top'#2#28#5'Width'#2'K'#7'Caption'#6#7'Button2'#8 +'et'#9'TabSheet3'#7'Caption'#6#9'TabSheet3'#0#0#0#7'TButton'#7'Button2'#4'Le'
+'ft'#2'/'#6'Height'#2#25#3'Top'#2#28#5'Width'#2'K'#7'Caption'#6#7'Button2'#8
+'TabOrder'#2#1#0#0#6'TPanel'#6'Panel3'#4'Left'#3#173#1#6'Height'#2'2'#3'Top' +'TabOrder'#2#1#0#0#6'TPanel'#6'Panel3'#4'Left'#3#173#1#6'Height'#2'2'#3'Top'
+#2'Y'#5'Width'#3#170#0#7'Caption'#6#6'Panel3'#8'TabOrder'#2#2#0#0#0#12'TGrad' +#2'Y'#5'Width'#3#170#0#7'Caption'#6#6'Panel3'#8'TabOrder'#2#2#0#0#0#12'TGrad'
+'TabPage'#12'GradTabPage1'#4'Left'#2#2#6'Height'#3#224#1#3'Top'#2#22#5'Width' +'TabPage'#12'GradTabPage4'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'
+#3#233#2#7'Caption'#6#12'GradTabPage1'#0#7'TButton'#7'Button1'#4'Left'#2'^'#6 +#3#128#2#9'PageIndex'#2#2#7'Caption'#6#11#195#164#195#182#195#188'-test'#8'T'
+'Height'#2#25#3'Top'#2'2'#5'Width'#2'K'#7'Caption'#6#7'Button1'#8'TabOrder'#2 +'abColor'#7#6'clBlue'#16'TabTextAlignment'#7#8'taCenter'#0#0#12'TGradTabPage'
+#0#0#0#10'TToggleBox'#10'ToggleBox2'#4'Left'#3'e'#1#6'Height'#2#23#3'Top'#3 +#12'GradTabPage3'#4'Left'#2#2#6'Height'#3#208#1#3'Top'#2#22#5'Width'#3#128#2
+#155#0#5'Width'#2'Z'#7'Caption'#6#10'ToggleBox2'#8'TabOrder'#2#1#0#0#0#0#0#6 +#9'PageIndex'#2#3#7'Caption'#6#12'GradTabPage3'#8'TabColor'#7#7'clGreen'#16
+'TPanel'#6'Panel2'#4'Left'#3#244#2#6'Height'#3#250#1#5'Width'#3#142#0#5'Alig' +'TabTextAlignment'#7#8'taCenter'#0#7'TButton'#7'Button3'#4'Left'#2'c'#6'Heig'
+'n'#7#8'alClient'#7'Caption'#6#6'Panel2'#12'ClientHeight'#3#250#1#11'ClientW' +'ht'#2#25#3'Top'#2'G'#5'Width'#2'K'#7'Caption'#6#7'Button3'#8'TabOrder'#2#0#0
+'idth'#3#142#0#8'TabOrder'#2#2#7'OnClick'#7#11'Panel2Click'#0#6'TLabel'#6'La' +#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#3#134#2#6'Height'#3#234#1#5'Width'#3#238
+'bel1'#4'Left'#2#15#6'Height'#2#14#3'Top'#3'0'#1#5'Width'#2'O'#7'Caption'#6 +#0#5'Align'#7#7'alRight'#12'ClientHeight'#3#234#1#11'ClientWidth'#3#238#0#8
+#14'Move Increment'#11'ParentColor'#8#0#0#9'TComboBox'#9'ComboBox1'#4'Left'#2 +'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#14#3'Top'#3#160
+#16#6'Height'#2#21#3'Top'#2#16#5'Width'#2'd'#10'ItemHeight'#2#13#9'MaxLength' +#0#5'Width'#2'2'#7'Caption'#6#9'TabHeight'#11'ParentColor'#8#0#0#9'TComboBox'
+#2#255#8'OnChange'#7#15'ComboBox1Change'#5'Style'#7#14'csDropDownList'#8'Tab' +#9'ComboBox1'#4'Left'#2#16#6'Height'#2#21#3'Top'#2#16#5'Width'#2'd'#10'ItemH'
+'Order'#2#0#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#2#21#6'Height'#2'q'#3 +'eight'#2#13#8'OnChange'#7#15'ComboBox1Change'#5'Style'#7#14'csDropDownList'
+'Top'#3#144#0#5'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#12'Tab Position'#28'C' +#8'TabOrder'#2#0#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#3#128#0#6'Heigh'
+'hildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Ch' +'t'#2'q'#3'Top'#2#16#5'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#12'Tab Positio'
+'ildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.' +'n'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6
+'EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizo' +#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi'
+'ntal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChil' +'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH'
+'ds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizi' +'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal'
+'ng.ControlsPerLine'#2#1#12'ClientHeight'#2'_'#11'ClientWidth'#2'`'#9'ItemIn' +'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil'
+'dex'#2#0#13'Items.Strings'#1#6#5'tpTop'#6#8'tpBottom'#6#6'tpLeft'#6#7'tpRig' +'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'_'#11'ClientWidth'#2'`'#9'I'
+'ht'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#2#0#0#9'TCheckBox'#9 +'temIndex'#2#0#13'Items.Strings'#1#6#5'tpTop'#6#8'tpBottom'#6#6'tpLeft'#6#7
+'CheckBox1'#4'Left'#2#15#6'Height'#2#19#3'Top'#3#20#1#5'Width'#2'K'#7'Captio' +'tpRight'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#1#0#0#9'TCheckBo'
+'n'#6#9'Long Tabs'#7'OnClick'#7#14'CheckBox1Click'#8'TabOrder'#2#3#0#0#9'TSp' +'x'#9'CheckBox1'#4'Left'#2#16#6'Height'#2#16#3'Top'#2'p'#5'Width'#2'd'#8'Aut'
+'inEdit'#9'SpinEdit1'#4'Left'#2'_'#6'Height'#2#19#3'Top'#3#20#1#5'Width'#2'"' +'oSize'#8#7'Caption'#6#9'Long Tabs'#7'OnClick'#7#14'CheckBox1Click'#8'TabOrd'
+#7'Enabled'#8#8'MaxValue'#2'2'#13'OnEditingDone'#7#20'SpinEdit1EditingDone'#8 +'er'#2#2#0#0#11'TGradButton'#10'NewPageBtn'#4'Left'#2#16#6'Height'#2#25#3'To'
+'TabOrder'#2#1#5'Value'#2'2'#0#0#11'TGradButton'#10'NewPageBtn'#4'Left'#2#16 +'p'#2'0'#5'Width'#2'd'#7'Caption'#6#8'New Page'#10'Font.Color'#7#7'clWhite'#7
+#6'Height'#2#25#3'Top'#2'0'#5'Width'#2'd'#7'Caption'#6#8'New Page'#10'Font.C' +'OnClick'#7#15'NewPageBtnClick'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBlend'
+'olor'#7#7'clWhite'#7'OnClick'#7#9'BewegeBtn'#8'TabOrder'#2#4#7'TabStop'#9#11 +#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'B'
+'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+' +'aseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'
+#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColo' +#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'Show'
+'r'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'cl' +'FocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
+'BtnFace'#11'BorderSides'#11#9'bsTopLine'#12'bsBottomLine'#10'bsLeftLine'#11 ,'lue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
,'bsRightLine'#0#15'ShowFocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite' +'TGradButton'#9'DeleteBtn'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'P'#5'Width'#2
+#10'ClickColor'#7#6'clBlue'#22'AutoWidthBorderSpacing'#2#15#0#0#9'TSpinEdit' +'d'#7'Caption'#6#6'Delete'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'Delet'
+#9'SpinEdit2'#4'Left'#2#15#6'Height'#2#23#3'Top'#3'@'#1#5'Width'#2'O'#8'MinV' +'eBtnClick'#8'TabOrder'#2#4#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128
+'alue'#2#156#8'OnChange'#7#15'SpinEdit2Change'#8'TabOrder'#2#5#0#0#11'TGradB' +#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'
+'utton'#9'DeleteBtn'#4'Left'#2#16#6'Height'#2#25#3'Top'#2'P'#5'Width'#2'd'#7 +#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7
+'Caption'#6#6'Delete'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'DeleteBtnC' +#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#20'Gly'
+'lick'#8'TabOrder'#2#6#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254 +'phBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthBord'
+'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5 +'erSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#9'TSpinEdit'#9'SpinEdi'
+'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8 +'t2'#4'Left'#2#16#6'Height'#2#19#3'Top'#3#176#0#5'Width'#2'd'#13'OnEditingDo'
+'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#11'BorderSides'#11#9'bsTopLine' +'ne'#7#20'SpinEdit2EditingDone'#8'TabOrder'#2#5#0#0#5'TEdit'#5'Edit1'#4'Left'
+#12'bsBottomLine'#10'bsLeftLine'#11'bsRightLine'#0#15'ShowFocusBorder'#9#20 +#2#16#6'Height'#2#19#3'Top'#3#136#0#5'Width'#2'H'#8'TabOrder'#2#6#4'Text'#6#5
+'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#22'AutoWidthB' +'Edit1'#0#0#11'TGradButton'#11'GradButton1'#4'Left'#2'Z'#6'Height'#2#19#3'To'
+'orderSpacing'#2#15#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#239#2#6'Height' +'p'#3#136#0#5'Width'#2#26#7'Caption'#6#3'set'#10'Font.Color'#7#7'clWhite'#7
+#3#250#1#5'Width'#2#5#0#0#10'TPopupMenu'#10'PopupMenu1'#4'left'#3#222#2#3'to' +'OnClick'#7#16'GradButton1Click'#8'TabOrder'#2#7#7'TabStop'#9#11'NormalBlend'
+'p'#3#141#1#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#9'New Item1'#0#0#0#0 +#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#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'#15'Show'
+'FocusBorder'#9#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB'
+'lue'#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11
+'TCheckGroup'#11'CheckGroup1'#4'Left'#3#128#0#6'Height'#2'i'#3'Top'#3#143#0#5
+'Width'#2'd'#8'AutoFill'#9#7'Caption'#6#14'Scroll Buttons'#28'ChildSizing.Le'
+'ftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enl'
+'argeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertic'
+'al'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'cr'
+'sScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildS'
+'izing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPe'
+'rLine'#2#1#13'Items.Strings'#1#6#4'Auto'#6#7'LeftTop'#6#11'RightBottom'#0#7
+'OnClick'#7#16'CheckGroup1Click'#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8
+'TabOrder'#2#8#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#0#10'TPopupMenu'#10'Popu'
+'pMenu1'#4'left'#3#222#2#3'top'#3#141#1#0#9'TMenuItem'#9'MenuItem1'#7'Captio'
+'n'#6#9'New Item1'#0#0#0#10'TImageList'#10'ImageList1'#4'left'#3#144#2#3'top'
+#3#141#1#6'Bitmap'#10#14#4#0#0'Li'#1#0#0#0#16#0#0#0#16#0#0#0#0#0'#'#0'{SIfg@'
+'4'#148#26#0#0#10'q'#161#162'$:'#159#189#158'1'#159#193#188'.'#159#195#211'+'
+#158#196#234'+'#159#195#236'-'#159#195#214'0'#159#195#191'7'#160#192#164'^'
+#161#173'1'#0#0'#'#0#0#0'#'#0#0#0#0#9'bB:'#188'R2('#164'z'#164#179'U7'#162
+#195#243#24#159#207#255#24#159#207#255#24#159#207#255#24#159#207#255#24#159
+#207#255#24#159#207#255#24#159#207#255#24#159#207#255'.'#159#196#247'{'#184
+#200'i'#0#0'#'#0#0#0#0#6'6"'#27'&M.(t}'#198#223'lk'#204#235#255'I'#175#207
+#255';'#166#201#255'4'#162#197#255'.'#158#195#255'-'#157#194#255'-'#156#191
+#255'/'#155#190#255'6'#158#192#255'P'#178#210#255'y'#204#234#130#0#0'#'#0'kR'
+'J|pLE'#137'\9-l'#195#218'Ol'#210#245#254'_'#199#235#255'S'#187#223#255'G'
+#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255')'#145#181#255'4'
+#156#192#255'O'#182#218#255#130#205#229'o'#0#0'#'#0'dNF'#128'hH?'#142'U5-~'
+#132#197#217'j['#186#217#252'Y'#190#225#255'Y'#185#219#255'P'#177#211#255'<'
+#164#200#255'0'#153#189#255'1'#147#181#255'9'#153#187#255'@'#164#199#255'P'
+#175#207#253'|'#195#215#135#0#0'#'#0#0#0'#'#0'dF='#150'G,$]{'#196#221'lj'#210
+#246#255'`'#189#217#255'O'#176#205#255'J'#170#200#255'L'#168#196#255'I'#164
+#193#255'='#154#184#255'6'#151#182#255'@'#157#187#255'N'#182#218#255'z'#204
+#233#130#0#0'#'#0#0#0#0#5'bD;'#177'P0('#159't'#157#168'Sl'#205#238#251'_'#199
+#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144
+#180#255')'#144#181#255'4'#156#192#255'U'#182#216#253#130#192#205'l'#0#0'#'#0
+#0#0#0#4'pND'#150'lB7'#154'z'#187#206'q]'#184#210#255'P'#178#212#255'I'#179
+#216#255'D'#176#212#255'A'#168#205#255'9'#160#196#255'4'#157#194#255'5'#160
+#198#255'@'#165#198#255'O'#172#200#255'~'#202#228#134#0#0'#'#0#0#0'#'#0',#'
+#26#29'Q2)'#138'p'#177#198'qj'#210#246#255'`'#199#234#255'\'#183#211#255'O'
+#171#199#255'B'#161#192#255';'#155#185#255'9'#149#176#255'8'#146#175#255'6'
+#156#191#255'N'#182#218#255'{'#206#233#129#0#0'#'#0#0#0#0#4'^A7'#138'e>3w'
+#133#184#196'Qi'#196#229#252'`'#199#235#255'S'#187#223#255'G'#176#212#255'<'
+#164#200#255'0'#153#189#255'('#144#180#255')'#144#181#255'4'#156#192#255'W'
+#181#213#253#135#187#204'w'#0#0'#'#0#0#0#0#7'^?8m_8.it'#183#205'rh'#197#226
+#255'U'#176#205#255'N'#175#206#255'J'#171#205#255'C'#169#204#255'='#163#199
+#255'='#160#193#255'@'#161#193#255'I'#164#195#255'Q'#175#205#255'z'#204#233
+#130#0#0'#'#0#0#0'#'#0'iH>'#131'_90'#142#133#204#230'Zk'#210#246#255'_'#199
,#235#255'S'#187#223#255'G'#176#212#255'D'#164#195#255':'#154#183#255'('#144
+#180#255')'#144#181#255'4'#156#192#255'N'#182#218#255'}'#204#230'x'#0#0'#'#0
+#0#0#0#6'X>5|`:0'#181'{'#175#193'm^'#187#219#252'^'#193#227#255'Z'#187#220
+#255'G'#176#212#255'<'#164#200#255'0'#153#189#255'('#144#180#255'3'#149#182
+#255'B'#162#196#255'T'#177#209#253'~'#192#210#136#0#0'#'#0'Q<6&nKB'#142'L-&k'
+'v'#187#210'ok'#210#245#255']'#186#213#255'Q'#175#205#255'R'#172#200#255'J'
+#168#199#255'E'#163#195#255'F'#159#188#255'='#153#184#255'@'#158#187#255'O'
+#181#217#255'z'#205#235#130#0#0'#'#0'fNI'#130'Y=7pmB7pa'#134#150'Dp'#208#242
+#246'_'#199#235#255'S'#187#223#255'G'#176#212#255'<'#164#200#255'0'#153#189
+#255'('#144#180#255')'#144#181#255'4'#156#192#255'U'#183#217#250#133#201#225
+'O'#0#0'#'#0'nUN'#141'pND'#166'h?5'#165#28#14#14#18#134#198#220'-k'#194#225
+#153'_'#188#221#184'U'#180#212#210'L'#169#202#232'C'#160#192#234'>'#156#188
+#213'B'#158#191#188'P'#168#199#159'y'#185#208';'#0#0'#'#0#0#0'#'#0#0#0#0
]); ]);

420
components/gradcontrols/examples/Forms/unit1.pas
View File

@ -2,32 +2,12 @@ unit Unit1;
{$mode objfpc}{$H+} {$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:
- CurrentPage-Button ohne Abstand
- IDE Testen hoffe es geht *g*
Danach:
- 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 interface
uses uses
windows, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
ugradbtn, StdCtrls, ComCtrls, LCLType, LCLProc, LCLIntf, Buttons, ugradtabcontrol, ugradbtn, StdCtrls, ComCtrls, LCLType, LCLProc, LCLIntf, Buttons, ugradtabcontrol,
Menus, Spin, ButtonPanel, Menus, Spin, EditBtn;
MaskEdit, DBGrids, DbCtrls, EditBtn, Arrow,
SynHighlighterPHP, Grids, SynEdit, SynMemo;
type type
@ -38,17 +18,22 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton;
CheckBox1: TCheckBox; CheckBox1: TCheckBox;
CheckGroup1: TCheckGroup;
ComboBox1: TComboBox; ComboBox1: TComboBox;
Edit1: TEdit; Edit1: TEdit;
GradButton1: TGradButton;
GradTabPage1: TGradTabPage; GradTabPage1: TGradTabPage;
GradTabPage2: TGradTabPage; GradTabPage2: TGradTabPage;
GradTabPage3: TGradTabPage;
GradTabPage4: TGradTabPage;
ImageList1: TImageList;
Label1: TLabel;
NewPageBtn: TGradButton; NewPageBtn: TGradButton;
DeleteBtn: TGradButton; DeleteBtn: TGradButton;
GradTabControl1: TGradTabControl; GradTabControl1: TGradTabControl;
Label1: TLabel;
Memo2: TMemo; Memo2: TMemo;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
PageControl1: TPageControl; PageControl1: TPageControl;
@ -57,55 +42,29 @@ type
Panel3: TPanel; Panel3: TPanel;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
RadioGroup1: TRadioGroup; RadioGroup1: TRadioGroup;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit; SpinEdit2: TSpinEdit;
Splitter1: TSplitter;
StringGrid1: TStringGrid;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
TabSheet2: TTabSheet; TabSheet2: TTabSheet;
TabSheet3: TTabSheet; TabSheet3: TTabSheet;
ToggleBox2: TToggleBox; ToggleBox2: TToggleBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject);
procedure CheckGroup1Click(Sender: TObject);
procedure CheckGroup1ItemClick(Sender: TObject; Index: integer);
procedure ComboBox1Change(Sender: TObject); procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
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 DeleteBtnClick(Sender: TObject); procedure DeleteBtnClick(Sender: TObject);
procedure BewegeBtn(Sender: TObject); procedure GradButton1Click(Sender: TObject);
procedure GradButton3Click(Sender: TObject);
procedure GradButton4Click(Sender: TObject);
procedure GradTabControl1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure GradTabControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure GradTabControl1DragOver(Sender, Source: TObject; X, Y: Integer; procedure GradTabControl1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); State: TDragState; var Accept: Boolean);
procedure GradTabControl1MouseDown(Sender: TObject; Button: TMouseButton; procedure GradTabControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure GradTabControl1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure GradTabControl1MouseWheelDown(Sender: TObject; procedure GradTabControl1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
procedure GradTabControl1MouseWheelUp(Sender: TObject; Shift: TShiftState; procedure GradTabControl1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean); MousePos: TPoint; var Handled: Boolean);
procedure GradTabControl1PageChanged(Sender: TObject); procedure GradTabControl1PageChanged(Sender: TObject);
procedure GradTabControl1PagesBarDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
procedure GradTabControl1TabButtonClick(GradTabControl: TGradTabControl;
AIndex: Integer);
procedure GradTabControl1TabButtonMouseDown( procedure GradTabControl1TabButtonMouseDown(
GradTabControl: TGradTabControl; Button: TMouseButton; GradTabControl: TGradTabControl; Button: TMouseButton;
Shift: TShiftState; X, Y, AIndex: Integer); Shift: TShiftState; X, Y, AIndex: Integer);
@ -114,25 +73,18 @@ type
); );
procedure GradTabControl1TabButtonMouseUp(GradTabControl: TGradTabControl; procedure GradTabControl1TabButtonMouseUp(GradTabControl: TGradTabControl;
Button: TMouseButton; Shift: TShiftState; X, Y, AIndex: Integer); Button: TMouseButton; Shift: TShiftState; X, Y, AIndex: Integer);
procedure GradTabControl2TabButtonClick(GradTabControl: TGradTabControl; procedure ImageList1Change(Sender: TObject);
AIndex: Integer); procedure NewPageBtnClick(Sender: TObject);
procedure PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure PageControl1DragOver(Sender, Source: TObject; X, Y: Integer; procedure PageControl1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); State: TDragState; var Accept: Boolean);
procedure PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Panel2Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject);
procedure SpinEdit1EditingDone(Sender: TObject); procedure SpinEdit2EditingDone(Sender: TObject);
procedure SpinEdit2Change(Sender: TObject);
//procedure FormPaint(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
FDragIndex : Integer;
{ public declarations } { public declarations }
//GradTabControl1 : TGradTabControl;
FControlWidth : Integer;
FLastIndex : Integer;
end; end;
var var
@ -143,137 +95,52 @@ implementation
{ TForm1 } { TForm1 }
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
var
TestPage : TGradTabPage;
begin 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.Align:=alClient;
GradTabControl1.TabPosition:=tpTop; GradTabControl1.TabPosition:=tpTop;
GradTabControl1.MoveIncrement:=20; SpinEdit2.Value:=GradTabControl1.TabHeight;
SpinEdit2.Value:=20;
{ with TGradButton.Create(GradTabControl1) do GradTabControl1.Images := ImageList1;
begin {GradTabControl1.Page[0].ImageIndex:=0;
Top := 0; GradTabControl1.Page[0].TabButton.ShowGlyph:=true;
Height:=30; GradTabControl1.PagesBar.MoveToNext; }
Left := 2;
Caption := 'Tab1';
Name := 'Tab1';
Parent := GradTabControl1;
BorderSides:=BorderSides-[bsBottomLine];
OnClick:=@GradTabControl1.TabButtonClick;
end;
with TGradButton.Create(GradTabControl1) do ComboBox1.Items.Assign(GradTabControl1.Tabs);
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));
NewPageBtn.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; end;
procedure TForm1.CheckBox1Click(Sender: TObject); procedure TForm1.CheckBox1Click(Sender: TObject);
begin begin
GradTabControl1.LongWidth:=SpinEdit1.Value;
GradTabControl1.LongTabs:=CheckBox1.Checked; GradTabControl1.LongTabs:=CheckBox1.Checked;
//SpinEdit1.Enabled:=CheckBox1.Checked;
Edit1.Enabled:=CheckBox1.Checked;
GradButton1.Enabled:=CheckBox1.Checked;
Edit1.Text:=IntToStr(GradTabControl1.LongWidth);
end;
procedure TForm1.CheckGroup1Click(Sender: TObject);
begin
end;
procedure TForm1.CheckGroup1ItemClick(Sender: TObject; Index: integer);
begin
with GradTabControl1 do begin
case Index of
0 : AutoShowScrollButtons := CheckGroup1.Checked[0];
1 : ShowLeftTopScrollButton := CheckGroup1.Checked[1];
2 : ShowRightBottomScrollButton := CheckGroup1.Checked[2];
end;
CheckGroup1.Checked[0] := AutoShowScrollButtons;
CheckGroup1.Checked[1] := ShowLeftTopScrollButton;
CheckGroup1.Checked[2] := ShowRightBottomScrollButton;
end;
end; end;
procedure TForm1.ComboBox1Change(Sender: TObject); procedure TForm1.ComboBox1Change(Sender: TObject);
begin begin
GradTabControl1.CurrentPageNum:=GradTabControl1.Tabs.IndexOf(ComboBox1.Text); GradTabControl1.PageIndex:=GradTabControl1.Tabs.IndexOf(ComboBox1.Text);
end; end;
procedure TForm1.FormDestroy(Sender: TObject); procedure TForm1.FormDestroy(Sender: TObject);
@ -281,57 +148,6 @@ begin
GradTabControl1.Free; GradTabControl1.Free;
end; end;
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
end;
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
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.DeleteBtnClick(Sender: TObject); procedure TForm1.DeleteBtnClick(Sender: TObject);
var var
C : Integer; C : Integer;
@ -350,7 +166,37 @@ begin
end; end;
end; end;
procedure TForm1.BewegeBtn(Sender: TObject); procedure TForm1.GradButton1Click(Sender: TObject);
begin
GradTabControl1.LongWidth := StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(GradTabControl1.LongWidth);
end;
procedure TForm1.GradTabControl1DragDrop(Sender, Source: TObject; X, Y: Integer
);
var
SenderBtn, SourceBtn : TGradTabPageButton;
SenderPage, SourcePage : TGradTabPage;
begin
DebugLn('Drop Name=%s',[Sender.ClassName]);
if not (Sender is TGradTabPageButton) then Exit;
SenderBtn := Sender as TGradTabPageButton;
SenderPage:= SenderBtn.Owner as TGradTabPage;
SourcePage:= GradTabControl1.Page[FDragIndex];
if Sender = Source then Exit;
if SourcePage.PageIndex=SenderPage.PageIndex then Exit;
SourcePage.PageIndex:=SenderPage.PageIndex;
//if (Sender is TGradTabControl) then Accept := True;
end;
procedure TForm1.NewPageBtnClick(Sender: TObject);
var var
C,R,G,B : Integer; C,R,G,B : Integer;
newName : String; newName : String;
@ -378,47 +224,21 @@ begin
ComboBox1.ItemIndex:=ComboBox1.Items.Add('tab_'+IntToStr(C)); ComboBox1.ItemIndex:=ComboBox1.Items.Add('tab_'+IntToStr(C));
end; end;
procedure TForm1.GradButton3Click(Sender: TObject);
var
C : Integer;
begin
GradTabControl1.PagesBar.MoveTo(50);
for C := 50 downto -20 do
begin
GradTabControl1.PagesBar.MoveTo(-1);
Sleep(5);
Application.ProcessMessages;
end;
end;
procedure TForm1.GradButton4Click(Sender: TObject);
begin
GradTabControl1.PagesBar.MoveToNorm;
end;
procedure TForm1.GradTabControl1DragDrop(Sender, Source: TObject; X, Y: Integer
);
begin
DebugLn('DragDrop X=%d Y=%d',[X,Y]);
end;
procedure TForm1.GradTabControl1DragOver(Sender, Source: TObject; X, procedure TForm1.GradTabControl1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean); Y: Integer; State: TDragState; var Accept: Boolean);
var
SenderBtn, SourceBtn : TGradTabPageButton;
SenderPage, SourcePage : TGradTabPage;
begin begin
DebugLn('Name=%s',[Sender.ClassName]); //DebugLn('Name=%s',[Sender.ClassName]);
if (Sender is TGradTabControl) then Accept := True; Accept := false;
if (Sender is TGradTabPageButton) then Accept := True;
end; end;
procedure TForm1.GradTabControl1MouseDown(Sender: TObject; procedure TForm1.GradTabControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
ShowMessage('Jep'); DebugLn('MouseDown on %s',[Sender.ClassName]);
end;
procedure TForm1.GradTabControl1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
DebugLn('X=%d Y=%d',[X,Y]);
end; end;
procedure TForm1.GradTabControl1MouseWheelDown(Sender: TObject; procedure TForm1.GradTabControl1MouseWheelDown(Sender: TObject;
@ -426,9 +246,9 @@ procedure TForm1.GradTabControl1MouseWheelDown(Sender: TObject;
var var
NewNum : Integer; NewNum : Integer;
begin begin
NewNum:= GradTabControl1.CurrentPageNum; NewNum:= GradTabControl1.PageIndex;
Inc(NewNum); Inc(NewNum);
GradTabControl1.CurrentPageNum:=NewNum; GradTabControl1.PageIndex:=NewNum;
end; end;
procedure TForm1.GradTabControl1MouseWheelUp(Sender: TObject; procedure TForm1.GradTabControl1MouseWheelUp(Sender: TObject;
@ -436,45 +256,32 @@ procedure TForm1.GradTabControl1MouseWheelUp(Sender: TObject;
var var
NewNum : Integer; NewNum : Integer;
begin begin
NewNum:= GradTabControl1.CurrentPageNum; NewNum:= GradTabControl1.PageIndex;
Dec(NewNum); Dec(NewNum);
GradTabControl1.CurrentPageNum:=NewNum; GradTabControl1.PageIndex:=NewNum;
end; end;
procedure TForm1.GradTabControl1PageChanged(Sender: TObject); procedure TForm1.GradTabControl1PageChanged(Sender: TObject);
begin begin
with GradTabControl1 do with GradTabControl1 do
ComboBox1.Text:=Tabs[CurrentPageNum]; ComboBox1.Text:=Tabs[PageIndex];
end;
procedure TForm1.GradTabControl1PagesBarDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
DebugLn('Name=%s',[Sender.ClassName]);
if (Sender is TGradTabPagesBar) then Accept := True;
end;
procedure TForm1.GradTabControl1TabButtonClick(GradTabControl: TGradTabControl;
AIndex: Integer);
begin
//ShowMessage('TabClicked: Index: '+IntToStr(AIndex)+' Caption: '+GradTabControl.Page[AIndex].Caption);
end; end;
procedure TForm1.GradTabControl1TabButtonMouseDown( procedure TForm1.GradTabControl1TabButtonMouseDown(
GradTabControl: TGradTabControl; Button: TMouseButton; Shift: TShiftState; X, GradTabControl: TGradTabControl; Button: TMouseButton; Shift: TShiftState; X,
Y, AIndex: Integer); Y, AIndex: Integer);
begin begin
if ssCtrl in Shift then DebugLn('MouseDown - BeginDrag');
if ssCtrl in Shift then begin
GradTabControl1.BeginDrag(False); GradTabControl1.BeginDrag(False);
FDragIndex:=AIndex;
end;
end; end;
procedure TForm1.GradTabControl1TabButtonMouseMove( procedure TForm1.GradTabControl1TabButtonMouseMove(
GradTabControl: TGradTabControl; Shift: TShiftState; X, Y, AIndex: Integer); GradTabControl: TGradTabControl; Shift: TShiftState; X, Y, AIndex: Integer);
var
TabRect : TRect;
begin begin
//TabRect := GradTabControl.GetTabRect(Aindex);
//DebugLn('X=%d Y=%d AIndex=%d',[X+TabRect.Left,Y+TabRect.Top,AIndex]);
end; end;
procedure TForm1.GradTabControl1TabButtonMouseUp( procedure TForm1.GradTabControl1TabButtonMouseUp(
@ -490,20 +297,9 @@ begin
end; end;
end; end;
procedure TForm1.GradTabControl2TabButtonClick(GradTabControl: TGradTabControl; procedure TForm1.ImageList1Change(Sender: TObject);
AIndex: Integer);
begin 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; end;
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer); procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
@ -535,17 +331,6 @@ begin
if (Sender is TGradTabControl) then Accept := True; if (Sender is TGradTabControl) then Accept := True;
end; end;
procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PageControl1.BeginDrag(False) ;
end;
procedure TForm1.Panel2Click(Sender: TObject);
begin
end;
procedure TForm1.RadioGroup1Click(Sender: TObject); procedure TForm1.RadioGroup1Click(Sender: TObject);
begin begin
case RadioGroup1.ItemIndex of case RadioGroup1.ItemIndex of
@ -556,18 +341,11 @@ begin
end; end;
end; end;
procedure TForm1.SpinEdit1EditingDone(Sender: TObject); procedure TForm1.SpinEdit2EditingDone(Sender: TObject);
begin begin
GradTabControl1.LongWidth:=SpinEdit1.Value; GradTabControl1.TabHeight:=SpinEdit2.Value;
end; end;
procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
GradTabControl1.MoveIncrement:=SpinEdit2.Value;
end;
initialization initialization
{$I unit1.lrs} {$I unit1.lrs}

14
components/gradcontrols/examples/gradbuttontest.lpi
View File

@ -9,7 +9,6 @@
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Title Value="TGradButton-Demo"/> <Title Value="TGradButton-Demo"/>
</General> </General>
@ -62,16 +61,19 @@
<SearchPaths> <SearchPaths>
<OtherUnitFiles Value="Forms\"/> <OtherUnitFiles Value="Forms\"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<CStyleOperator Value="False"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration> <CodeGeneration>
<SmartLinkUnit Value="True"/> <SmartLinkUnit Value="True"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
<LinkSmart Value="True"/> <LinkSmart Value="True"/>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>

24
components/gradcontrols/examples/gradcontroltest.lpi
View File

@ -9,12 +9,11 @@
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
<Title Value="gradcontroltest"/> <Title Value="gradcontroltest"/>
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<UseXPManifest Value="True"/>
</General> </General>
<VersionInfo> <VersionInfo>
<UseVersionInfo Value="True"/> <UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<CurrentBuildNr Value="805"/> <CurrentBuildNr Value="994"/>
<ProjectVersion Value="0.0.0.0"/> <ProjectVersion Value="0.0.0.0"/>
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
@ -29,25 +28,21 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="5"> <RequiredPackages Count="4">
<Item1> <Item1>
<PackageName Value="SynEdit"/> <PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/> <MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="FCL"/> <PackageName Value="gradtabcontrol"/>
<MinVersion Major="1" Valid="True"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="gradtabcontrol"/>
</Item3>
<Item4>
<PackageName Value="gradbutton"/> <PackageName Value="gradbutton"/>
<MinVersion Major="1" Minor="2" Valid="True"/> <MinVersion Major="1" Minor="2" Valid="True"/>
</Item4> </Item3>
<Item5> <Item4>
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item5> </Item4>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">
<Unit0> <Unit0>
@ -81,6 +76,11 @@
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>
</SyntaxOptions> </SyntaxOptions>
</Parsing> </Parsing>
<Linking>
<Debugging>
<UseHeaptrc Value="True"/>
</Debugging>
</Linking>
<Other> <Other>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>

4
components/gradcontrols/examples/gradcontroltest.lpr
View File

@ -12,10 +12,6 @@ uses
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
{$IFDEF WINDOWS}{$R manifest.rc}{$ENDIF}
{$IFDEF WINDOWS}{$R gradcontroltest.rc}{$ENDIF}
begin begin
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1,Form1); Application.CreateForm(TForm1,Form1);

111
components/gradcontrols/src/ugradbtn.pas
View File

@ -33,6 +33,8 @@ type
TGradButton = class(TCustomControl) TGradButton = class(TCustomControl)
private private
FAutoHeight: Boolean;
FAutoHeightBorderSpacing: Integer;
FAutoWidthBorderSpacing: Integer; FAutoWidthBorderSpacing: Integer;
FOnMouseMove: TMouseMoveEvent; FOnMouseMove: TMouseMoveEvent;
FRotateDirection : TRotateDirection; FRotateDirection : TRotateDirection;
@ -54,7 +56,6 @@ type
FOnNormalBackgroundPaint, FOnHotBackgroundPaint, FOnNormalBackgroundPaint, FOnHotBackgroundPaint,
FOnDownBackgroundPaint, FOnDisabledBackgroundPaint : TGBBackgroundPaintEvent; FOnDownBackgroundPaint, FOnDisabledBackgroundPaint : TGBBackgroundPaintEvent;
procedure PaintGradient(TrgCanvas: TCanvas; pr : TRect); procedure PaintGradient(TrgCanvas: TCanvas; pr : TRect);
procedure SetAutoWidthBorderSpacing(const AValue: Integer);
procedure UpdateText; procedure UpdateText;
procedure UpdateBackground; procedure UpdateBackground;
procedure PaintBackground(AState: TButtonState; TrgBitmap: TBitmap); procedure PaintBackground(AState: TButtonState; TrgBitmap: TBitmap);
@ -63,10 +64,13 @@ type
FNormalBlend,FOverBlend : Extended; FNormalBlend,FOverBlend : Extended;
FBaseColor, FNormalBlendColor, FOverBlendColor, FDisabledColor, FBaseColor, FNormalBlendColor, FOverBlendColor, FDisabledColor,
FBackgroundColor, FGlyphBackgroundColor, FClickColor: TColor; FBackgroundColor, FGlyphBackgroundColor, FClickColor: TColor;
procedure SetAutoHeight(const AValue: Boolean); virtual;
procedure SetAutoHeightBorderSpacing(const AValue: Integer); virtual;
procedure SetAutoWidthBorderSpacing(const AValue: Integer); virtual;
procedure InvPaint(StateCheck:Boolean=false); procedure InvPaint(StateCheck:Boolean=false);
procedure FontChanged(Sender: TObject); override; procedure FontChanged(Sender: TObject); override;
procedure GlyphChanged(Sender: TObject); procedure GlyphChanged(Sender: TObject); virtual;
procedure GetBackgroundRect(var TheRect : TRect); procedure GetBackgroundRect(var TheRect : TRect); virtual;
function GetGlyph : TBitmap; function GetGlyph : TBitmap;
procedure SetEnabled(Value: Boolean); override; procedure SetEnabled(Value: Boolean); override;
procedure SetAutoWidth(const Value : Boolean); virtual; procedure SetAutoWidth(const Value : Boolean); virtual;
@ -113,6 +117,8 @@ type
function Focused: Boolean; override; function Focused: Boolean; override;
procedure UpdateButton; procedure UpdateButton;
procedure UpdatePositions; procedure UpdatePositions;
function GetAutoWidth : Integer;
function GetAutoHeight : Integer;
published published
property Action; property Action;
property Anchors; property Anchors;
@ -144,7 +150,8 @@ type
property OverBlendColor: TColor read FOverBlendColor write SetOverBlendColor; property OverBlendColor: TColor read FOverBlendColor write SetOverBlendColor;
property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor; property BackgroundColor: TColor read FBackgroundColor write SetBackgroundColor;
property AutoWidth : Boolean read FAutoWidth write SetAutoWidth default false; property AutoWidth : Boolean read FAutoWidth write SetAutoWidth default false;
property BorderSides : TBorderSides read FBorderSides write SetBorderSides; property AutoHeight: Boolean read FAutoHeight write SetAutoHeight default false;
property BorderSides : TBorderSides read FBorderSides write SetBorderSides default [bsTopLine,bsBottomLine,bsLeftLine,bsRightLine];
property GradientType : TGradientType read FGradientType write SetGradientType default gtHorizontal; property GradientType : TGradientType read FGradientType write SetGradientType default gtHorizontal;
property ShowFocusBorder : Boolean read FShowFocusBorder write SetShowFocusBorder; property ShowFocusBorder : Boolean read FShowFocusBorder write SetShowFocusBorder;
property RotateDirection : TRotateDirection read FRotateDirection write SetRotateDirection default rdNormal; property RotateDirection : TRotateDirection read FRotateDirection write SetRotateDirection default rdNormal;
@ -158,6 +165,7 @@ type
property DisabledColor : TColor read FDisabledColor write SetDisabledColor default clGray; property DisabledColor : TColor read FDisabledColor write SetDisabledColor default clGray;
property OwnerBackgroundDraw : Boolean read FOwnerBackgroundDraw write SetOwnerBackgroundDraw; property OwnerBackgroundDraw : Boolean read FOwnerBackgroundDraw write SetOwnerBackgroundDraw;
property AutoWidthBorderSpacing : Integer read FAutoWidthBorderSpacing write SetAutoWidthBorderSpacing; property AutoWidthBorderSpacing : Integer read FAutoWidthBorderSpacing write SetAutoWidthBorderSpacing;
property AutoHeightBorderSpacing : Integer read FAutoHeightBorderSpacing write SetAutoHeightBorderSpacing;
//property OnGetBackgroundRect { TODO } //property OnGetBackgroundRect { TODO }
@ -168,9 +176,11 @@ type
property OnDisabledBackgroundPaint : TGBBackgroundPaintEvent read FOnDisabledBackgroundPaint write FOnDisabledBackgroundPaint; property OnDisabledBackgroundPaint : TGBBackgroundPaintEvent read FOnDisabledBackgroundPaint write FOnDisabledBackgroundPaint;
end; end;
function Max(a,b: Integer) : Integer;
function ColorBetween(C1, C2 : TColor; blend:Extended):TColor; function ColorBetween(C1, C2 : TColor; blend:Extended):TColor;
function ColorsBetween(colors:array of TColor; blend:Extended):TColor; function ColorsBetween(colors:array of TColor; blend:Extended):TColor;
function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer; function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer;
procedure DbgsGradButton(AButton : TGradButton);
procedure Register; procedure Register;
@ -179,6 +189,14 @@ implementation
uses uses
LCLProc; LCLProc;
function Max(a,b: Integer) : Integer;
begin
if a>b then
Result := a
else
Result := b;
end;
function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer; function AlignItem(ItemLength, AreaLength,Spacing: Integer; ATextAlignment: TTextAlignment):Integer;
begin begin
case ATextAlignment of case ATextAlignment of
@ -192,6 +210,12 @@ begin
end; end;
end; end;
procedure DbgsGradButton(AButton: TGradButton);
begin
DebugLn('######GradButton#####');
end;
procedure TGradButton.SetShowFocusBorder(const Value: Boolean); procedure TGradButton.SetShowFocusBorder(const Value: Boolean);
begin begin
FShowFocusBorder:=Value; FShowFocusBorder:=Value;
@ -383,6 +407,30 @@ begin
end; end;
function TGradButton.GetAutoWidth: Integer;
begin
if FShowGlyph then begin
if FButtonLayout in [blGlyphLeft,blGlyphRight] then
Result := FRotatedText.Width+ FRotatedGlyph.Width+FTextGlyphSpacing+FAutoWidthBorderSpacing
else
Result := Max(FRotatedText.Width,FRotatedGlyph.Width)+FAutoWidthBorderSpacing;
end else begin
Result := FRotatedText.Width+FAutoWidthBorderSpacing;
end;
end;
function TGradButton.GetAutoHeight: Integer;
begin
if FShowGlyph then begin
if FButtonLayout in [blGlyphTop,blGlyphBottom] then
Result := FRotatedText.Height+ FRotatedGlyph.Height+FTextGlyphSpacing+FAutoHeightBorderSpacing
else
Result := Max(FRotatedText.Height,FRotatedGlyph.Height)+FAutoHeightBorderSpacing;
end else begin
Result := FRotatedText.Height+FAutoHeightBorderSpacing;
end;
end;
procedure TGradButton.PaintBackground(AState: TButtonState; TrgBitmap: TBitmap); procedure TGradButton.PaintBackground(AState: TButtonState; TrgBitmap: TBitmap);
var var
FTempState : TButtonState; FTempState : TButtonState;
@ -610,40 +658,10 @@ begin
end; end;
procedure TGradButton.UpdateButton; procedure TGradButton.UpdateButton;
function Max(a,b: Integer) : Integer;
begin
if a>b then
Result := a
else
Result := b;
end;
var
newWidth : Integer;
begin begin
if FAutoWidth then if FAutoWidth then Width := GetAutoWidth;
begin if FAutoHeight then Height := GetAutoHeight;
//WriteLn(FRotatedText.Bitmap.Width);
//WriteLn(FRotatedGlyph.Bitmap.Width);
if FRotateDirection = rdNormal then begin
if FShowGlyph then begin
if FButtonLayout in [blGlyphLeft,blGlyphRight] then
Width := FRotatedText.Width+ FRotatedGlyph.Width+FTextGlyphSpacing+FAutoWidthBorderSpacing
else
Width := Max(FRotatedText.Width,FRotatedGlyph.Width)+FAutoWidthBorderSpacing;
end else begin
Width:= FRotatedText.Width+FAutoWidthBorderSpacing;
end;
end else begin
if FShowGlyph then begin
if FButtonLayout in [blGlyphTop,blGlyphBottom] then
Height := FRotatedText.Height+ FRotatedGlyph.Height+FTextGlyphSpacing+FAutoWidthBorderSpacing
else
Height := Max(FRotatedText.Height,FRotatedGlyph.Height)+FAutoWidthBorderSpacing;
end else begin
Height := FRotatedText.Height+FAutoWidthBorderSpacing;
end;
end;
end;
UpdateBackground; UpdateBackground;
UpdateText; UpdateText;
@ -788,6 +806,22 @@ begin
end; end;
end; end;
procedure TGradButton.SetAutoHeight(const AValue: Boolean);
begin
if FAutoHeight=AValue then exit;
FAutoHeight:=AValue;
UpdateButton;
end;
procedure TGradButton.SetAutoHeightBorderSpacing(const AValue: Integer);
begin
if FAutoHeightBorderSpacing=AValue then exit;
FAutoHeightBorderSpacing:=AValue;
UpdateButton;
end;
procedure TGradButton.SetAutoWidthBorderSpacing(const AValue: Integer); procedure TGradButton.SetAutoWidthBorderSpacing(const AValue: Integer);
begin begin
if FAutoWidthBorderSpacing=AValue then exit; if FAutoWidthBorderSpacing=AValue then exit;
@ -804,6 +838,7 @@ begin
Height:=25; Height:=25;
FAutoWidthBorderSpacing:=15; FAutoWidthBorderSpacing:=15;
FAutoHeightBorderSpacing:=15;
FNormalBlend:=0.5; FNormalBlend:=0.5;
FOverBlend:=0.653; FOverBlend:=0.653;
FBaseColor:=clBlue; FBaseColor:=clBlue;
@ -814,6 +849,7 @@ begin
FDisabledColor:=clGray; FDisabledColor:=clGray;
FEnabled:=true; FEnabled:=true;
FAutoWidth:=false; FAutoWidth:=false;
FAutoHeight:=false;
FOnlyBackground:=false; FOnlyBackground:=false;
FShowFocusBorder:=true; FShowFocusBorder:=true;
@ -851,6 +887,7 @@ begin
UpdateBackground; UpdateBackground;
Font.Color:=clWhite;
end; end;
destructor TGradButton.Destroy; destructor TGradButton.Destroy;

531
components/gradcontrols/src/ugradtabcontrol.pas
View File

File diff suppressed because it is too large Load Diff