Не срабатывает выделение строки в DBGridEh

[artemavd]

Добрый день!
Разместил такой код в событии:

procedure TMainForm.DBGridEh_PlacesDrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
var
  holdColor: TColor;
begin
 holdColor := MainForm.DBGridEh_Places.Canvas.Brush.Color; 
 if Pos('С',Field.Dataset.FieldbyName('PLACE_STATUS').AsString) > 0 then
 begin
  MainForm.DBGridEh_Places.Canvas.Brush.Color := clLime;
  MainForm.DBGridEh_Places.Canvas.Font.Color:=clBlack;
  MainForm.DBGridEh_Places.Canvas.FillRect(rect);
  MainForm.DBGridEh_Places.Canvas.TextOut(Rect.Left,Rect.Top,Field.AsString);
  MainForm.DBGridEh_Places.Canvas.Brush.Color := holdColor;
 end;
end;

но строки не выделяются зеленым. Просто не срабатывает код. Прошу помочь и дать рекомендации, что посмотреть, настроить, дописать.

[Прик]

В OnGetCellParams можно устанавливать цвет шрифта и ячеек не применяя Canvas грида.
Параметры процедуры события: AFont: TFont; var Background: TColor;

P.S. А вместо OnDrawDataCell надо использовать OnDrawColumnCell.
И в восстановление цвета в приведенной процедуре нет никакой необходимости.

[6ruse_as]

вообще эхлибовский грид уступает только гриду от девэкспресса, но и в целом он очень крут, не хватает только возможности грузить данные из датасета не все сразу. Вот тут http://koder.kz/articles/ehlib-znako...tdbgrideh.html полное описание этого компонента, и всех его свойств и методов.