paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 02:19:39 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/shellctrls.pas
View File

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