Unified the values with that the OnChnage event is called in case of …

…keyboard induced chnage events compared to mouse events. Fixes issue #808
JAM-Software · Dec 17, 2018 · 878c110 · 878c110
1 parent 95b083c
commit 878c110
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
@@ -16754,7 +16754,7 @@ procedure TBaseVirtualTree.WMKeyDown(var Message: TWMKeyDown);
                     exit;
                   if (not PerformMultiSelect or (CompareNodePositions(LastFocused, FRangeAnchor) > 0)) and
                     Assigned(FFocusedNode) then
-                    RemoveFromSelection(FFocusedNode);
+                    ClearSelection();
                   if FFocusedColumn <= NoColumn then
                     FFocusedColumn := FHeader.MainColumn;
                   FocusedNode := Node;
@@ -16780,9 +16780,8 @@ procedure TBaseVirtualTree.WMKeyDown(var Message: TWMKeyDown);
                 begin
                   if not EndEditNode then
                     exit;
-                  if (not PerformMultiSelect or (CompareNodePositions(LastFocused, FRangeAnchor) < 0)) and
-                    Assigned(FFocusedNode) then
-                    RemoveFromSelection(FFocusedNode);
+                  if (not PerformMultiSelect or (CompareNodePositions(LastFocused, FRangeAnchor) < 0)) and  Assigned(FFocusedNode) then
+                    ClearSelection();
                   if FFocusedColumn <= NoColumn then
                     FFocusedColumn := FHeader.MainColumn;
                   FocusedNode := Node;