object ChildsizingLayoutDemoForm: TChildsizingLayoutDemoForm Left = 290 Height = 463 Top = 163 Width = 728 HorzScrollBar.Page = 727 VertScrollBar.Page = 462 Caption = 'Childsizing.Layout Demonstration' ClientHeight = 463 ClientWidth = 728 OnCreate = FormCreate LCLVersion = '1.1' object LayoutLabel: TLabel Left = 10 Height = 102 Top = 10 Width = 367 AutoSize = False Caption = 'This is a demonstration of the TWinControl.ChildSizing.Layout property. First change in the radiogroupbox to the right the Layout and watch the LayoutGroupbox. The buttons will automatically align.' ParentColor = False WordWrap = True end object LayoutGroupBox: TGroupBox Left = 335 Height = 229 Top = 225 Width = 380 Anchors = [akTop, akLeft, akRight, akBottom] Caption = 'LayoutGroupBox' TabOrder = 0 end object LayoutTIRadioGroup: TTIRadioGroup Left = 390 Height = 102 Top = 10 Width = 321 Caption = 'LayoutGroupbox.ChildSizing.Layout' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 end object ButtonCountRadioGroup: TRadioGroup Left = 20 Height = 110 Top = 130 Width = 260 AutoFill = True Caption = 'Number of Buttons' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.ControlsPerLine = 3 ClientHeight = 92 ClientWidth = 256 ColumnLayout = clVerticalThenHorizontal Columns = 4 Items.Strings = ( '1' '2' '3' '4' '5' '7' '9' '11' '13' '15' '17' ) OnClick = ButtonCountRadioGroupClick TabOrder = 2 end object ControlsPerLineTIRadioGroup: TTIRadioGroup Left = 290 Height = 55 Hint = 'The LineLength property sets the number of controls per column/row.' Top = 130 Width = 421 Caption = 'LayoutGroupbox.ChildSizing.ControlsPerLine' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 6 Columns = 6 Link.AliasValuesStrings = ( '0=0' '1=1' '2=2' '3=3' '4=4' '5=5' ) ParentShowHint = False ShowHint = True end object ChildSizingGroupBox: TGroupBox Left = 20 Height = 201 Top = 253 Width = 260 Anchors = [akTop, akLeft, akBottom] Caption = 'LayoutGroupbox.ChildSizing' ClientHeight = 183 ClientWidth = 256 TabOrder = 4 object ChildSizingTIPropertyGrid: TTIPropertyGrid Left = 0 Height = 183 Top = 0 Width = 256 Align = alClient DefaultValueFont.Color = clWindowText Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper] Indent = 9 NameFont.Color = clWindowText ValueFont.Color = clMaroon end end end