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

LCL/ShellTreeView: Speedup when opening a node with many subfolders a second time.

Browse Source 
git-svn-id: trunk@65455 -
This commit is contained in:
wp 2021-07-15 08:47:38 +00:00
parent ee25f78baf
commit f22bca8150
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/shellctrls.pas
View File

@ -617,9 +617,14 @@ begin
if not Result then exit;
OldAutoExpand:=AutoExpand;
AutoExpand:=False;
Node.DeleteChildren;
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node));
AutoExpand:=OldAutoExpand;
BeginUpdate;
try
Node.DeleteChildren;
Result := PopulateTreeNodeWithFiles(Node, GetPathFromNode(Node));
AutoExpand:=OldAutoExpand;
finally
EndUpdate;
end;
end;
constructor TCustomShellTreeView.Create(AOwner: TComponent);