paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 15:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: an option in ListViewFilterEdit to filter by all fields or just by caption.

Browse Source 
git-svn-id: trunk@47186 -
This commit is contained in:
juha 2014-12-12 23:08:43 +00:00
parent 9c2b7067ce
commit 82b190d7a9
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazcontrols/listviewfilteredit.pas
View File

@ -30,9 +30,13 @@ type
TListViewFilterEdit = class(TCustomControlFilterEdit)
private
fFilteredListview: TCustomListView; // A control showing the (filtered) data.
fSelectionList: TStringList; // Store/restore the old selections here.
// Data supplied by caller through Data property.
// A control showing the (filtered) data.
fFilteredListview: TCustomListView;
// All fields / Just the first field, caption.
fByAllFields: Boolean;
// Store/restore the old selections here.
fSelectionList: TStringList;
// Data supplied by caller through Items property.
fOriginalData: TListViewDataList;
// Data sorted for viewing.
fFilteredData: TListViewDataList;
@ -55,6 +59,7 @@ type
property Items: TListViewDataList read fOriginalData;
published
property FilteredListview: TCustomListView read fFilteredListview write SetFilteredListview;
property ByAllFields: Boolean read fByAllFields write fByAllFields;
end;
var
@ -124,11 +129,15 @@ end;
function TListViewFilterEdit.MatchesFilter(aData: TStringArray): Boolean;
var
i: Integer;
i, EndInd: Integer;
begin
if Filter='' then
Exit(True);
for i := 0 to Pred(Length(aData)) do begin
if fByAllFields then
EndInd := Pred(Length(aData))
else
EndInd := 0;
for i := 0 to EndInd do begin
Result := Pos(Filter,UTF8LowerCase(aData[i]))>0;
if Result then
Exit;