1
0
lazarus-tutorials/polymorphic class/mainform.lfm

37 lines
910 B
Plaintext
Raw Normal View History

2021-10-05 15:33:01 -04:00
object MainForm: TMainForm
Left = 417
Height = 240
Top = 298
Width = 320
Caption = 'MainForm'
ClientHeight = 240
ClientWidth = 320
OnCreate = FormCreate
LCLVersion = '2.0.12.0'
object rgPeople: TRadioGroup
Left = 16
Height = 185
Top = 16
Width = 281
AutoFill = True
Caption = 'Chose a TPerson Instance'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 166
ClientWidth = 271
Items.Strings = (
'David Beckham'
'William Shakespeare'
'Mae West'
'Blaise Pascal'
)
OnClick = rgPeopleClick
TabOrder = 0
end
end