anchor.diff:  
   uses
     Classes, SysUtils, StdCtrls, ExtCtrls, Controls, Grids, Types, Graphics,
  -  UCommon, Generics.Collections;
  +  UCommon, Generics.Collections, Menus;
   
   
   
  
positive.code:     DoDrawCell(Self, ACol, ARow, Rect, State, LCellData);
  end;
  
  end.
  
  
negative.code:     property SearchCapabilities : TSearchCapabilities read GetSearchCapabilities;
    end;
  
    { TVisualGridSelection }
  
    TVisualGridSelection = record
    private
      function GetCol: longint;
      function GetRow: longint;
      function GetRowCount: longint;
    public
      Selections: array of TRect;
      property Col: longint read GetCol;
      property Row: longint read GetRow;
      property RowCount: longint read GetRowCount;
    end;
  
    TPreparePopupMenuEvent = procedure(Sender: TObject; constref ASelection: TVisualGridSelection; out APopupMenu: TPopupMenu) of object;
    TDrawVisualCellEvent = procedure(Sender: TObject; ACol, ARow: Longint;
      Canvas: TCanvas; Rect: TRect; State: TGridDrawState; const RowData: Variant; var Handled: boolean) of object;
  
  