1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
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
|
