Проблема, в dbgrideh строку раскащиваю цветом, а раскашенная строка теряет свои настройки.
Например:
1. Логические типы данных видны как False и True т.е. пропадает checkbox.
2. WordWrap тоже отключается, т.е. перенос по строку не происходит.

Пытался решить проблему програмно, но это событие происходит постоянно, потому и нет результата.

procedure TGlavnoe.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin

if strtoint(dbgrideh1.Fields[7].Text)<=5 then begin
with DBGrideh1.Canvas do
begin
Brush.Color:=$00BA9CFE;
Font.Color:=clWhite;
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
end;
column.WordWrap:=true; //вот

end;
end;

Решил, может кому надо будет


procedure TGlavnoe.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin

if strtoint(dbgrideh1.Fields[7].Text)<=5 then begin
with DbGridEh1.Canvas do begin
if ((not (gdFocused in State)) and (not (gdSelected in State))) then begin
Brush.Color:=$00D1BBFF;
Font.Color:=clWindowText;
DbGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
end;