1
0
lazarus-tutorials/drawing demo/drawingdisplay.lfm

35 lines
855 B
Plaintext
Raw Normal View History

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