object Form1: TForm1 Left = 627 Height = 240 Top = 322 Width = 320 Caption = 'Polymorphic drawing example' ClientHeight = 240 ClientWidth = 320 OnCreate = FormCreate LCLVersion = '2.0.12.0' object rgShape: TRadioGroup Left = 41 Height = 68 Top = 141 Width = 239 AutoFill = True Caption = 'Type of FDrawing' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 49 ClientWidth = 229 ItemIndex = 0 Items.Strings = ( 'TSquare' 'TCircle' ) OnClick = rgShapeClick TabOrder = 0 end end