mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-11 04:02:31 +02:00
133 lines
3.8 KiB
Plaintext
133 lines
3.8 KiB
Plaintext
object ChildsizingLayoutDemoForm: TChildsizingLayoutDemoForm
|
|
Left = 290
|
|
Height = 463
|
|
Top = 163
|
|
Width = 728
|
|
HorzScrollBar.Page = 727
|
|
VertScrollBar.Page = 462
|
|
Caption = 'Childsizing.Layout Demonstration'
|
|
ClientHeight = 463
|
|
ClientWidth = 728
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.1'
|
|
object LayoutLabel: TLabel
|
|
Left = 10
|
|
Height = 102
|
|
Top = 10
|
|
Width = 367
|
|
AutoSize = False
|
|
Caption = 'This is a demonstration of the TWinControl.ChildSizing.Layout property. First change in the radiogroupbox to the right the Layout and watch the LayoutGroupbox. The buttons will automatically align.'
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object LayoutGroupBox: TGroupBox
|
|
Left = 335
|
|
Height = 229
|
|
Top = 225
|
|
Width = 380
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Caption = 'LayoutGroupBox'
|
|
TabOrder = 0
|
|
end
|
|
object LayoutTIRadioGroup: TTIRadioGroup
|
|
Left = 390
|
|
Height = 102
|
|
Top = 10
|
|
Width = 321
|
|
Caption = 'LayoutGroupbox.ChildSizing.Layout'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
end
|
|
object ButtonCountRadioGroup: TRadioGroup
|
|
Left = 20
|
|
Height = 110
|
|
Top = 130
|
|
Width = 260
|
|
AutoFill = True
|
|
Caption = 'Number of Buttons'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
|
ChildSizing.ControlsPerLine = 3
|
|
ClientHeight = 92
|
|
ClientWidth = 256
|
|
ColumnLayout = clVerticalThenHorizontal
|
|
Columns = 4
|
|
Items.Strings = (
|
|
'1'
|
|
'2'
|
|
'3'
|
|
'4'
|
|
'5'
|
|
'7'
|
|
'9'
|
|
'11'
|
|
'13'
|
|
'15'
|
|
'17'
|
|
)
|
|
OnClick = ButtonCountRadioGroupClick
|
|
TabOrder = 2
|
|
end
|
|
object ControlsPerLineTIRadioGroup: TTIRadioGroup
|
|
Left = 290
|
|
Height = 55
|
|
Hint = 'The LineLength property sets the number of controls per column/row.'
|
|
Top = 130
|
|
Width = 421
|
|
Caption = 'LayoutGroupbox.ChildSizing.ControlsPerLine'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 6
|
|
Columns = 6
|
|
Link.AliasValuesStrings = (
|
|
'0=0'
|
|
'1=1'
|
|
'2=2'
|
|
'3=3'
|
|
'4=4'
|
|
'5=5'
|
|
)
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
end
|
|
object ChildSizingGroupBox: TGroupBox
|
|
Left = 20
|
|
Height = 201
|
|
Top = 253
|
|
Width = 260
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
Caption = 'LayoutGroupbox.ChildSizing'
|
|
ClientHeight = 183
|
|
ClientWidth = 256
|
|
TabOrder = 4
|
|
object ChildSizingTIPropertyGrid: TTIPropertyGrid
|
|
Left = 0
|
|
Height = 183
|
|
Top = 0
|
|
Width = 256
|
|
Align = alClient
|
|
DefaultValueFont.Color = clWindowText
|
|
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
|
|
Indent = 9
|
|
NameFont.Color = clWindowText
|
|
ValueFont.Color = clMaroon
|
|
end
|
|
end
|
|
end
|