1
0
lazarus-tutorials/label_properties/label_form.lfm

91 lines
2.3 KiB
Plaintext

object propertiesForm: TpropertiesForm
Left = 308
Height = 285
Top = 239
Width = 400
Caption = 'TLabel properties demo'
ClientHeight = 285
ClientWidth = 400
OnCreate = FormCreate
LCLVersion = '2.0.12.0'
object rgAlignment: TRadioGroup
Left = 0
Height = 130
Top = 150
Width = 125
AutoFill = True
Caption = 'Alignment'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 110
ClientWidth = 121
ItemIndex = 0
Items.Strings = (
'taLeftJustify'
'taRightJustify'
'taCenter'
)
OnClick = rgAlignmentClick
TabOrder = 0
end
object rgLayout: TRadioGroup
Left = 137
Height = 130
Top = 150
Width = 125
AutoFill = True
Caption = 'Layout'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 110
ClientWidth = 121
ItemIndex = 0
Items.Strings = (
'tlTop'
'tlCenter'
'tlBottom'
)
OnClick = rgLayoutClick
TabOrder = 1
end
object cgFontStyle: TCheckGroup
Left = 274
Height = 130
Top = 150
Width = 125
AutoFill = True
Caption = 'Font.Style'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 110
ClientWidth = 121
Items.Strings = (
'fsBold'
'fsItalic'
'fsUnderline'
'fsStrikeout'
)
OnItemClick = cgFontStyleItemClick
TabOrder = 2
Data = {
0400000002020202
}
end
end