From Clomosy Docs
function AddNewProLabel(AComponent: TCLComponent; xName, xCaption: string): TClProLabel;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined label should be written.
xCaption : You can enter the label title here.
It creates a text label used to provide explanations or information in the user interface. TclProLabel is preferred for labeling other components on the form or providing information to the user.
Refer to the TclLabel page for standard label usage.
| Feature | Use of | Definition |
|---|---|---|
| TclProLabel | ProLabel1 : TclLabel; | A variable belonging to the TclProLabel class is created. |
| AddNewProLabel | ProLabel1 = Form1.AddNewProLabel(Form1,'ProLabel1','Test ProLabel Caption'); | A new TclProLabel is added to the form. |
In addition to the features of a standard label, TclProLabel offers new and advanced features, which we will explain in detail below.
clProSettings Properties
SetupComponent Properties
To learn the purpose and usage of the SetupComponent and clProSettings properties, please refer to the page.
Example
For clProSettings:
Var
Form1:TclForm;
Label1: TClProLabel;
void setLabel;
{
Label1 = Form1.AddNewProLabel(Form1,'Label1','Clomosy PROLABEL');
Label1.Align = alCenter;
Label1.Width = 150;
Label1.Height = 30;
Label1.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
Label1.clProSettings.FontSize = 12;
Label1.clProSettings.FontVertAlign = palcenter;
Label1.clProSettings.FontHorzAlign = palLeading;
Label1.clProSettings.TextSettings.Font.Style = [fsBold];
Label1.clProSettings.IsFill = True;
Label1.clProSettings.IsRound = True;
Label1.SetclProSettings(Label1.clProSettings);
}
{
Form1 = TclForm.Create(Self);
setLabel;
Form1.Run;
}
For SetupComponent:
Var
Form1:TclForm;
Label1: TClProLabel;
void setLabel;
{
Label1 = Form1.AddNewProLabel(Form1,'Label1','Clomosy PROLABEL');
clComponent.SetupComponent(Label1,'{
"Align" : "Center",
"Width":150,
"Height":30,
"TextColor":"#f5428d",
"TextSize":12,
"TextBold":"yes",
"TextVerticalAlign":"center",
"TextHorizontalAlign":"bottom"
}');
}
{
Form1 = TclForm.Create(Self);
setLabel;
Form1.Run;
}