From Clomosy Docs
ClomosyAdmin (talk | contribs) No edit summary |
ClomosyAdmin (talk | contribs) No edit summary |
||
| Line 53: | Line 53: | ||
<h2> See Also </h2> | <h2> See Also </h2> | ||
* [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]] | * [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]] | ||
{{#seo:|title=ClTagInt Using in Clomosy - Clomosy Docs}} | |||
{{#seo:|description=Use ClTagInt in Clomosy to store integer values for object identification or extra data.}} | {{#seo:|description=Use ClTagInt in Clomosy to store integer values for object identification or extra data.}} | ||
Revision as of 14:59, 24 December 2024
TCLComponent.ClTagInt :Integer;
The ClTagInt property is used to store an integer value for any object. It is typically used to carry additional information or identification details specific to the object.
Example
Var
MyForm:TclForm;
testPanel : TclProPanel;
testBtn : TClProButton;
i : Integer;
void BtnOnClick;
{
ShowMessage(TClProButton(Myform.Clsender).clTagInt);
}
{
MyForm=TclForm.Create(self);
testPanel=MyForm.AddNewProPanel(MyForm,'testPanel');
testPanel.Align = AlCenter;
testPanel.Width = 200;
testPanel.Height = 300;
testPanel.clProSettings.IsRound = True;
testPanel.clProSettings.RoundHeight = 10;
testPanel.clProSettings.RoundWidth = 10;
testPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a32a8');
testPanel.clProSettings.BorderWidth = 2;
testPanel.SetclProSettings(testPanel.clProSettings);
for (i = 0 to 4)
{
testBtn = MyForm.AddNewProButton(testPanel,'testBtn'+IntToStr(i+1),'');
testBtn.Align = AlTop;
testBtn.caption = 'testBtn'+IntToStr(i+1);
testBtn.Margins.Right = 5;
testBtn.Margins.Left = 5;
testBtn.Margins.Top = 5;
testBtn.Height = 50;
MyForm.SetImage(testBtn,'https://clomosy.com/demos/foodInformationBox.png');
testBtn.clTagInt = i+1;
MyForm.AddNewEvent(testBtn,tbeOnClick,'BtnOnClick');
}
MyForm.Run;
}