Причина, по которой мои промежуточные классы не компилируются?

Question

Я имею:

unit unt_QuantumGridInterceptor;

{$OPTIMIZATION OFF}

interface

uses
  { DevExpress }
  cxGridRows,
  cxGridTableView,
  cxGridCustomTableView,
  cxCustomData,
  cxGraphics;

type
  TcxGridDataCellViewInfo = class(cxGridRows.TcxGridDataCellViewInfo)
  protected
    procedure InitTextSelection; override;
  end;

  TcxGridDataRowViewInfo = class(cxGridRows.TcxGridDataRowViewInfo)
  protected
    function GetCellViewInfoClass(AIndex: Integer): TcxGridDataCellViewInfoClass;    override;
  end;

  TcxGridDataRow = class(cxGridTableView.TcxGridDataRow)
  protected
    function GetViewInfoClass: TcxCustomGridRecordViewInfoClass; override;
  end;

  TcxGridViewData = class(cxGridTableView.TcxGridViewData)
  protected
    function GetRecordClass(ARecordInfo: TcxRowInfo): TcxCustomGridRecordClass;   override;
  end;

implementation

....

end.

Я использую это как

unt frm_MainForm;

uses
  ...
  cxGridRows,
  cxGridTableView,
  cxGridCustomTableView,
  cxCustomData,
  cxGraphics
  cxClasses,
  cxData,
  cxGridRows,
  // Really the last unit
  unt_QuantumGridInterceptor;

type
  TcxGridDataCellViewInfo = class(unt_QuantumGridInterceptor.TcxGridDataCellViewInfo);
  TcxGridDataRowViewInfo = class(unt_QuantumGridInterceptor.TcxGridDataRowViewInfo);
  TcxGridDataRow = class(unt_QuantumGridInterceptor.TcxGridDataRow);
  TcxGridViewData = class(unt_QuantumGridInterceptor.TcxGridViewData);

  TfrmMainForm = class sealed(TForm)
  ...

но все же переопределенные методы классов вставки не вызываются, и их тормозные точки остаются в "темно-зеленом" неактивном цвете вместо "бледно-голубого" активного.

Чего мне не хватает?

Answer 1

Я пропустил:

TcxGridBandedTableView = class(cxGridBandedTableView.TcxGridBandedTableView)
protected
  function GetViewDataClass: cxGridCustomView.TcxCustomGridViewDataClass; override;
end;