anchor.diff:      property SelectionType: TSelectionType read FSelectionType write SetSelectionType;
   
       property OnDrawVisualCell: TDrawVisualCellEvent read FOnDrawVisualCell write FOnDrawVisualCell;
  +    property OnPreparePopupMenu: TPreparePopupMenuEvent read FOnPreparePopupMenu write FOnPreparePopupMenu;
     end;
   
     TVisualGrid = class(TCustomVisualGrid)
  
positive.code:     property SearchCapabilities : TSearchCapabilities read GetSearchCapabilities;
    end;
  
    TDrawVisualCellEvent = procedure(Sender: TObject; ACol, ARow: Longint;
      Canvas: TCanvas; Rect: TRect; State: TGridDrawState; const RowData: Variant; var Handled: boolean) of object;
  
  
negative.code: 
  uses
    Classes, SysUtils, StdCtrls, ExtCtrls, Controls, Grids, Types, Graphics,
    UCommon, Generics.Collections, Menus;
  
  
  
  