From Clomosy Docs
No edit summary |
ClomosyAdmin (talk | contribs) No edit summary |
||
| (One intermediate revision by one other user not shown) | |||
| Line 59: | Line 59: | ||
<div class="alert alert-warning" role="alert" data-bs-theme="light"> | <div class="alert alert-warning" role="alert" data-bs-theme="light"> | ||
To learn the purpose and usage of the | To learn the purpose and usage of the <b>clProSettings</b> properties, please refer to [[Pro Object Properties| the page]]. | ||
</div> | </div> | ||
| Line 131: | Line 131: | ||
* [[Pro Object Properties]] | * [[Pro Object Properties]] | ||
* [[Object Properties]] | * [[Object Properties]] | ||
{{#seo:|description=Learn how to use the TClProSearchEdit component in Clomosy to add advanced search functionality, including barcode scanning, to TclProListView objects.}} | |||
Latest revision as of 10:58, 24 December 2024
function AddNewProSearchEdit(AComponent: TCLComponent; xName, xCaption: string): TClProSearchEdit;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined search edit should be written.
xCaption : You can enter the search edit title here.
Used only on the TclProListView object.
Search bar does not appear automatically in ProListView. It is a component created for this. This component also has the ability to search by scanning the barcode.
| Feature | Use of | Definition |
|---|---|---|
| TClProSearchEdit | ProSearchEdit1 : TClProSearchEdit; | A variable belonging to the TClProSearchEdit class is created. |
| AddNewProSearchEdit | ProSearchEdit1 = Form1.AddNewProSearchEdit(Form1,'ProSearchEdit1','Search Something ...'); | A new TClProSearchEdit is added to the form. 
|
| clBarcodeReader | ProSearchEdit1.clBarcodeReader = True; | Used to enable the barcode scanning feature on the button in the search bar. The default value is False.
|
| TargetListView | ProSearchEdit1.TargetListView = ProListView1; | The TargetListView property determines which TclProListView component the search component will operate on. |
In addition to the features of a standard search edit, TClProSearchEdit offers new and advanced features, which we will explain in detail below.
clProSettings Properties
To learn the purpose and usage of the clProSettings properties, please refer to the page.
Example
For clProSettings:
Var
MyForm:TclForm;
ListView1 : TClProListView;
searchEdt : TClProSearchEdit;
void SetSearchEdit;
{
searchEdt = MyForm.AddNewProSearchEdit(MyForm,'searchEdt','Search Something ...');
searchEdt.Align = alTop;
searchEdt.Height = 40;
searchEdt.Margins.Top = 15;
searchEdt.Margins.Left = 15;
searchEdt.Margins.Right = 15;
searchEdt.Margins.Bottom = 10;
searchEdt.clBarcodeReader = True;
searchEdt.clProSettings.BorderColor = clAlphaColor.clHexToColor('#d6cdcd');
searchEdt.clProSettings.FontColor = clAlphaColor.clDarkorchid;
searchEdt.clProSettings.FontSize = 12;
searchEdt.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
searchEdt.clProSettings.FontHorzAlign = palLeading;
searchEdt.clProSettings.TextSettings.Font.Style = [fsBold,fsItalic];
searchEdt.clProSettings.IsTransparent = False;
searchEdt.clProSettings.IsFill = True;
searchEdt.clProSettings.IsRound = True;
searchEdt.clProSettings.RoundHeight = 15;
searchEdt.clProSettings.RoundWidth = 15;
searchEdt.clProSettings.BorderWidth = 3;
searchEdt.SetclProSettings(searchEdt.clProSettings);
}
void CreateListView;
{
ListView1 = MyForm.AddNewProListView(MyForm,'ListView1');
ListView1.Align = AlClient;
ListView1.Margins.Bottom = 20;
ListView1.Margins.Top = 20;
ListView1.Margins.Right = 20;
ListView1.Margins.Left = 20;
ListView1.clProSettings.ViewType = lvIcon; //(lvList, lvIcon, lvWaterFall)
ListView1.clProSettings.ColCount = 2;
ListView1.clProSettings.ItemHeight = 150;
ListView1.clProSettings.ItemWidth = 150;
ListView1.clProSettings.ItemSpace = 10;
ListView1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#098614');
ListView1.clProSettings.BorderWidth = 2;
ListView1.clProSettings.RoundHeight = 5;
ListView1.clProSettings.RoundWidth = 5;
ListView1.SetclProSettings(ListView1.clProSettings);
ListView1.ListType = 'horizontal';
searchEdt.TargetListView = ListView1;
}
{
MyForm = TclForm.Create(Self);
SetSearchEdit;
CreateListView;
MyForm.Run;
}