anchor.diff:      procedure SetPageSize(Value: Integer);
       procedure SetSelectionType(AValue: TSelectionType);
       procedure SetWidgetControl(AValue: TControl);
  +    function CalculateCellContentRect(const ARect : TRect) : TRect;
     protected { TComponent }
       procedure Loaded; override;
     protected { TControl }
  
positive.code:     FIgnoreSelectionEvent: boolean;
      FDefaultStretchedColumn : Integer;
      FDefaultColumnWidths : TArray<Integer>;
      FWidgetControl: TControl;
      FWidgetControlParent: TWinControl;
      function GetCells(ACol, ARow: Integer): Variant;
  
negative.code:     property SearchMode : TSearchMode read FSearchMode write SetSearchMode;
  
      property Caption: TVisualGridCaption read FCaption write FCaption;
      property CellPadding : TRect read FCellPadding write FCellPadding;
      property ColCount: Integer read GetColCount;
      property Columns[Index: Integer]: TVisualColumn read GetColumns;
      property Cells[ACol, ARow: Integer]: Variant read GetCells write SetCells;
  