35 lines
855 B
Plaintext
35 lines
855 B
Plaintext
|
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
|
||
|
Items.Strings = (
|
||
|
'TSquare'
|
||
|
'TCircle'
|
||
|
)
|
||
|
OnClick = rgShapeClick
|
||
|
TabOrder = 0
|
||
|
end
|
||
|
end
|