anchor.diff:      FLastSelection: TVisualGridSelection;
       FLastSelectionEvent: TVisualGridSelection;
       FIgnoreSelectionEvent: boolean;
  +    FIgnoreRecalcPageCount: boolean;
       FCellPadding : TRect;
       FWidgetControl: TControl;
       FWidgetControlParent: TWinControl;
  
positive.code:   var
      LCount: Integer;
    begin
      LCount := ClientRowCount;
      Result := LCount <> PageSize;
      if Result then
  
negative.code:   LPageSize:=StrToIntDef(FPageSizeEdit.Text, FPageSize);
    if not CheckRangeForPageSize(LPageSize) then
      SetPageSizeEditText(IntToStr(LPageSize));
  
    FIgnoreRecalcPageCount := true;
    PageSize:=LPageSize;
    FIgnoreRecalcPageCount := false;
  end;
  
  procedure TCustomVisualGrid.PageNavigationClick(Sender: TObject);
  