paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 05:37:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: TAvgLvlTree: when changing compare function, do not sort if there is only one node

Browse Source 
git-svn-id: trunk@44659 -
This commit is contained in:
mattias 2014-04-09 14:01:40 +00:00
parent 499c7ed593
commit fdc368ab6b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/avglvltree.pas
View File

@ -1592,7 +1592,7 @@ var List: PPointer;
i, OldCount: integer; i, OldCount: integer;
begin begin
if (FOnCompare=NewCompare) and (FOnObjectCompare=NewObjectCompare) then exit; if (FOnCompare=NewCompare) and (FOnObjectCompare=NewObjectCompare) then exit;
if Count<1 then begin if Count<=1 then begin
FOnCompare:=NewCompare; FOnCompare:=NewCompare;
FOnObjectCompare:=NewObjectCompare; FOnObjectCompare:=NewObjectCompare;
exit; exit;