anchor.diff:    published
       property Align;
       property PageSize;
  +    property CanPage;
   
       property OnDrawVisualCell;
     end;
  
positive.code:     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 Canvas: TCanvas read GetCanvas;
  
      property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
  
negative.code:     end;
    end;
  
    {FClientPanel := TPanel.Create(Self);
    FClientPanel.Parent := Self;
    with FClientPanel do
    begin
      Align := alClient;
      BevelOuter := bvNone;
      Color:=clWhite;}
  
      FDrawGrid := TDrawGrid.Create(Self);
      FDrawGrid.Parent := Self;
      with FDrawGrid do
      begin
        Align := alClient;
        OnDrawCell := StandardDrawCell;
      end;
    //end;
  
    { default values for properties }
  
    PageSize := 100;
    PageIndex := -1;
    FCanPage := true;
  
    {$IFDEF VISUALGRID_DEBUG}
    with TButton.Create(Self) do
  