anchor.diff:    if (ARow > 0) and Assigned(FDataSource) then
       LCellData := ActiveDataTable^.Rows[ARow-1]._(ACol);
   
  +  Rect := CalculateCellContentRect(Rect);
  +
     if Assigned(FOnDrawVisualCell) then
       FOnDrawVisualCell(Self, ACol, ARow, Canvas, Rect, State, LCellData, LHandled);
     if not LHandled then
  
positive.code:   end;
  
    { default values for properties }
    DefaultStretchedColumn := -1;
    FSearchMode := smSingle;
    PageSize := 100;
  
negative.code:     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 }
  