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

LCL/ShellCtrls: Improve TShellTreeView.UpdateView when a folder has been created in an empty folder.

Browse Source
This commit is contained in:
wp_xyz 2024-01-30 17:49:57 +01:00
parent 8253bd9f8f
commit eb5db964c6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/shellctrls.pas
View File

@ -1352,6 +1352,7 @@ begin
Path := selectedPath;
// Setting the path expands the selected node --> apply the stored state.
Selected.Expanded := selectedWasExpanded;
Selected.HasChildren := NodeHasChildren(Selected);
// Avoid selected node to scroll away.
TopItem := Items.FindNodeWithTextPath(topNodePath);
end;