anchor.diff:    Result := FDrawGrid.Canvas;
   end;
   
  +procedure TCustomVisualGrid.SetShowAllData(AValue: boolean);
  +begin
  +  if FShowAllData=AValue then
  +    Exit;
  +
  +  FShowAllData:=AValue;
  +  if FShowAllData then
  +    AutoPageSize:=false;
  +
  +  HidePageSizeControls(not AValue);
  +  HidePageNavigationControls(not AValue);
  +  PageSize:=FTotalDataCount;
  +end;
  +
   procedure TCustomVisualGrid.SetAutoPageSize(AValue: boolean);
   
   begin
  
positive.code: 
      FPageCount:=LResult.PageCount;
  
      FAllRecordsCountLabel.Visible := LResult.TotalDataCount >= 0;
      FAllRecordsCountLabel.Caption:=Format('Total: %d', [LResult.TotalDataCount]);
  
      FPageIndex := LResult.PageIndex;
  
  
negative.code:   PageIndex := -1;
    FCanPage := true;
    FCanSearch := true;
    FTotalDataCount := -1;
  
    {$IFDEF VISUALGRID_DEBUG}
    with TButton.Create(Self) do
  