anchor.diff:      property DataSource: IDataSource read FDataSource write SetDataSource;
       property PageSize: Integer read FPageSize write SetPageSize default 100;
       property PageIndex: Integer read FPageIndex write SetPageIndex default -1;
  +    property CanPage: boolean read FCanPage write SetCanPage default true;
       property Canvas: TCanvas read GetCanvas;
   
       property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
  
positive.code:   Result := FDrawGrid.Canvas;
  end;
  
  procedure TCustomVisualGrid.RefreshGrid;
  begin
  
  
negative.code:     Height := 40;
  
      FBottomRightPanel := TPanel.Create(Self);
      FBottomRightPanel.Parent := FBottomPanel;
      with FBottomRightPanel do
      begin
  