From Clomosy Docs
No edit summary |
No edit summary |
||
| (6 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | <div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | ||
TCLComponent.ClTagInt :Integer; | |||
</div> | </div> | ||
| Line 6: | Line 6: | ||
<b>Example</b><br> | <b>Example</b><br> | ||
<pre> | <pre> | ||
Var | Var | ||
| Line 22: | Line 22: | ||
MyForm=TclForm.Create(self); | MyForm=TclForm.Create(self); | ||
testPanel=MyForm.AddNewProPanel(MyForm,'testPanel'); | 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) | for (i = 0 to 4) | ||
{ | { | ||
testBtn = MyForm.AddNewProButton(testPanel,'testBtn'+IntToStr(i+1),''); | |||
testBtn.Align = AlTop; | |||
testBtn.caption = 'testBtn'+IntToStr(i+1); | |||
MyForm.SetImage(testBtn,'https://clomosy.com/demos/foodInformationBox.png'); | 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; | MyForm.Run; | ||
} | } | ||
</pre> | </pre> | ||
<h2> See Also </h2> | <h2> See Also </h2> | ||
* [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]] | * [[System_Library#Cl_Utilities_Functions | Cl Utilities Functions]] | ||
*[[ClTagStr | ClTagStr]] | |||
{{#seo:|title=ClTagInt Using in Clomosy - Clomosy Docs}} | |||
{{#seo:|description=Use ClTagInt in Clomosy to store integer values for object identification or extra data.}} | |||
Latest revision as of 12:00, 17 October 2025
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;
}