if only one node is selected, make sure the focused node changes with…

… the selected node # Conflicts: # Source/VirtualTrees.pas
ValtsS · Jan 24, 2019 · 31a94c5 · 31a94c5
1 parent 99a7071
commit 31a94c5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
@@ -19371,6 +19371,8 @@ procedure TBaseVirtualTree.AddToSelection(Node: PVirtualNode);
     Changed := InternalAddToSelection(FSingletonNodeArray, 1, False);
     if Changed then
     begin
+      if (SelectedCount = 1) then
+        FocusedNode := Node; // if only one node is selected, make sure the focused node changes with the selected node
       InvalidateNode(Node);
       Change(Node);
     end;