From ea64d0c14fce3b56a943cbb42616362d14df6ee0 Mon Sep 17 00:00:00 2001 From: eugene1 Date: Sun, 23 Jan 2011 00:53:26 +0000 Subject: [PATCH] TGradButton: Update Demo-App (DropDown & SplitButton) git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1456 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../gradcontrols/examples/Forms/main.lfm | 472 +++++++++++++----- .../gradcontrols/examples/Forms/main.lrs | 437 +++++++++------- .../gradcontrols/examples/Forms/main.pas | 129 ++++- .../gradcontrols/examples/gradbuttontest.lpi | 18 +- 4 files changed, 710 insertions(+), 346 deletions(-) diff --git a/components/gradcontrols/examples/Forms/main.lfm b/components/gradcontrols/examples/Forms/main.lfm index 42bcf5f6e..e93218e84 100644 --- a/components/gradcontrols/examples/Forms/main.lfm +++ b/components/gradcontrols/examples/Forms/main.lfm @@ -1,115 +1,114 @@ object Form1: TForm1 - Left = 368 - Height = 439 - Top = 215 - Width = 576 - ActiveControl = TrackBar1 + Left = 277 + Height = 504 + Top = 127 + Width = 750 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'TGradButton-Demo' - ClientHeight = 439 - ClientWidth = 576 + ClientHeight = 504 + ClientWidth = 750 OnCreate = FormCreate - LCLVersion = '0.9.29' + LCLVersion = '0.9.31' object Label1: TLabel Left = 8 - Height = 16 - Top = 75 - Width = 71 + Height = 17 + Top = 119 + Width = 82 Caption = 'NormalBlend' ParentColor = False end object Label2: TLabel Left = 8 - Height = 16 - Top = 131 - Width = 56 + Height = 17 + Top = 175 + Width = 65 Caption = 'OverBlend' ParentColor = False end object Label3: TLabel - Left = 88 - Height = 16 - Top = 75 + Left = 112 + Height = 1 + Top = 119 Width = 1 ParentColor = False end object Label4: TLabel - Left = 88 - Height = 16 - Top = 131 + Left = 112 + Height = 1 + Top = 175 Width = 1 ParentColor = False end object Label5: TLabel - Left = 37 - Height = 16 - Top = 16 - Width = 57 + Left = 453 + Height = 17 + Top = 10 + Width = 68 Caption = 'Base Color' ParentColor = False end object Label6: TLabel - Left = 133 - Height = 16 - Top = 16 - Width = 106 + Left = 432 + Height = 17 + Top = 52 + Width = 124 Caption = 'Normal Blend Color' ParentColor = False end object Label7: TLabel - Left = 240 - Height = 16 - Top = 16 - Width = 91 + Left = 436 + Height = 17 + Top = 106 + Width = 107 Caption = 'Over Blend Color' ParentColor = False end object Label8: TLabel - Left = 488 - Height = 16 - Top = 128 - Width = 32 + Left = 472 + Height = 17 + Top = 322 + Width = 37 Caption = 'Glyph' ParentColor = False end object Label9: TLabel - Left = 461 - Height = 16 - Top = 176 - Width = 99 + Left = 432 + Height = 17 + Top = 370 + Width = 116 Caption = 'Glyph Background' ParentColor = False end object Label10: TLabel - Left = 472 - Height = 16 - Top = 16 - Width = 59 + Left = 456 + Height = 17 + Top = 210 + Width = 70 Caption = 'Click Color' ParentColor = False end object Label11: TLabel - Left = 464 - Height = 16 - Top = 72 - Width = 78 + Left = 445 + Height = 17 + Top = 266 + Width = 94 Caption = 'Disabled Color' ParentColor = False end object Label12: TLabel - Left = 368 - Height = 16 - Top = 16 - Width = 55 + Left = 454 + Height = 17 + Top = 154 + Width = 67 Caption = 'Text Color' ParentColor = False end object TrackBar1: TTrackBar Left = 8 Height = 30 - Top = 96 - Width = 440 + Top = 140 + Width = 417 Max = 100000 OnChange = TrackBar1Change Position = 0 @@ -121,8 +120,8 @@ object Form1: TForm1 object TrackBar2: TTrackBar Left = 8 Height = 30 - Top = 152 - Width = 440 + Top = 196 + Width = 417 Max = 100000 OnChange = TrackBar2Change Position = 0 @@ -134,8 +133,8 @@ object Form1: TForm1 end object CheckGroup1: TCheckGroup Left = 8 - Height = 105 - Top = 320 + Height = 129 + Top = 233 Width = 129 AutoFill = True Caption = 'Border Sides' @@ -160,9 +159,9 @@ object Form1: TForm1 } end object CheckGroup2: TCheckGroup - Left = 8 - Height = 89 - Top = 216 + Left = 144 + Height = 129 + Top = 233 Width = 129 AutoFill = True Caption = 'Other' @@ -175,7 +174,7 @@ object Form1: TForm1 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 Items.Strings = ( - 'ShowFocusBorder' + 'FocusBorder' 'ShowGlyph' 'Enabled' ) @@ -186,9 +185,9 @@ object Form1: TForm1 } end object RadioGroup1: TRadioGroup - Left = 432 - Height = 65 - Top = 240 + Left = 9 + Height = 87 + Top = 369 Width = 129 AutoFill = True Caption = 'Gradient Type' @@ -200,8 +199,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 47 - ClientWidth = 125 + ClientHeight = 65 + ClientWidth = 121 ItemIndex = 0 Items.Strings = ( 'gtHorizontal' @@ -211,9 +210,9 @@ object Form1: TForm1 TabOrder = 8 end object RadioGroup2: TRadioGroup - Left = 151 - Height = 105 - Top = 320 + Left = 144 + Height = 87 + Top = 369 Width = 129 AutoFill = True Caption = 'Rotated Direction' @@ -225,8 +224,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 87 - ClientWidth = 125 + ClientHeight = 65 + ClientWidth = 121 ItemIndex = 0 Items.Strings = ( 'rdNormal' @@ -237,10 +236,10 @@ object Form1: TForm1 TabOrder = 2 end object RadioGroup3: TRadioGroup - Left = 296 - Height = 105 - Top = 320 - Width = 121 + Left = 280 + Height = 129 + Top = 233 + Width = 145 AutoFill = True Caption = 'Button Layout' ChildSizing.LeftRightSpacing = 6 @@ -251,8 +250,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 87 - ClientWidth = 117 + ClientHeight = 107 + ClientWidth = 137 ItemIndex = 1 Items.Strings = ( 'blGlyphRight' @@ -264,10 +263,10 @@ object Form1: TForm1 TabOrder = 3 end object RadioGroup4: TRadioGroup - Left = 432 - Height = 106 - Top = 320 - Width = 129 + Left = 280 + Height = 129 + Top = 369 + Width = 145 AutoFill = True Caption = 'Text Alignment' ChildSizing.LeftRightSpacing = 6 @@ -278,8 +277,8 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 88 - ClientWidth = 125 + ClientHeight = 107 + ClientWidth = 137 ItemIndex = 0 Items.Strings = ( 'taCenter' @@ -290,16 +289,16 @@ object Form1: TForm1 TabOrder = 5 end object LabeledEdit1: TLabeledEdit - Left = 328 - Height = 23 - Top = 216 - Width = 80 + Left = 9 + Height = 22 + Top = 24 + Width = 105 EditLabel.AnchorSideLeft.Control = LabeledEdit1 EditLabel.AnchorSideBottom.Control = LabeledEdit1 - EditLabel.Left = 328 - EditLabel.Height = 16 - EditLabel.Top = 197 - EditLabel.Width = 82 + EditLabel.Left = 9 + EditLabel.Height = 17 + EditLabel.Top = 4 + EditLabel.Width = 95 EditLabel.Caption = 'Button Caption' EditLabel.ParentColor = False TabOrder = 7 @@ -307,11 +306,16 @@ object Form1: TForm1 OnKeyUp = LabeledEdit1KeyUp end object b: TGradButton - Left = 152 + Left = 160 Height = 96 - Top = 200 - Width = 168 + Top = 10 + Width = 167 Caption = 'Sample Text' + DropDownSettings.OnlyOnMark = False + DropDownSettings.PopupMenu = ExamplePopupMenu + DropDownSettings.Show = False + DropDownSettings.SplitButton = False + PopupMenu = ExamplePopupMenu Font.Color = clWhite Font.Height = -15 OnClick = bClick @@ -333,11 +337,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object BaseColorButton: TGradButton - Left = 8 + Left = 436 Height = 25 - Top = 35 + Top = 26 Width = 104 Caption = 'BaseColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = BaseColorClick TabOrder = 10 @@ -358,11 +365,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object NormalBlendColorButton: TGradButton - Left = 120 + Left = 436 Height = 25 - Top = 35 + Top = 74 Width = 104 Caption = 'NormalBlendColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = NormalBlendClick TabOrder = 11 @@ -383,11 +393,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object OverBlendButton: TGradButton - Left = 232 + Left = 436 Height = 25 - Top = 35 + Top = 125 Width = 104 Caption = 'OverBlendButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = OverBlendClick TabOrder = 12 @@ -408,11 +421,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object LoadGlyphButton: TGradButton - Left = 452 + Left = 436 Height = 25 - Top = 144 + Top = 338 Width = 104 Caption = 'Load Glyph' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = LoadGlyphButtonClick TabOrder = 13 @@ -433,11 +449,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object GlyphBackgroundColorButton: TGradButton - Left = 452 + Left = 436 Height = 25 - Top = 192 + Top = 386 Width = 104 Caption = 'GlyphBackgroundColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = GlyphBackgroundColorButtonClick TabOrder = 14 @@ -458,11 +477,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object ClickColorButton: TGradButton - Left = 452 + Left = 436 Height = 25 - Top = 35 + Top = 234 Width = 104 Caption = 'ClickColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = ClickColorButtonClick TabOrder = 15 @@ -483,11 +505,14 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object DisabledColorButton: TGradButton - Left = 452 + Left = 436 Height = 25 - Top = 93 + Top = 290 Width = 104 Caption = 'DisabledColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = DisabledColorButtonClick TabOrder = 16 @@ -508,29 +533,32 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object UnderlineCheckBox: TCheckBox - Left = 327 - Height = 19 - Top = 242 - Width = 71 + Left = 8 + Height = 18 + Top = 50 + Width = 81 Caption = 'Underline' OnChange = UnderlineCheckBoxChange TabOrder = 17 end object BoldCheckBox: TCheckBox - Left = 327 - Height = 19 - Top = 261 - Width = 44 + Left = 8 + Height = 18 + Top = 69 + Width = 48 Caption = 'Bold' OnChange = BoldCheckBoxChange TabOrder = 18 end object TextColorButton: TGradButton - Left = 344 + Left = 436 Height = 25 - Top = 35 + Top = 178 Width = 104 Caption = 'Text Color' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False Font.Color = clWhite OnClick = TextColorButtonClick TabOrder = 19 @@ -551,23 +579,195 @@ object Form1: TForm1 AutoHeightBorderSpacing = 15 end object ItalicCheckBox: TCheckBox - Left = 327 - Height = 19 - Top = 280 - Width = 45 + Left = 8 + Height = 18 + Top = 88 + Width = 50 Caption = 'Italic' OnChange = ItalicCheckBoxChange TabOrder = 20 end object GlyphTransparentCheckBox: TCheckBox - Left = 448 - Height = 19 - Top = 220 - Width = 117 + Left = 432 + Height = 18 + Top = 416 + Width = 137 Caption = 'Glyph Transparent' OnChange = GlyphTransparentCheckBoxChange TabOrder = 21 end + object GroupBox1: TGroupBox + Left = 560 + Height = 447 + Top = 10 + Width = 185 + Caption = 'DropDownSettings' + ClientHeight = 425 + ClientWidth = 177 + TabOrder = 22 + object RadioGroup6: TRadioGroup + Left = 0 + Height = 80 + Top = 345 + Width = 177 + Align = alBottom + AutoFill = True + Caption = 'MarkPosition' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + ClientHeight = 58 + ClientWidth = 169 + ItemIndex = 1 + Items.Strings = ( + 'mpLeft' + 'mpRight' + ) + OnClick = RadioGroup6Click + TabOrder = 0 + end + object RadioGroup5: TRadioGroup + Left = 0 + Height = 135 + Top = 210 + Width = 177 + Align = alBottom + AutoFill = True + Caption = 'MarkDirection' + ChildSizing.LeftRightSpacing = 6 + ChildSizing.TopBottomSpacing = 6 + ChildSizing.EnlargeHorizontal = crsHomogenousChildResize + ChildSizing.EnlargeVertical = crsHomogenousChildResize + ChildSizing.ShrinkHorizontal = crsScaleChilds + ChildSizing.ShrinkVertical = crsScaleChilds + ChildSizing.Layout = cclLeftToRightThenTopToBottom + ChildSizing.ControlsPerLine = 1 + ClientHeight = 113 + ClientWidth = 169 + ItemIndex = 2 + Items.Strings = ( + 'mdUp' + 'mdLeft' + 'mdDown' + 'mdRight' + ) + OnClick = RadioGroup5Click + TabOrder = 1 + end + object LabeledEdit2: TLabeledEdit + Left = 0 + Height = 22 + Top = 69 + Width = 80 + EditLabel.AnchorSideLeft.Control = LabeledEdit2 + EditLabel.AnchorSideBottom.Control = LabeledEdit2 + EditLabel.Left = 0 + EditLabel.Height = 17 + EditLabel.Top = 49 + EditLabel.Width = 26 + EditLabel.Caption = 'Size' + EditLabel.ParentColor = False + EditLabel.ParentFont = False + TabOrder = 2 + Text = '8' + OnChange = LabeledEdit2Change + end + object Label13: TLabel + Left = 68 + Height = 17 + Top = 93 + Width = 35 + Caption = 'Color' + ParentColor = False + end + object DDColorButton: TGradButton + Left = 0 + Height = 25 + Top = 117 + Width = 177 + Caption = 'DDColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False + Font.Color = clWhite + OnClick = DDColorButtonClick + TabOrder = 3 + TabStop = True + NormalBlend = 0.5 + OverBlend = 0.653 + BaseColor = clBlue + Color = clBlue + NormalBlendColor = clWhite + OverBlendColor = clSilver + BackgroundColor = clBtnFace + ShowFocusBorder = True + ShowGlyph = False + GlyphBackgroundColor = clWhite + ClickColor = clBlue + OwnerBackgroundDraw = False + AutoWidthBorderSpacing = 15 + AutoHeightBorderSpacing = 15 + end + object Label14: TLabel + Left = 36 + Height = 17 + Top = 149 + Width = 88 + Caption = 'Pressed Color' + ParentColor = False + end + object DDPressedColorButton: TGradButton + Left = 0 + Height = 25 + Top = 173 + Width = 177 + Caption = 'DDPressedColorButton' + DropDownSettings.OnlyOnMark = False + DropDownSettings.Show = False + DropDownSettings.SplitButton = False + Font.Color = clWhite + OnClick = DDPressedColorButtonClick + TabOrder = 4 + TabStop = True + NormalBlend = 0.5 + OverBlend = 0.653 + BaseColor = clBlue + Color = clBlue + NormalBlendColor = clWhite + OverBlendColor = clSilver + BackgroundColor = clBtnFace + ShowFocusBorder = True + ShowGlyph = False + GlyphBackgroundColor = clWhite + ClickColor = clBlue + OwnerBackgroundDraw = False + AutoWidthBorderSpacing = 15 + AutoHeightBorderSpacing = 15 + end + object CheckBox1: TCheckBox + Left = 4 + Height = 18 + Top = 5 + Width = 54 + Caption = 'Show' + OnChange = CheckBox1Change + TabOrder = 5 + end + object CheckBox2: TCheckBox + Left = 4 + Height = 18 + Top = 29 + Width = 89 + Caption = 'SplitButton' + OnChange = CheckBox2Change + TabOrder = 6 + end + end object ColorDialog1: TColorDialog Color = 11954481 CustomColors.Strings = ( @@ -592,12 +792,22 @@ object Form1: TForm1 'ColorS=F0FBFF' 'ColorT=A4A0A0' ) - left = 8 - top = 176 + left = 152 + top = 464 end object OpenPictureDialog1: TOpenPictureDialog Filter = 'Graphic (*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.tga;*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|TGA Image File (*.tga)|*.tga|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pixmap (*.ppm)|*.ppm|Portable Graymap' - left = 48 - top = 176 + left = 56 + top = 456 + end + object ExamplePopupMenu: TPopupMenu + left = 104 + top = 464 + object MenuItem1: TMenuItem + Caption = 'New Item1' + end + object MenuItem2: TMenuItem + Caption = 'New Item2' + end end end diff --git a/components/gradcontrols/examples/Forms/main.lrs b/components/gradcontrols/examples/Forms/main.lrs index 9af02a4d8..b710e04e1 100644 --- a/components/gradcontrols/examples/Forms/main.lrs +++ b/components/gradcontrols/examples/Forms/main.lrs @@ -1,198 +1,269 @@ -{ Das ist eine automatisch erzeugte Lazarus-Ressourcendatei } +{ This is an automatically generated lazarus resource file } LazarusResources.Add('TForm1','FORMDATA',[ - 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'p'#1#6'Height'#3#183#1#3'Top'#3#215#0#5'W' - +'idth'#3'@'#2#13'ActiveControl'#7#9'TrackBar1'#11'BorderIcons'#11#12'biSyste' - +'mMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bsSingle'#7'Caption'#6#16'TGrad' - +'Button-Demo'#12'ClientHeight'#3#183#1#11'ClientWidth'#3'@'#2#8'OnCreate'#7 - +#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6'Label1'#4'Left'#2#8 - +#6'Height'#2#16#3'Top'#2'K'#5'Width'#2'G'#7'Caption'#6#11'NormalBlend'#11'Pa' - +'rentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#16#3'Top'#3#131 - +#0#5'Width'#2'8'#7'Caption'#6#9'OverBlend'#11'ParentColor'#8#0#0#6'TLabel'#6 - +'Label3'#4'Left'#2'X'#6'Height'#2#16#3'Top'#2'K'#5'Width'#2#1#11'ParentColor' - +#8#0#0#6'TLabel'#6'Label4'#4'Left'#2'X'#6'Height'#2#16#3'Top'#3#131#0#5'Widt' - +'h'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2'%'#6'Height'#2#16 - +#3'Top'#2#16#5'Width'#2'9'#7'Caption'#6#10'Base Color'#11'ParentColor'#8#0#0 - +#6'TLabel'#6'Label6'#4'Left'#3#133#0#6'Height'#2#16#3'Top'#2#16#5'Width'#2'j' - +#7'Caption'#6#18'Normal Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label' - +'7'#4'Left'#3#240#0#6'Height'#2#16#3'Top'#2#16#5'Width'#2'['#7'Caption'#6#16 - +'Over Blend Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#232#1 - +#6'Height'#2#16#3'Top'#3#128#0#5'Width'#2' '#7'Caption'#6#5'Glyph'#11'Parent' - +'Color'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#205#1#6'Height'#2#16#3'Top'#3#176 - +#0#5'Width'#2'c'#7'Caption'#6#16'Glyph Background'#11'ParentColor'#8#0#0#6'T' - +'Label'#7'Label10'#4'Left'#3#216#1#6'Height'#2#16#3'Top'#2#16#5'Width'#2';'#7 - +'Caption'#6#11'Click Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4'Lef' - +'t'#3#208#1#6'Height'#2#16#3'Top'#2'H'#5'Width'#2'N'#7'Caption'#6#14'Disable' - +'d Color'#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'p'#1#6'Height' - +#2#16#3'Top'#2#16#5'Width'#2'7'#7'Caption'#6#10'Text Color'#11'ParentColor'#8 - +#0#0#9'TTrackBar'#9'TrackBar1'#4'Left'#2#8#6'Height'#2#30#3'Top'#2'`'#5'Widt' - +'h'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'Positio' - +'n'#2#0#8'ScalePos'#7#8'trBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCu' - +'stom'#8'TabOrder'#2#0#0#0#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2 - +#30#3'Top'#3#152#0#5'Width'#3#184#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'Tr' - +'ackBar2Change'#8'Position'#2#0#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'Tic' - +'kStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGro' - +'up'#11'CheckGroup1'#4'Left'#2#8#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#3#129 - +#0#8'AutoFill'#9#7'Caption'#6#12'Border Sides'#28'ChildSizing.LeftRightSpaci' - +'ng'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizont' - +'al'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crs' - +'HomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds' - +#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7 - +#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'It' - +'ems.Strings'#1#6#12'bsBottomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRi' - +'ghtLine'#0#11'OnItemClick'#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Dat' - +'a'#10#8#0#0#0#4#0#0#0#2#2#2#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#2 - +#8#6'Height'#2'Y'#3'Top'#3#216#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6 - +#5'Other'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpaci' - +'ng'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27 - +'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.' - +'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14 - +'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom' - +#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#15'ShowFocusBorde' - +'r'#6#9'ShowGlyph'#6#7'Enabled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick' - +#8'TabOrder'#2#6#4'Data'#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'Rad' - +'ioGroup1'#4'Left'#3#176#1#6'Height'#2'A'#3'Top'#3#240#0#5'Width'#3#129#0#8 - +'AutoFill'#9#7'Caption'#6#13'Gradient Type'#28'ChildSizing.LeftRightSpacing' - +#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7 - +#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge' - +'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C' - +'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29 - +'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Clien' - +'tHeight'#2'/'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12 - +'gtHorizontal'#6#10'gtVertical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrd' - +'er'#2#8#0#0#11'TRadioGroup'#11'RadioGroup2'#4'Left'#3#151#0#6'Height'#2'i'#3 - +'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Directio' - +'n'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6 - +#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSi' - +'zing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkH' - ,'orizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScal' - +'eChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'Chil' - +'dSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'W'#11'ClientWidth'#2'}'#9'I' - +'temIndex'#2#0#13'Items.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7 - +'OnClick'#7#16'RadioGroup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'Radi' - +'oGroup3'#4'Left'#3'('#1#6'Height'#2'i'#3'Top'#3'@'#1#5'Width'#2'y'#8'AutoFi' - +'ll'#9#7'Caption'#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28 - +'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr' - +'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC' - +'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS' - +'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL' - +'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHei' - +'ght'#2'W'#11'ClientWidth'#2'u'#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'bl' - +'GlyphRight'#6#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnCl' - +'ick'#7#16'RadioGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGro' - +'up4'#4'Left'#3#176#1#6'Height'#2'j'#3'Top'#3'@'#1#5'Width'#3#129#0#8'AutoFi' - +'ll'#9#7'Caption'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6 - +#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24 - +'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenou' - +'sChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'Chil' - +'dSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cc' - +'lLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientH' - +'eight'#2'X'#11'ClientWidth'#2'}'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8't' - +'aCenter'#6#13'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGr' - +'oup4Click'#8'TabOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#3 - +'H'#1#6'Height'#2#23#3'Top'#3#216#0#5'Width'#2'P EditLabel.AnchorSideLeft.Co' - +'ntrol'#7#12'LabeledEdit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEd' - +'it1'#14'EditLabel.Left'#3'H'#1#16'EditLabel.Height'#2#16#13'EditLabel.Top'#3 - +#197#0#15'EditLabel.Width'#2'R'#17'EditLabel.Caption'#6#14'Button Caption'#21 - +'EditLabel.ParentColor'#8#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyU' - +'p'#7#17'LabeledEdit1KeyUp'#0#0#11'TGradButton'#1'b'#4'Left'#3#152#0#6'Heigh' - +'t'#2'`'#3'Top'#3#200#0#5'Width'#3#168#0#7'Caption'#6#11'Sample Text'#10'Fon' - +'t.Color'#7#7'clWhite'#11'Font.Height'#2#241#7'OnClick'#7#6'bClick'#8'TabOrd' - +'er'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend' - +#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlu' - +'e'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Ba' - +'ckgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'Glyph' - +'BackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackground' - +'Draw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0 - +#11'TGradButton'#15'BaseColorButton'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'#'#5 - +'Width'#2'h'#7'Caption'#6#15'BaseColorButton'#10'Font.Color'#7#7'clWhite'#7 - +'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2#10#7'TabStop'#9#11'NormalBlend' - +#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'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#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'Clic' - +'kColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2 - +#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#22'NormalBlendColor' - +'Button'#4'Left'#2'x'#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6 - +#22'NormalBlendColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'Norm' - +'alBlendClick'#8'TabOrder'#2#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0 - +#128#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'cl' - +'Blue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCo' - +'lor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9 - +#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB' - +'lue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeigh' - +'tBorderSpacing'#2#15#0#0#11'TGradButton'#15'OverBlendButton'#4'Left'#3#232#0 - +#6'Height'#2#25#3'Top'#2'#'#5'Width'#2'h'#7'Caption'#6#15'OverBlendButton'#10 - +'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2#12#7 + 'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#21#1#6'Height'#3#248#1#3'Top'#2#127#5'Wid' + +'th'#3#238#2#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderS' + +'tyle'#7#8'bsSingle'#7'Caption'#6#16'TGradButton-Demo'#12'ClientHeight'#3#248 + +#1#11'ClientWidth'#3#238#2#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0' + +'.9.31'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#17#3'Top'#2'w'#5'Width' + +#2'R'#7'Caption'#6#11'NormalBlend'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2' + +#4'Left'#2#8#6'Height'#2#17#3'Top'#3#175#0#5'Width'#2'A'#7'Caption'#6#9'Over' + +'Blend'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'p'#6'Height'#2#1 + +#3'Top'#2'w'#5'Width'#2#1#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2 + +'p'#6'Height'#2#1#3'Top'#3#175#0#5'Width'#2#1#11'ParentColor'#8#0#0#6'TLabel' + +#6'Label5'#4'Left'#3#197#1#6'Height'#2#17#3'Top'#2#10#5'Width'#2'D'#7'Captio' + +'n'#6#10'Base Color'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3#176 + +#1#6'Height'#2#17#3'Top'#2'4'#5'Width'#2'|'#7'Caption'#6#18'Normal Blend Col' + +'or'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#3#180#1#6'Height'#2#17 + +#3'Top'#2'j'#5'Width'#2'k'#7'Caption'#6#16'Over Blend Color'#11'ParentColor' + +#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#216#1#6'Height'#2#17#3'Top'#3'B'#1#5'Wi' + +'dth'#2'%'#7'Caption'#6#5'Glyph'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4 + +'Left'#3#176#1#6'Height'#2#17#3'Top'#3'r'#1#5'Width'#2't'#7'Caption'#6#16'Gl' + +'yph Background'#11'ParentColor'#8#0#0#6'TLabel'#7'Label10'#4'Left'#3#200#1#6 + +'Height'#2#17#3'Top'#3#210#0#5'Width'#2'F'#7'Caption'#6#11'Click Color'#11'P' + +'arentColor'#8#0#0#6'TLabel'#7'Label11'#4'Left'#3#189#1#6'Height'#2#17#3'Top' + +#3#10#1#5'Width'#2'^'#7'Caption'#6#14'Disabled Color'#11'ParentColor'#8#0#0#6 + +'TLabel'#7'Label12'#4'Left'#3#198#1#6'Height'#2#17#3'Top'#3#154#0#5'Width'#2 + +'C'#7'Caption'#6#10'Text Color'#11'ParentColor'#8#0#0#9'TTrackBar'#9'TrackBa' + +'r1'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#140#0#5'Width'#3#161#1#3'Max'#4#160 + +#134#1#0#8'OnChange'#7#15'TrackBar1Change'#8'Position'#2#0#8'ScalePos'#7#8't' + +'rBottom'#9'TickStyle'#7#6'tsNone'#5'Align'#7#8'alCustom'#8'TabOrder'#2#0#0#0 + +#9'TTrackBar'#9'TrackBar2'#4'Left'#2#8#6'Height'#2#30#3'Top'#3#196#0#5'Width' + +#3#161#1#3'Max'#4#160#134#1#0#8'OnChange'#7#15'TrackBar2Change'#8'Position'#2 + +#0#8'ScalePos'#7#8'trBottom'#7'TabStop'#8#9'TickStyle'#7#6'tsNone'#5'Align'#7 + +#8'alCustom'#8'TabOrder'#2#1#0#0#11'TCheckGroup'#11'CheckGroup1'#4'Left'#2#8 + +#6'Height'#3#129#0#3'Top'#3#233#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6 + +#12'Border Sides'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBot' + +'tomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildRe' + +'size'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'Chi' + +'ldSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertic' + +'al'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopT' + +'oBottom'#27'ChildSizing.ControlsPerLine'#2#1#13'Items.Strings'#1#6#12'bsBot' + +'tomLine'#6#9'bsTopLine'#6#10'bsLeftLine'#6#11'bsRightLine'#0#11'OnItemClick' + +#7#20'CheckGroup1ItemClick'#8'TabOrder'#2#4#4'Data'#10#8#0#0#0#4#0#0#0#2#2#2 + +#2#0#0#11'TCheckGroup'#11'CheckGroup2'#4'Left'#3#144#0#6'Height'#3#129#0#3'T' + +'op'#3#233#0#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#5'Other'#28'ChildSi' + +'zing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSiz' + +'ing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarg' + +'eVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7 + +#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C' + +'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr' + +'olsPerLine'#2#1#13'Items.Strings'#1#6#11'FocusBorder'#6#9'ShowGlyph'#6#7'En' + +'abled'#0#11'OnItemClick'#7#20'CheckGroup2ItemClick'#8'TabOrder'#2#6#4'Data' + +#10#7#0#0#0#3#0#0#0#2#2#2#0#0#11'TRadioGroup'#11'RadioGroup1'#4'Left'#2#9#6 + +'Height'#2'W'#3'Top'#3'q'#1#5'Width'#3#129#0#8'AutoFill'#9#7'Caption'#6#13'G' + +'radient Type'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottom' + +'Spacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResiz' + +'e'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildS' + +'izing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical' + +#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBot' + +'tom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'A'#11'ClientWid' + +'th'#2'y'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#12'gtHorizontal'#6#10'gtVer' + +'tical'#0#7'OnClick'#7#16'RadioGroup1Click'#8'TabOrder'#2#8#0#0#11'TRadioGro' + +'up'#11'RadioGroup2'#4'Left'#3#144#0#6'Height'#2'W'#3'Top'#3'q'#1#5'Width'#3 + +#129#0#8'AutoFill'#9#7'Caption'#6#17'Rotated Direction'#28'ChildSizing.LeftR' + +'ightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlarg' + +'eHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical' + +#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsSca' + ,'leChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizin' + +'g.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLin' + +'e'#2#1#12'ClientHeight'#2'A'#11'ClientWidth'#2'y'#9'ItemIndex'#2#0#13'Items' + +'.Strings'#1#6#8'rdNormal'#6#6'rdLeft'#6#7'rdRight'#0#7'OnClick'#7#16'RadioG' + +'roup2Click'#8'TabOrder'#2#2#0#0#11'TRadioGroup'#11'RadioGroup3'#4'Left'#3#24 + +#1#6'Height'#3#129#0#3'Top'#3#233#0#5'Width'#3#145#0#8'AutoFill'#9#7'Caption' + +#6#13'Button Layout'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.Top' + +'BottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChil' + +'dResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28 + +'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVer' + +'tical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenT' + +'opToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'k'#11'Cl' + +'ientWidth'#3#137#0#9'ItemIndex'#2#1#13'Items.Strings'#1#6#12'blGlyphRight'#6 + +#11'blGlyphLeft'#6#10'blGlyphTop'#6#13'blGlyphBottom'#0#7'OnClick'#7#16'Radi' + +'oGroup3Click'#8'TabOrder'#2#3#0#0#11'TRadioGroup'#11'RadioGroup4'#4'Left'#3 + +#24#1#6'Height'#3#129#0#3'Top'#3'q'#1#5'Width'#3#145#0#8'AutoFill'#9#7'Capti' + +'on'#6#14'Text Alignment'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizin' + +'g.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenou' + +'sChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize' + +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink' + +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh' + +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'k'#11 + +'ClientWidth'#3#137#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'taCenter'#6#13 + +'taLeftJustify'#6#14'taRightJustify'#0#7'OnClick'#7#16'RadioGroup4Click'#8'T' + +'abOrder'#2#5#0#0#12'TLabeledEdit'#12'LabeledEdit1'#4'Left'#2#9#6'Height'#2 + +#22#3'Top'#2#24#5'Width'#2'i EditLabel.AnchorSideLeft.Control'#7#12'LabeledE' + +'dit1"EditLabel.AnchorSideBottom.Control'#7#12'LabeledEdit1'#14'EditLabel.Le' + +'ft'#2#9#16'EditLabel.Height'#2#17#13'EditLabel.Top'#2#4#15'EditLabel.Width' + +#2'_'#17'EditLabel.Caption'#6#14'Button Caption'#21'EditLabel.ParentColor'#8 + +#8'TabOrder'#2#7#4'Text'#6#11'Sample Text'#7'OnKeyUp'#7#17'LabeledEdit1KeyUp' + +#0#0#11'TGradButton'#1'b'#4'Left'#3#160#0#6'Height'#2'`'#3'Top'#2#10#5'Width' + +#3#167#0#7'Caption'#6#11'Sample Text'#27'DropDownSettings.OnlyOnMark'#8#26'D' + +'ropDownSettings.PopupMenu'#7#16'ExamplePopupMenu'#21'DropDownSettings.Show' + +#8#28'DropDownSettings.SplitButton'#8#9'PopupMenu'#7#16'ExamplePopupMenu'#10 + +'Font.Color'#7#7'clWhite'#11'Font.Height'#2#241#7'OnClick'#7#6'bClick'#8'Tab' + +'Order'#2#9#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBl' + +'end'#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#9'ShowGlyph'#8#20 + +'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackg' + +'roundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2 + +#15#0#0#11'TGradButton'#15'BaseColorButton'#4'Left'#3#180#1#6'Height'#2#25#3 + +'Top'#2#26#5'Width'#2'h'#7'Caption'#6#15'BaseColorButton'#27'DropDownSetting' + +'s.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton' + +#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'BaseColorClick'#8'TabOrder'#2 + +#10#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5' + +'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue' + +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg' + +'roundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBac' + +'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDra' + +'w'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11 + +'TGradButton'#22'NormalBlendColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'To' + +'p'#2'J'#5'Width'#2'h'#7'Caption'#6#22'NormalBlendColorButton'#27'DropDownSe' + +'ttings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitB' + +'utton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#16'NormalBlendClick'#8'Ta' + +'bOrder'#2#11#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'Over' + +'Blend'#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#9'ShowGlyph'#8#20 + +'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackg' + +'roundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2 + +#15#0#0#11'TGradButton'#15'OverBlendButton'#4'Left'#3#180#1#6'Height'#2#25#3 + +'Top'#2'}'#5'Width'#2'h'#7'Caption'#6#15'OverBlendButton'#27'DropDownSetting' + +'s.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton' + ,#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#14'OverBlendClick'#8'TabOrder'#2 + +#12#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128#254'?'#9'OverBlend'#5'5' + +'^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue'#5'Color'#7#6'clBlue' + +#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'Backg' + +'roundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBac' + +'kgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDra' + +'w'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11 + +'TGradButton'#15'LoadGlyphButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top'#3'R' + +#1#5'Width'#2'h'#7'Caption'#6#10'Load Glyph'#27'DropDownSettings.OnlyOnMark' + +#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'#8#10'Font.Co' + +'lor'#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'Norm' +'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo' +'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackground' +'Color'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22 - ,'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradB' - +'utton'#15'LoadGlyphButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#144#0#5 - +'Width'#2'h'#7'Caption'#6#10'Load Glyph'#10'Font.Color'#7#7'clWhite'#7'OnCli' - +'ck'#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'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#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'Clic' - +'kColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2 - +#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#26'GlyphBackgroundC' - +'olorButton'#4'Left'#3#196#1#6'Height'#2#25#3'Top'#3#192#0#5'Width'#2'h'#7'C' - +'aption'#6#26'GlyphBackgroundColorButton'#10'Font.Color'#7#7'clWhite'#7'OnCl' - +'ick'#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#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7 - +'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthB' - +'orderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradButton'#16 - +'ClickColorButton'#4'Left'#3#196#1#6'Height'#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'NormalBlendColor'#7#7'clWhite'#14'OverB' - +'lendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBor' - +'der'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7 - +#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'Auto' - +'HeightBorderSpacing'#2#15#0#0#11'TGradButton'#19'DisabledColorButton'#4'Lef' - +'t'#3#196#1#6'Height'#2#25#3'Top'#2']'#5'Width'#2'h'#7'Caption'#6#19'Disable' - +'dColorButton'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#24'DisabledColorButt' - +'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#9'Show' - +'Glyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19 - +'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderS' - +'pacing'#2#15#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 - +'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'Bol' - +'d'#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'#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#20'Tex' - +'tColorButtonClick'#8'TabOrder'#2#19#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0 + +'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#11'TGradB' + +'utton'#26'GlyphBackgroundColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top' + +#3#130#1#5'Width'#2'h'#7'Caption'#6#26'GlyphBackgroundColorButton'#27'DropDo' + +'wnSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.Sp' + +'litButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#31'GlyphBackgroundCol' + +'orButtonClick'#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'cl' + +'Blue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendCo' + +'lor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9 + +#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clB' + +'lue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeigh' + +'tBorderSpacing'#2#15#0#0#11'TGradButton'#16'ClickColorButton'#4'Left'#3#180 + +#1#6'Height'#2#25#3'Top'#3#234#0#5'Width'#2'h'#7'Caption'#6#16'ClickColorBut' + +'ton'#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropD' + +'ownSettings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#21'Clic' + +'kColorButtonClick'#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'NormalBlendColor'#7#7'clWhite'#14'OverBlend' +'Color'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder' +#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'c' +'lBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHei' - +'ghtBorderSpacing'#2#15#0#0#9'TCheckBox'#14'ItalicCheckBox'#4'Left'#3'G'#1#6 - +'Height'#2#19#3'Top'#3#24#1#5'Width'#2'-'#7'Caption'#6#6'Italic'#8'OnChange' - +#7#20'ItalicCheckBoxChange'#8'TabOrder'#2#20#0#0#9'TCheckBox'#24'GlyphTransp' - +'arentCheckBox'#4'Left'#3#192#1#6'Height'#2#19#3'Top'#3#220#0#5'Width'#2'u'#7 - +'Caption'#6#17'Glyph Transparent'#8'OnChange'#7#30'GlyphTransparentCheckBoxC' - +'hange'#8'TabOrder'#2#21#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1i' - +#182#0#20'CustomColors.Strings'#1#6#13'ColorA=000000'#6#13'ColorB=000080'#6 - +#13'ColorC=008000'#6#13'ColorD=008080'#6#13'ColorE=800000'#6#13'ColorF=80008' - +'0'#6#13'ColorG=808000'#6#13'ColorH=808080'#6#13'ColorI=C0C0C0'#6#13'ColorJ=' - +'0000FF'#6#13'ColorK=00FF00'#6#13'ColorL=00FFFF'#6#13'ColorM=FF0000'#6#13'Co' - +'lorN=FF00FF'#6#13'ColorO=FFFF00'#6#13'ColorP=FFFFFF'#6#13'ColorQ=C0DCC0'#6 - +#13'ColorR=F0CAA6'#6#13'ColorS=F0FBFF'#6#13'ColorT=A4A0A0'#0#4'left'#2#8#3't' - +'op'#3#176#0#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#6'Filter'#6 + +'ghtBorderSpacing'#2#15#0#0#11'TGradButton'#19'DisabledColorButton'#4'Left'#3 + +#180#1#6'Height'#2#25#3'Top'#3'"'#1#5'Width'#2'h'#7'Caption'#6#19'DisabledCo' + +'lorButton'#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28 + +'DropDownSettings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#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'5^'#186'I'#12#2'+'#167#254'?'#9'BaseC' + +'olor'#7#6'clBlue'#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14 + +'OverBlendColor'#7#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFoc' + +'usBorder'#9#9'ShowGlyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickCo' + +'lor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15 + +#23'AutoHeightBorderSpacing'#2#15#0#0#9'TCheckBox'#17'UnderlineCheckBox'#4'L' + +'eft'#2#8#6'Height'#2#18#3'Top'#2'2'#5'Width'#2'Q'#7'Caption'#6#9'Underline' + +#8'OnChange'#7#23'UnderlineCheckBoxChange'#8'TabOrder'#2#17#0#0#9'TCheckBox' + +#12'BoldCheckBox'#4'Left'#2#8#6'Height'#2#18#3'Top'#2'E'#5'Width'#2'0'#7'Cap' + +'tion'#6#4'Bold'#8'OnChange'#7#18'BoldCheckBoxChange'#8'TabOrder'#2#18#0#0#11 + +'TGradButton'#15'TextColorButton'#4'Left'#3#180#1#6'Height'#2#25#3'Top'#3#178 + +#0#5'Width'#2'h'#7'Caption'#6#10'Text Color'#27'DropDownSettings.OnlyOnMark' + +#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitButton'#8#10'Font.Co' + +'lor'#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' + +'alBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'clSilver'#15'BackgroundCo' + +'lor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyph'#8#20'GlyphBackground' + +'Color'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'OwnerBackgroundDraw'#8#22 + +'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpacing'#2#15#0#0#9'TCheckB' + +'ox'#14'ItalicCheckBox'#4'Left'#2#8#6'Height'#2#18#3'Top'#2'X'#5'Width'#2'2' + +#7'Caption'#6#6'Italic'#8'OnChange'#7#20'ItalicCheckBoxChange'#8'TabOrder'#2 + ,#20#0#0#9'TCheckBox'#24'GlyphTransparentCheckBox'#4'Left'#3#176#1#6'Height'#2 + +#18#3'Top'#3#160#1#5'Width'#3#137#0#7'Caption'#6#17'Glyph Transparent'#8'OnC' + +'hange'#7#30'GlyphTransparentCheckBoxChange'#8'TabOrder'#2#21#0#0#9'TGroupBo' + +'x'#9'GroupBox1'#4'Left'#3'0'#2#6'Height'#3#191#1#3'Top'#2#10#5'Width'#3#185 + +#0#7'Caption'#6#16'DropDownSettings'#12'ClientHeight'#3#169#1#11'ClientWidth' + +#3#177#0#8'TabOrder'#2#22#0#11'TRadioGroup'#11'RadioGroup6'#4'Left'#2#0#6'He' + +'ight'#2'P'#3'Top'#3'Y'#1#5'Width'#3#177#0#5'Align'#7#8'alBottom'#8'AutoFill' + +#9#7'Caption'#6#12'MarkPosition'#28'ChildSizing.LeftRightSpacing'#2#6#28'Chi' + +'ldSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHo' + +'mogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChil' + +'dResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizi' + +'ng.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeft' + +'ToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight' + +#2':'#11'ClientWidth'#3#169#0#9'ItemIndex'#2#1#13'Items.Strings'#1#6#6'mpLef' + +'t'#6#7'mpRight'#0#7'OnClick'#7#16'RadioGroup6Click'#8'TabOrder'#2#0#0#0#11 + +'TRadioGroup'#11'RadioGroup5'#4'Left'#2#0#6'Height'#3#135#0#3'Top'#3#210#0#5 + +'Width'#3#177#0#5'Align'#7#8'alBottom'#8'AutoFill'#9#7'Caption'#6#13'MarkDir' + +'ection'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacin' + +'g'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27 + +'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.' + +'ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14 + +'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom' + +#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2'q'#11'ClientWidth'#3 + +#169#0#9'ItemIndex'#2#2#13'Items.Strings'#1#6#4'mdUp'#6#6'mdLeft'#6#6'mdDown' + +#6#7'mdRight'#0#7'OnClick'#7#16'RadioGroup5Click'#8'TabOrder'#2#1#0#0#12'TLa' + +'beledEdit'#12'LabeledEdit2'#4'Left'#2#0#6'Height'#2#22#3'Top'#2'E'#5'Width' + +#2'P EditLabel.AnchorSideLeft.Control'#7#12'LabeledEdit2"EditLabel.AnchorSid' + +'eBottom.Control'#7#12'LabeledEdit2'#14'EditLabel.Left'#2#0#16'EditLabel.Hei' + +'ght'#2#17#13'EditLabel.Top'#2'1'#15'EditLabel.Width'#2#26#17'EditLabel.Capt' + +'ion'#6#4'Size'#21'EditLabel.ParentColor'#8#20'EditLabel.ParentFont'#8#8'Tab' + +'Order'#2#2#4'Text'#6#1'8'#8'OnChange'#7#18'LabeledEdit2Change'#0#0#6'TLabel' + +#7'Label13'#4'Left'#2'D'#6'Height'#2#17#3'Top'#2']'#5'Width'#2'#'#7'Caption' + +#6#5'Color'#11'ParentColor'#8#0#0#11'TGradButton'#13'DDColorButton'#4'Left'#2 + +#0#6'Height'#2#25#3'Top'#2'u'#5'Width'#3#177#0#7'Caption'#6#13'DDColorButton' + +#27'DropDownSettings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSe' + +'ttings.SplitButton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#18'DDColorBu' + +'ttonClick'#8'TabOrder'#2#3#7'TabStop'#9#11'NormalBlend'#5#0#0#0#0#0#0#0#128 + +#254'?'#9'OverBlend'#5'5^'#186'I'#12#2'+'#167#254'?'#9'BaseColor'#7#6'clBlue' + +#5'Color'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7 + +#8'clSilver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'Show' + +'Glyph'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19 + +'OwnerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderS' + +'pacing'#2#15#0#0#6'TLabel'#7'Label14'#4'Left'#2'$'#6'Height'#2#17#3'Top'#3 + +#149#0#5'Width'#2'X'#7'Caption'#6#13'Pressed Color'#11'ParentColor'#8#0#0#11 + +'TGradButton'#20'DDPressedColorButton'#4'Left'#2#0#6'Height'#2#25#3'Top'#3 + +#173#0#5'Width'#3#177#0#7'Caption'#6#20'DDPressedColorButton'#27'DropDownSet' + +'tings.OnlyOnMark'#8#21'DropDownSettings.Show'#8#28'DropDownSettings.SplitBu' + +'tton'#8#10'Font.Color'#7#7'clWhite'#7'OnClick'#7#25'DDPressedColorButtonCli' + +'ck'#8'TabOrder'#2#4#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'Col' + +'or'#7#6'clBlue'#16'NormalBlendColor'#7#7'clWhite'#14'OverBlendColor'#7#8'cl' + +'Silver'#15'BackgroundColor'#7#9'clBtnFace'#15'ShowFocusBorder'#9#9'ShowGlyp' + +'h'#8#20'GlyphBackgroundColor'#7#7'clWhite'#10'ClickColor'#7#6'clBlue'#19'Ow' + +'nerBackgroundDraw'#8#22'AutoWidthBorderSpacing'#2#15#23'AutoHeightBorderSpa' + +'cing'#2#15#0#0#9'TCheckBox'#9'CheckBox1'#4'Left'#2#4#6'Height'#2#18#3'Top'#2 + +#5#5'Width'#2'6'#7'Caption'#6#4'Show'#8'OnChange'#7#15'CheckBox1Change'#8'Ta' + +'bOrder'#2#5#0#0#9'TCheckBox'#9'CheckBox2'#4'Left'#2#4#6'Height'#2#18#3'Top' + +#2#29#5'Width'#2'Y'#7'Caption'#6#11'SplitButton'#8'OnChange'#7#15'CheckBox2C' + +'hange'#8'TabOrder'#2#6#0#0#0#12'TColorDialog'#12'ColorDialog1'#5'Color'#4'1' + +'i'#182#0#20'CustomColors.Strings'#1#6#13'ColorA=000000'#6#13'ColorB=000080' + +#6#13'ColorC=008000'#6#13'ColorD=008080'#6#13'ColorE=800000'#6#13'ColorF=800' + +'080'#6#13'ColorG=808000'#6#13'ColorH=808080'#6#13'ColorI=C0C0C0'#6#13'Color' + +'J=0000FF'#6#13'ColorK=00FF00'#6#13'ColorL=00FFFF'#6#13'ColorM=FF0000'#6#13 + +'ColorN=FF00FF'#6#13'ColorO=FFFF00'#6#13'ColorP=FFFFFF'#6#13'ColorQ=C0DCC0'#6 + ,#13'ColorR=F0CAA6'#6#13'ColorS=F0FBFF'#6#13'ColorT=A4A0A0'#0#4'left'#3#152#0 + +#3'top'#3#208#1#0#0#18'TOpenPictureDialog'#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 Pix' - +'map (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'0'#3'top'#3#176#0#0#0#0 + +'|Jpint Picture Expert Group (*.jpg)|*.jpg|Symbol (*.ico)|*.ico|Portable Pix' + +'map (*.ppm)|*.ppm|Portable Graymap'#4'left'#2'8'#3'top'#3#200#1#0#0#10'TPop' + +'upMenu'#16'ExamplePopupMenu'#4'left'#2'h'#3'top'#3#208#1#0#9'TMenuItem'#9'M' + +'enuItem1'#7'Caption'#6#9'New Item1'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption' + +#6#9'New Item2'#0#0#0#0 ]); diff --git a/components/gradcontrols/examples/Forms/main.pas b/components/gradcontrols/examples/Forms/main.pas index 7ba98e5c9..c6195e9d2 100644 --- a/components/gradcontrols/examples/Forms/main.pas +++ b/components/gradcontrols/examples/Forms/main.pas @@ -7,17 +7,30 @@ interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, ugradbtn, Buttons, ComCtrls, - LCLType, ExtDlgs, urotatebitmap; + LCLType, ExtDlgs, Menus, urotatebitmap; type { TForm1 } TForm1 = class(TForm) + CheckBox2: TCheckBox; + DDColorButton: TGradButton; + DDPressedColorButton: TGradButton; BoldCheckBox: TCheckBox; + CheckBox1: TCheckBox; GlyphTransparentCheckBox: TCheckBox; + GroupBox1: TGroupBox; ItalicCheckBox: TCheckBox; Label12: TLabel; + ExamplePopupMenu: TPopupMenu; + Label13: TLabel; + Label14: TLabel; + LabeledEdit2: TLabeledEdit; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + RadioGroup5: TRadioGroup; + RadioGroup6: TRadioGroup; TextColorButton: TGradButton; UnderlineCheckBox: TCheckBox; CheckGroup1: TCheckGroup; @@ -52,10 +65,15 @@ type TrackBar2: TTrackBar; procedure bClick(Sender: TObject); procedure BoldCheckBoxChange(Sender: TObject); + procedure CheckBox1Change(Sender: TObject); + procedure CheckBox2Change(Sender: TObject); procedure CheckGroup1ItemClick(Sender: TObject; Index: integer); procedure CheckGroup2ItemClick(Sender: TObject; Index: integer); procedure BaseColorClick(Sender: TObject); + procedure DDPressedColorButtonClick(Sender: TObject); + procedure DDColorButtonClick(Sender: TObject); procedure GlyphTransparentCheckBoxChange(Sender: TObject); + procedure LabeledEdit2Change(Sender: TObject); procedure LoadGlyphButtonClick(Sender: TObject); procedure GlyphBackgroundColorButtonClick(Sender: TObject); procedure ClickColorButtonClick(Sender: TObject); @@ -68,6 +86,8 @@ type procedure RadioGroup2Click(Sender: TObject); procedure RadioGroup3Click(Sender: TObject); procedure RadioGroup4Click(Sender: TObject); + procedure RadioGroup5Click(Sender: TObject); + procedure RadioGroup6Click(Sender: TObject); procedure TextColorButtonClick(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure TrackBar2Change(Sender: TObject); @@ -82,7 +102,8 @@ var implementation uses - GraphType; + GraphType; + procedure UpdateButtonColor(Button: TGradButton; Color: TColor); begin Button.BaseColor := Color; @@ -106,6 +127,8 @@ begin UpdateButtonColor(ClickColorButton, b.ClickColor); UpdateButtonColor(DisabledColorButton, b.DisabledColor); UpdateButtonColor(TextColorButton, b.Font.Color); + UpdateButtonColor(DDColorButton, b.DropDownSettings.Color); + UpdateButtonColor(DDPressedColorButton, b.DropDownSettings.PressedColor); CheckGroup1.Checked[0]:=true; CheckGroup1.Checked[1]:=true; @@ -125,42 +148,60 @@ end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin - if RadioGroup1.ItemIndex = 0 then - b.GradientType := gtHorizontal - else - b.GradientType := gtVertical; + if RadioGroup1.ItemIndex = 0 then + b.GradientType := gtHorizontal + else + b.GradientType := gtVertical; end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin - if RadioGroup2.ItemIndex = 0 then - b.RotateDirection := rdNormal - else if RadioGroup2.ItemIndex = 1 then - b.RotateDirection := rdLeft - else - b.RotateDirection := rdRight; + if RadioGroup2.ItemIndex = 0 then + b.RotateDirection := rdNormal + else if RadioGroup2.ItemIndex = 1 then + b.RotateDirection := rdLeft + else + b.RotateDirection := rdRight; end; procedure TForm1.RadioGroup3Click(Sender: TObject); begin if RadioGroup3.ItemIndex = 0 then - b.ButtonLayout := blGlyphRight + b.ButtonLayout := blGlyphRight else if RadioGroup3.ItemIndex = 1 then - b.ButtonLayout := blGlyphLeft + b.ButtonLayout := blGlyphLeft else if RadioGroup3.ItemIndex = 2 then - b.ButtonLayout := blGlyphTop + b.ButtonLayout := blGlyphTop else b.ButtonLayout := blGlyphBottom; end; procedure TForm1.RadioGroup4Click(Sender: TObject); begin case RadioGroup4.ItemIndex of - 0 : b.TextAlignment := taCenter; - 1 : b.TextAlignment := taLeftJustify; - 2 : b.TextAlignment := taRightJustify; + 0 : b.TextAlignment := taCenter; + 1 : b.TextAlignment := taLeftJustify; + 2 : b.TextAlignment := taRightJustify; end; end; +procedure TForm1.RadioGroup5Click(Sender: TObject); +begin + case RadioGroup5.ItemIndex of + 0: b.DropDownSettings.MarkDirection:=mdUp; + 1: b.DropDownSettings.MarkDirection:=mdLeft; + 2: b.DropDownSettings.MarkDirection:=mdDown; + 3: b.DropDownSettings.MarkDirection:=mdRight; + end; +end; + +procedure TForm1.RadioGroup6Click(Sender: TObject); +begin + case RadioGroup6.ItemIndex of + 0: b.DropDownSettings.MarkPosition:=mpLeft; + 1: b.DropDownSettings.MarkPosition:=mpRight; + end; +end; + procedure TForm1.TextColorButtonClick(Sender: TObject); begin ColorDialog1.Color := b.Font.Color; @@ -173,12 +214,32 @@ end; procedure TForm1.BaseColorClick(Sender: TObject); begin - ColorDialog1.Color:=BaseColorButton.BaseColor; - if ColorDialog1.Execute then - begin - b.BaseColor:=ColorDialog1.Color; - UpdateButtonColor(BaseColorButton, ColorDialog1.Color); - end; + ColorDialog1.Color:=BaseColorButton.BaseColor; + if ColorDialog1.Execute then + begin + b.BaseColor:=ColorDialog1.Color; + UpdateButtonColor(BaseColorButton, ColorDialog1.Color); + end; +end; + +procedure TForm1.DDPressedColorButtonClick(Sender: TObject); +begin + ColorDialog1.Color:=DDPressedColorButton.BaseColor; + if ColorDialog1.Execute then + begin + b.DropDownSettings.PressedColor:=ColorDialog1.Color; + UpdateButtonColor(DDPressedColorButton, ColorDialog1.Color); + end; +end; + +procedure TForm1.DDColorButtonClick(Sender: TObject); +begin + ColorDialog1.Color:=DDColorButton.BaseColor; + if ColorDialog1.Execute then + begin + b.DropDownSettings.Color:=ColorDialog1.Color; + UpdateButtonColor(DDColorButton, ColorDialog1.Color); + end; end; procedure TForm1.GlyphTransparentCheckBoxChange(Sender: TObject); @@ -187,6 +248,16 @@ begin LoadGlyphButton.Glyph.Transparent := GlyphTransparentCheckBox.Checked; end; +procedure TForm1.LabeledEdit2Change(Sender: TObject); +var + i : Integer; +begin + if TryStrToInt(LabeledEdit2.Text, i) then + begin + b.DropDownSettings.Size := i; + end; +end; + procedure TForm1.LoadGlyphButtonClick(Sender: TObject); var tempPicture : TPicture; @@ -289,6 +360,16 @@ begin b.Font.Style := b.Font.Style - [fsBold]; end; +procedure TForm1.CheckBox1Change(Sender: TObject); +begin + b.DropDownSettings.Show := CheckBox1.Checked; +end; + +procedure TForm1.CheckBox2Change(Sender: TObject); +begin + b.DropDownSettings.SplitButton:= CheckBox2.Checked; +end; + procedure TForm1.bClick(Sender: TObject); begin diff --git a/components/gradcontrols/examples/gradbuttontest.lpi b/components/gradcontrols/examples/gradbuttontest.lpi index 1ffcb5ccd..a707d0811 100644 --- a/components/gradcontrols/examples/gradbuttontest.lpi +++ b/components/gradcontrols/examples/gradbuttontest.lpi @@ -1,21 +1,22 @@ + - - - </General> <VersionInfo> - <ProjectVersion Value=""/> + <StringTable ProductVersion=""/> </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="default" Default="True"/> + </BuildModes> <PublishOptions> <Version Value="2"/> <IgnoreBinaries Value="False"/> @@ -25,7 +26,7 @@ <RunParams> <local> <FormatVersion Value="1"/> - <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> </RunParams> <RequiredPackages Count="3"> @@ -55,15 +56,16 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="8"/> + <Version Value="9"/> <PathDelim Value="\"/> <SearchPaths> - <OtherUnitFiles Value="Forms\"/> - <UnitOutputDirectory Value="Output\"/> + <OtherUnitFiles Value="Forms"/> + <UnitOutputDirectory Value="Output"/> </SearchPaths> <Parsing> <SyntaxOptions> <CStyleOperator Value="False"/> + <UseAnsiStrings Value="False"/> </SyntaxOptions> </Parsing> <CodeGeneration>