From Clomosy Docs
AddNewProSearchEdit(TComponent, xName, xCaption):TClProSearchEdit;
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. Now let's see how it goes either way. Let's start with the definition.
searchEdt1 : TClProSearchEdit;
Let's add ProSearchEdit in form.
searchEdt1 = Form1.AddNewProSearchEdit(Form1,'searchEdt1','Search Something ...'); searchEdt1.Align = alTop; searchEdt1.Margins.Top = 15; searchEdt1.Margins.Left = 15; searchEdt1.Margins.Right = 15; searchEdt1.Margins.Bottom = 10; searchEdt1.Height = 40;
The following screenshot is displayed with the above code.
Output:
Now, if we want to search by scanning the barcode in the search bar, we must write the following code in our searchEdt variable, then the barcode scanning button will appear on the screen.
searchEdt1.clBarcodeReader = True;
The TargetListView property determines which TclProListView component the search component will operate on.
searchEdt.TargetListView = ListView1;
Output:
Example:
- TRObject Syntax
Var
MyForm:TclForm;
ListView1 : TClProListView;
searchEdt : TClProSearchEdit;
void SetSearchEdit;
{
searchEdt = MyForm.AddNewProSearchEdit(MyForm,'searchEdt','Search Something ...');
searchEdt.Align = alTop;
searchEdt.Margins.Top = 15;
searchEdt.Margins.Left = 15;
searchEdt.Margins.Right = 15;
searchEdt.Margins.Bottom = 10;
searchEdt.Height = 40;
searchEdt.clBarcodeReader = True;
}
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;
}
- Base Syntax
Var
MyForm:TclForm;
ListView1 : TClProListView;
searchEdt : TClProSearchEdit;
procedure SetSearchEdit;
begin
searchEdt := MyForm.AddNewProSearchEdit(MyForm,'searchEdt','Search Something ...');
searchEdt.Align := alTop;
searchEdt.Margins.Top := 15;
searchEdt.Margins.Left := 15;
searchEdt.Margins.Right := 15;
searchEdt.Margins.Bottom := 10;
searchEdt.Height := 40;
searchEdt.clBarcodeReader := True;
end;
procedure CreateListView;
begin
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;
end;
begin
MyForm := TclForm.Create(Self);
SetSearchEdit;
CreateListView;
MyForm.Run;
end;