Закрашивание строк DbgridEh

[kannagi]

Видел много тем...но что то не так
procedure TGlavnayaForma.DBGridEhzapisDrawCol umnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
If Column.Field.Dataset.FieldbyName('F IO').AsString = 'a'
then
dbgridehzapis.Canvas.Brush.Color:=c lred;
end;
Что я делаю не так? Оно просто игнорируется
Embarcadero 2010

[Аватар]

Выдернул из своего кода закрашивание желтым фона помеченных записей или, если грид без фокуса - подсветка текущей колонки текущей записи. Параметром AFont можно регулировать фонт текста

procedure TFMDIChild.DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  if gdSelected in State then begin
    if not TDBGridEh(Sender).Focused then Background:=clBtnFace;
    Exit;
  end;
  if (TDBGridEh(Sender).DataSource.DataSet.FindField(sdFIELD_METKA)<>nil) and
     (TDBGridEh(Sender).DataSource.DataSet.FieldByName(sdFIELD_METKA).AsString=sdMETKA)
    then Background:=clYellow;
end;

[kannagi]

Отвечаю на свой вопрос, друг помог, происходит из за двух типов с разным именем,
#include "GridsEh.hpp"
#include "DBGridEh.hpp"
#include "Grids.hpp"
#include "DBGrid.hpp"
Или в делфи аналогично в Uses, удаляем стандартные гриды, и всё, опа работает))

[kannagi]

Пошёл прогресс дальше