anchor.diff:      property Col: longint read GetCol;
       property Row: longint read GetRow;
       property RowCount: longint read GetRowCount;
  +    property ColCount: longint read GetColCount;
     end;
   
     TPreparePopupMenuEvent = procedure(Sender: TObject; constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu) of object;
  
positive.code:     FCanPage: boolean;
      FCanSearch: boolean;
      FSelectionType: TSelectionType;
      procedure SetAllEditsAsReadOny(AReadOnly: boolean);
      function GetCanvas: TCanvas;
      function GetMultiSearch: boolean;
      function GetMultiSearchToggleBox: boolean;
      function GetSingleSearch: boolean;
      procedure SetFetchDataInThread(AValue: boolean);
      procedure SetMultiSearchToggleBox(AValue: boolean);
      procedure SetMultiSearch(AValue: boolean);
      procedure SetShowAllData(AValue: boolean);
      procedure SetAutoPageSize(AValue: boolean);
      procedure SetCanPage(AValue: boolean);
  
negative.code:     property SingleSearch: boolean read GetSingleSearch write SetSingleSearch default true;
      property Canvas: TCanvas read GetCanvas;
      property SelectionType: TSelectionType read FSelectionType write SetSelectionType;
      property Selection: TVisualGridSelection read GetSelection;
  
      property Cells[ACol, ARow: Integer]: Variant read GetCells write SetCells;
      property Rows[ARow: Integer]: Variant read GetRows write SetRows;
  
      property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
      property OnPreparePopupMenu: TPreparePopupMenuEvent read FOnPreparePopupMenu write FOnPreparePopupMenu;
  