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

LCL/ShellCtrls: Avoid unnecessary updates of the ListView by TShellTreeView.UpdateView.

Browse Source
This commit is contained in:
wp_xyz 2023-11-13 19:51:08 +01:00
parent 2edaae58fb
commit cd92f94f6b
1 changed files with 4 additions and 2 deletions

6
lcl/shellctrls.pas
View File

@ -1315,8 +1315,10 @@ begin
TopItem := Items.FindNodeWithTextPath(topNodePath); TopItem := Items.FindNodeWithTextPath(topNodePath);
end; end;
// Force synchronization of associated ShellListView // Force synchronization of associated ShellListView, but only if the
if Assigned(FShellListView) then // refresh affects the selected tree node.
if Assigned(FShellListView) and
not ((AStartDir <> '') and (pos(AStartDir, FShellListView.FRoot) = 0)) then
begin begin
inc(FUpdateLock); inc(FUpdateLock);
try try