Раскрасить ячейку dbgrideh

[Ernest027]

Привет всем)
как это сделать?

procedure TForm1.DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if DataModule2.ADOQuery3.FieldByName('Техническое состояние').AsString='НОРМА' then
         begin
           DBGrideh2.Canvas.Brush.Color := clGreen;
           DBGrideh2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;
end;

так строка целиком окрашивается, а нужно только ячейку.
спасибо)

[Ernest027]

if Column.FieldName='Техническое состояние' then
if DataModule2.ADOQuery3.FieldByName('Техническое состояние').AsString='НОРМА' then
         begin
           DBGrideh2.Canvas.Brush.Color := clGreen;
           DBGrideh2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;

Сам разобрался) тема закрыта)))

[Ernest027]

Проблема возникла(

[dcc32 Error] Unit1.pas(135): E2010 Incompatible types: 'GridsEh.TGridDrawState' and 'Vcl.Grids.TGridDrawState'

[Stilet]

И на какой же строке ошибка?
Приведи полностью код события.

[Ernest027]

Это и есть весь код.
Выделяет и ругается на State.

[evg_m]

или
state: GridEh.TGridDrawState
или
state: vcl.grids.TGridDrawState

[Stilet]

Это и есть весь код.

Ты врешь )
Показывай весь код.

[Ernest027]

procedure TForm1.DBGridEh2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if Column.FieldName='Техническое состояние' then
if DataModule2.ADOQuery3.FieldByName('Техническое состояние').AsString='НОРМА' then
         begin
           DBGrideh2.Canvas.Brush.Color := clGreen;
           DBGrideh2.DefaultDrawColumnCell(Rect, DataCol, Column, State);
         end;
end;

Вот)

[Stilet]

Странно... Всегда знал что Эхлиб с гнильцой, но чтоб настолько...
Помести модуль GridsEh первым в uses - должно помочь.
И кстати ты как создал DBGridEh2DrawColumnCell? Даблкликом по событию в Инспекторе Объектов, или сам скопипастил откуда-то?

[Ernest027]

И кстати ты как создал DBGridEh2DrawColumnCell?

Даблкликом по событию в Инспекторе Объектов)))
Спасибо, попробую)))