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

…keyboard induced chnage events compared to mouse events. Fixes issue JAM-Software#808
ElminsterAU · Jan 17, 2019 · d1f8533 · d1f8533
1 parent 03d1bd4
commit d1f8533
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/Source/VirtualTrees.pas b/Source/VirtualTrees.pas
@@ -17082,7 +17082,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;
@@ -17108,9 +17108,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;