From Clomosy Docs
No edit summary |
ClomosyAdmin (talk | contribs) No edit summary |
||
| (5 intermediate revisions by one other user 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"> | ||
Form1.clFindComponent(xObjectName : String): | Form1.clFindComponent(xObjectName : String): TCLComponent; | ||
</div> | </div> | ||
| Line 9: | Line 9: | ||
<b>Example</b><br> | <b>Example</b><br> | ||
In the example, we can determine which of the multiple buttons created using the clSender feature we clicked on and change the button text using the clFindComponent property.<br> | In the example, we can determine which of the multiple buttons created using the clSender feature we clicked on and change the button text using the clFindComponent property.<br> | ||
<pre> | <pre> | ||
Var | |||
MyForm:TclForm; | |||
mainPnl : TclProPanel; | |||
testBtn : TClProButton; | |||
i,j : Integer; | |||
Combo1 : TClComboBox; | |||
void ComboSelected; | |||
var | |||
strKey : String; | |||
{ | |||
strKey = Combo1.GetItemIndex(Combo1.ItemIndex); | |||
if Combo1.ItemIndex <> '0' | if (Combo1.ItemIndex <> '0') | ||
{ | |||
TClProButton(MyForm.clFindComponent(strKey)).Caption = strKey+'+'; | |||
TClProButton(MyForm.clFindComponent(strKey)).Enabled = false; | |||
} | |||
} | |||
{ | |||
MyForm =TclForm.Create(self); | |||
Combo1 = MyForm.AddNewComboBox(MyForm,'Combo1'); | |||
Combo1.Align = alMostTop; | |||
Combo1.Height = 20; | |||
Combo1.Margins.Top=10; | |||
Combo1.Margins.Left =MyForm.clWidth/9; | |||
Combo1.Margins.Right =MyForm.clWidth/9; | |||
Combo1.AddItem('Please select the button to be marked.','0'); | |||
for (j = 1 to 5) | |||
Combo1.AddItem('testBtn'+IntToStr(j),IntToStr(j)); | |||
MyForm.AddNewEvent(Combo1,tbeOnChange,'ComboSelected'); | |||
mainPnl=MyForm.AddNewProPanel(MyForm,'mainPnl'); | |||
mainPnl.Align = AlCenter; | |||
mainPnl.Width = 200; | |||
mainPnl.Height = 300; | |||
mainPnl.clProSettings.IsRound = True; | |||
mainPnl.clProSettings.RoundHeight = 10; | |||
mainPnl.clProSettings.RoundWidth = 10; | |||
mainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a32a8'); | |||
mainPnl.clProSettings.BorderWidth = 2; | |||
mainPnl.SetclProSettings(mainPnl.clProSettings); | |||
for (i = 0 to 4) | |||
{ | |||
testBtn = MyForm.AddNewProButton(mainPnl,'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'); | |||
} | |||
MyForm.Run; | |||
} | |||
</pre> | </pre> | ||
<b>Output:</b><br> | <b>Output:</b><br> | ||
[[File:ClFindComponentExampleV1.0.png|frameless| | [[File:ClFindComponentExampleV1.0.png|frameless|400px]]<br> | ||
<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:|description=Learn how clFindComponent locates subcomponents by name in Clomosy, enabling property modifications like changing button text.}} | |||
Latest revision as of 07:46, 24 December 2024
Form1.clFindComponent(xObjectName : String): TCLComponent;
To find another component under a component or form, clFindComponent is used. This method allows you to search for a specific named subcomponent. This allows making changes to the properties of the found component.
Within this feature, a string parameter is accepted, and this parameter is the name of the variable.
Example
In the example, we can determine which of the multiple buttons created using the clSender feature we clicked on and change the button text using the clFindComponent property.
Var
MyForm:TclForm;
mainPnl : TclProPanel;
testBtn : TClProButton;
i,j : Integer;
Combo1 : TClComboBox;
void ComboSelected;
var
strKey : String;
{
strKey = Combo1.GetItemIndex(Combo1.ItemIndex);
if (Combo1.ItemIndex <> '0')
{
TClProButton(MyForm.clFindComponent(strKey)).Caption = strKey+'+';
TClProButton(MyForm.clFindComponent(strKey)).Enabled = false;
}
}
{
MyForm =TclForm.Create(self);
Combo1 = MyForm.AddNewComboBox(MyForm,'Combo1');
Combo1.Align = alMostTop;
Combo1.Height = 20;
Combo1.Margins.Top=10;
Combo1.Margins.Left =MyForm.clWidth/9;
Combo1.Margins.Right =MyForm.clWidth/9;
Combo1.AddItem('Please select the button to be marked.','0');
for (j = 1 to 5)
Combo1.AddItem('testBtn'+IntToStr(j),IntToStr(j));
MyForm.AddNewEvent(Combo1,tbeOnChange,'ComboSelected');
mainPnl=MyForm.AddNewProPanel(MyForm,'mainPnl');
mainPnl.Align = AlCenter;
mainPnl.Width = 200;
mainPnl.Height = 300;
mainPnl.clProSettings.IsRound = True;
mainPnl.clProSettings.RoundHeight = 10;
mainPnl.clProSettings.RoundWidth = 10;
mainPnl.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3a32a8');
mainPnl.clProSettings.BorderWidth = 2;
mainPnl.SetclProSettings(mainPnl.clProSettings);
for (i = 0 to 4)
{
testBtn = MyForm.AddNewProButton(mainPnl,'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');
}
MyForm.Run;
}
Output:
