37 lines
910 B
Plaintext
37 lines
910 B
Plaintext
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
|