anchor.diff:      FPageIndex: Integer;
       FPageCount: Integer;
       FDefaultDrawGridOptions: TGridOptions;
  +    FTotalDataCount: Integer;
   
       FOnDrawVisualCell: TDrawVisualCellEvent;
   
       procedure RefreshGrid;
       procedure ReloadColumns;
  +    procedure LayoutChanged;
       function ClientRowCount: Integer;
  +    procedure HidePageSizeControls(AVisible: boolean);
  +    procedure HidePageNavigationControls(AVisible: boolean);
       // return true if range is correct
       function CheckRangeForPageSize(var APageSize: Integer): boolean;
       procedure SetDataSource(ADataSource: IDataSource);
  
positive.code: 
      FPageCount:=LResult.PageCount;
  
      FAllRecordsCountLabel.Visible := LResult.TotalDataCount >= 0;
      FAllRecordsCountLabel.Caption:=Format('Total: %d', [LResult.TotalDataCount]);
  
      FPageIndex := LResult.PageIndex;
  
  
negative.code: procedure TCustomVisualGrid.ReloadColumns;
  begin
    FDrawGrid.ColCount := Length(FDataTable.Columns);
  end;
  
  procedure TCustomVisualGrid.LayoutChanged;
  begin
    // layout has changed, maybe more space is available
    if AutoPageSize then
      PageSize := ClientRowCount;
  end;
  
  function TCustomVisualGrid.ClientRowCount: Integer;
  