From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 7: | Line 7: | ||
<span style="color:blue"><b>xName</b></span> : The name of the defined search edit should be written.<br> | <span style="color:blue"><b>xName</b></span> : The name of the defined search edit should be written.<br> | ||
<span style="color:blue"><b>xCaption</b></span> : You can enter the | <span style="color:blue"><b>xCaption</b></span> : You can enter the edit title here.<br> | ||
<div class="alert alert-danger" role="alert" data-bs-theme="light"> | <div class="alert alert-danger" role="alert" data-bs-theme="light"> | ||
Revision as of 13:59, 12 November 2024
function AddNewProSearchEdit(AComponent: TCLComponent; xName, xCaption: string): TClProSearchEdit;
AComponent : The variable name of the defined component is written. Here you should write the component variable name of whatever your component will be in.
xName : The name of the defined search edit should be written.
xCaption : You can enter the 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 SetupComponent and 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;
}