paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 21:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: Call DoFilterItem instead of DoDefaultFilterItem in TTreeFilterBranch.SortAndFilter.

Browse Source 
git-svn-id: trunk@59226 -
This commit is contained in:
juha 2018-10-02 11:38:55 +00:00
parent d6624128a1
commit b8f77626f9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/treefilteredit.pas
View File

@ -195,10 +195,10 @@ begin
for Origi:=0 to fOriginalData.Count-1 do begin for Origi:=0 to fOriginalData.Count-1 do begin
s:=fOriginalData[Origi]; s:=fOriginalData[Origi];
if (fOwner.Filter='') or if (fOwner.Filter='') or
fOwner.DoDefaultFilterItem(s,nil) then begin fOwner.DoFilterItem(s, fOwner.Filter, nil) then begin
i:=fSortedData.Count-1; i:=fSortedData.Count-1;
while i>=0 do begin while i>=0 do begin
if CompareFNs(s,fSortedData[i])>=0 then break; if CompareFNs(s,fSortedData[i]) >= 0 then break;
dec(i); dec(i);
end; end;
fSortedData.InsertObject(i+1, s, fOriginalData.Objects[Origi]); fSortedData.InsertObject(i+1, s, fOriginalData.Objects[Origi]);