anchor.diff:  begin
     LHandled := False;
     if ColCount = 0 then Exit;
  +  LDataTable := ActiveDataTable;
  +  if (ARow > 0) and (ARow > Length(LDataTable^.Rows)) then
  +    Exit;
     if ARow = 0 then ResizeSearchEdit(ACol);
     LColumn := FColumns[ACol];
     Rect := CalculateCellContentRect(Rect);
  
positive.code:     if LColumn.HasDataFontStyles then Canvas.Font.Style := LColumn.DataFontStyles;
  
      // Get row/cell data
      LRow := ActiveDataTable^.Rows[ARow-1];
      LCellData := TDataRowData(LRow)[LColumn.DisplayBinding];
  
      // Clean data if necessary
  
negative.code:     Width := 300;
      Height := 150;
      //Align:=alClient;
      Color:=clWindow;
      Visible:=false;
      AnchorSideLeft.Control := Self;
      AnchorSideLeft.Side := asrCenter;
  