1
0
lazarus-tutorials/drawing demo/drawingdisplay.lfm
2021-10-06 15:32:03 -04:00

36 lines
873 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
ItemIndex = 0
Items.Strings = (
'TSquare'
'TCircle'
)
OnClick = rgShapeClick
TabOrder = 0
end
end