2021-10-06 11:33:12 -04:00
|
|
|
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
|
2021-10-06 15:32:03 -04:00
|
|
|
ItemIndex = 0
|
2021-10-06 11:33:12 -04:00
|
|
|
Items.Strings = (
|
|
|
|
|
'TSquare'
|
|
|
|
|
'TCircle'
|
|
|
|
|
)
|
|
|
|
|
OnClick = rgShapeClick
|
|
|
|
|
TabOrder = 0
|
|
|
|
|
end
|
|
|
|
|
end
|
