paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 23:39:08 +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

2
components/lazcontrols/treefilteredit.pas
View File

@ -195,7 +195,7 @@ 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;