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

LazControls: FilterEdit, keep track of owner sorted-flag to avoid unnecessary re-sorting. Issue: #41282

Browse Source
This commit is contained in:
Martin 2024-12-17 11:26:27 +01:00
parent b1d3af8d21
commit 43fa8cf71a
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/lazcontrols/treefilteredit.pas
View File

@ -89,6 +89,7 @@ type
private
fOwner: TTreeFilterEdit;
fRootNode: TTreeNode;
fDataFlags: set of (fbDataSorted, fbDataShowDirHierarchy);
fOriginalData: TTreeFilterBranchStringList; // Data supplied by caller.
fSortedData: TTreeFilterBranchStringList; // Data sorted for viewing.
fFilteredData: TTreeFilterBranchStringList; // Data sorted and filtered for viewing. (only if filter is set)
@ -244,11 +245,14 @@ procedure TTreeFilterBranch.SortAndFilter;
var
i: Integer;
o: TTreeFilterBranchStringListItem;
NewFlags: set of low(fDataFlags)..high(fDataFlags);
begin
fFilteredData.Clear;
NewFlags := [];
if fOwner.SortData then Include(NewFlags, fbDataSorted);
if fOwner.fShowDirHierarchy then Include(NewFlags, fbDataShowDirHierarchy);
// TODO: keep track of changes to FOwner>SortData / Filter => optimize if they have not changed
//if fOriginalData.Modified then begin
if fOriginalData.Modified or (fDataFlags <> NewFlags) then begin
fSortedData.Assign(fOriginalData);
if fOwner.SortData then begin
for i := 0 to fSortedData.Count - 1 do
@ -262,8 +266,9 @@ begin
MergeSortWithLen(PPointer(fSortedData.FList.List^), fSortedData.Count, @DoCompFN);
end;
fOriginalData.Modified := False; // fSortedData is up to date
//end;
end;
fDisplayedData:=fSortedData;
fDataFlags := NewFlags;
if (fOwner.Filter<>'') then begin
fFilteredData.Capacity := fSortedData.Count div 2;