Unified the values with that the OnChnage event is called in case of keyboard induced chnage events compared to mouse events. Fixes issue #808

Author: joachimmarder

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;