object ReportShapeEditForm: TReportShapeEditForm Left = 634 Height = 388 Top = 458 Width = 569 Caption = 'Edit report shape' ClientHeight = 388 ClientWidth = 569 OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '1.9.0.0' object BPShape: TButtonPanel Left = 6 Height = 42 Top = 340 Width = 557 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True TabOrder = 0 ShowButtons = [pbOK, pbCancel] end object RGShape: TRadioGroup Left = 8 Height = 144 Top = 0 Width = 240 AutoFill = True Caption = 'Shape' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 126 ClientWidth = 238 Items.Strings = ( 'Ellipse' 'Circle' 'Line' 'Square' 'stTriangle' ) OnClick = RGShapeClick TabOrder = 1 end object PBPreview: TPaintBox Left = 248 Height = 267 Top = 56 Width = 304 Anchors = [akTop, akLeft, akRight, akBottom] OnPaint = PBPreviewPaint end object LPreview: TLabel Left = 248 Height = 17 Top = 24 Width = 44 Caption = 'Preview' ParentColor = False end object RGOrientation: TRadioGroup Left = 8 Height = 153 Top = 160 Width = 240 AutoFill = True Caption = 'Orientation' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 135 ClientWidth = 238 Columns = 2 Items.Strings = ( 'North' 'NorthEast' 'East' 'SouthEast' 'South' 'SouthWest' 'West' 'NorthWest' ) OnClick = RGShapeClick TabOrder = 2 end end