anchor.diff:      FDeselectionType: TDeselectionType;
       FCurrentSelectionType: TSelectionType;
       FLastSelection: TVisualGridSelection;
  +    FLastSelectionEvent: TVisualGridSelection;
       FIgnoreSelectionEvent: boolean;
       FCellPadding : TRect;
       FWidgetControl: TControl;
  
positive.code: end;
  
  procedure TCustomVisualGrid.AfterFetchPage;
  begin
    with FLastFetchDataResult do
    if Assigned(FDataSource) then
  
negative.code:   if FSelectionType=AValue then
      Exit;
    FSelectionType:=AValue;
    // reset internal selection variable for stNone (and call event)
    if FSelectionType = stNone then
      ResetSelection(FLastSelection);
    UpdateSelection(FSelectionType, true);
    GridSelection(Self, 0, 0)
  end;
  
  procedure TCustomVisualGrid.SetDeselectionType(AValue: TDeselectionType);
  