object propertiesForm: TpropertiesForm Left = 308 Height = 285 Top = 239 Width = 400 Caption = 'TLabel properties demo' ClientHeight = 285 ClientWidth = 400 OnCreate = FormCreate LCLVersion = '2.0.12.0' object rgAlignment: TRadioGroup Left = 0 Height = 130 Top = 150 Width = 125 AutoFill = True Caption = 'Alignment' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 110 ClientWidth = 121 ItemIndex = 0 Items.Strings = ( 'taLeftJustify' 'taRightJustify' 'taCenter' ) OnClick = rgAlignmentClick TabOrder = 0 end object rgLayout: TRadioGroup Left = 137 Height = 130 Top = 150 Width = 125 AutoFill = True Caption = 'Layout' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 110 ClientWidth = 121 ItemIndex = 0 Items.Strings = ( 'tlTop' 'tlCenter' 'tlBottom' ) OnClick = rgLayoutClick TabOrder = 1 end object cgFontStyle: TCheckGroup Left = 274 Height = 130 Top = 150 Width = 125 AutoFill = True Caption = 'Font.Style' 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 = 110 ClientWidth = 121 Items.Strings = ( 'fsBold' 'fsItalic' 'fsUnderline' 'fsStrikeout' ) OnItemClick = cgFontStyleItemClick TabOrder = 2 Data = { 0400000002020202 } end end