anchor.diff:    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);
  
positive.code:           LCountOnPage2 := FTotalDataCount - ClientRowCount;
            LGridUnusedHeight := FDrawGrid.ClientHeight - FDrawGrid.GridHeight;
            LPotentialHeight := FBottomPanel.Height + LGridUnusedHeight;
            // vgoAutoHideSearchPanel + AutoPageSize + vgoAutoHidePaging is killer combo :P
            if (vgoAutoHideSearchPanel in FOptions) and FTopPanel.Visible and not Assigned(FWidgetControl)
             and not LHasFilter then
              LPotentialHeight := LPotentialHeight + FTopPanel.Height;
            if FBottomPanel.Visible
             and (FDrawGrid.DefaultRowHeight * LCountOnPage2 <= LPotentialHeight) then
            begin
  
negative.code:     LWasVisible := FTopPanel.Visible;
      FTopPanel.Visible := FCanSearch;
      FTopPanelRight.Visible := true;
      FTopPanelMultiSearch.Visible := smMulti = FSearchMode;
      if (FTopPanel.Visible <> LWasVisible) and RecalcPageCount then
        Exit;
    end;
  