Изменение цвета ячейки DBGridEh

[Dandy777]

Не могу понять в чем ошибка:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
  if DataModule1.TableOperationsKEY.AsInteger = 2 then
    if Column.FieldName = 'DateTo' then
      if Column.Field.Dataset.FieldByName('DateTo').AsString > DateToStr(Now)
      then
      begin
        DBGrid1.Canvas.Font.Color := clGreen;
      end
      else
      begin
        DBGrid1.Canvas.Font.Color := Clred;
      end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

DBGrid1 это компонент DBGridEh

Такой код выдает ошибку в DBGridEh хотя в DBGrid отрабатывает нормально. Но мне необходимо использовать именно DBGridEh. Подскажите пожалуйста где я ошибся.

[DCC Error] TEST_EXE.pas(873): E2010 Incompatible types: 'DBGridEh.TGridDrawState' and 'TEST_EXE.TGridDrawState'

[Dandy777]

Почитав немного в интернете я думаю что с DBGridEh я пошел немного не по тому пути, и надо было использовать OnGetCellParams? Тогда какой должен быть код?

[Dandy777]

Перенес код в OnGetCellParams и все красиво работает. Всем спасибо.