anchor.diff:  
   procedure TCustomVisualGrid.RefreshPageIndexAndGridInterface;
   var
  -  LCountOnPage2, LCount: Integer;
  -  LGridUnusedHeight: integer;
  +  LCountOnPage2: Integer;
  +  LGridUnusedHeight, LPotentialHeight: integer;
  +  LWasVisible: boolean;
  +
  +  function RecalcPageCount: boolean;
  +  var
  +    LCount: Integer;
  +  begin
  +    LCount := ClientRowCount;
  +    Result := LCount <> PageSize;
  +    if Result then
  +      PageSize := LCount;
  +  end;
  +
   begin
     SetPageIndexEditText(IntToStr(Succ(FPageIndex)));
     FPageCountLabel.Caption := Format('/%d',[FPageCount]);
  
positive.code: var
    LSortDirectionAllowNone: boolean;
    LAutoHidePaging: boolean;
  begin
    if FOptions=AValue then Exit;
    LSortDirectionAllowNone := vgoSortDirectionAllowNone in FOptions;
    LAutoHidePaging := vgoAutoHidePaging in FOptions;
  
    FOptions:=AValue;
    if vgoColSizing in FOptions then
  
negative.code: 
    { TVisualGridOptions }
  
    TVisualGridOptions = set of (vgoColAutoFill, vgoColSizing, vgoAutoHidePaging, vgoAutoHideSearchPanel, vgoMultiSearchCheckComboBox, vgoSortDirectionAllowNone);
  
    { TSortMode }
  
  