From Clomosy Docs
function AddNewLayout(AComponent: TCLComponent; xName: string): TclLayout;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined layout should be written.
It is used to arrange other components on the form. Simply put, it is used to organize buttons, labels, and other visual elements in a specific layout on a form. This layout automatically adjusts the size and position of the components, making the form appear more organized and aesthetically pleasing. TclLayout is particularly useful when creating dynamic user interfaces and adapting to different screen sizes.
The features and usage are provided in the table below.
| Feature | Use of | Definition |
|---|---|---|
| TclLayout | Layout1 : TclLayout; | A variable belonging to the TclLayout class is created. |
| AddNewLayout | Layout1 = Form1.AddNewLayout(Form1,'Layout1'); | A new TclLayout is added to the form. |
| AutoResize | Layout1.AutoResize = clVertical; | Enables automatic resizing of a component based on its content. This feature allows resizing horizontally (clHorizontal) or vertically (clVertical) and can be adjusted as needed. |
| Width | Layout1.Width = 150; | Allows adjusting the width of the layout. |
| Height | Layout1.Height = 50; | Allows adjusting the height of the layout. |
| Align | Layout1.Align = alTop; | With the Align parameter, you can specify where you want our component to be aligned in the form. This parameter has multiple positioning properties. See the page to learn about these features. |
| Margins | Layout1.Margins.Left = 50; // Right, Top, Bottom | With the Margins parameter, you can give margins at any scale from the right, left, bottom, top. |
Example
Var
MyForm:TclForm;
Panel1 : TclPanel;
Layout1 : TclLayout;
Edit1 : TclEdit;
{
MyForm=TclForm.Create(self);
Panel1=MyForm.AddNewPanel(MyForm,'Panel1');
Panel1.Align=ALTop;
Panel1.Height=100;
Layout1 = MyForm.AddNewLayout(Panel1,'Layout1');
Layout1.Align=ALCenter;
Layout1.Height = 50;
Edit1 = MyForm.AddNewEdit(Layout1,'Edit1','Write something...');
Edit1.Align=aLLeft;
Edit1.Width = 150;
MyForm.Run;
}
Output:
