Закрасить строки DBGrideh

[Aleksandr]

Есть DBGrideh со столбцом color в котором находится любой текст с днями недели. Если день недели ячейки color совпадает с текущим днем недели то окрасить строку в желтый цвет.
вот мой код

 if TDBGrideh(Sender).DataSource.DataSet.FieldByName('color').AsString =FormatDateTime('DDDD', Now) then
  begin
    TDBGrideh(Sender).Canvas.Font.Color:=clBlue;
    TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
    TDBGrideh(Sender).Canvas.Font.Style:=[fsBold];
    TDBGrideh(Sender).Canvas.Brush.Color:=clYellow;
    TDBGrideh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;

Но он работает если в ячейке текст формата Например: понедельник,
а мне нужно если понедельник, среда. Т.е Какой-то текст и день недели.
Как это сделать без query

 with Adoquery2 do begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT* FROM refbook');
       SQL.Add('WHERE NAME LIKE'+quotedstr('%'+FormatDateTime('DDDD', Now)+'%'));
       Open;
end;

[Serge_Bliznykov]

если я не ошибаюсь и правильно понял то, что Вам надо,
то:
в DBGridEh есть событие OnGetCellParams
на него вешаете примерно такой код:

procedure TForm1.MyGrid1GetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
 if  AdoQuery1.FieldByName('s_nominal_voltage_id').AsFloat = rVoltage35_ID then
   AFont.Color := clGreen
 else
     AFont.Color := clBlue;
end;

[Аватар]

Добавлю свои три копейки.
1. if (ActiveControl=Sender) and (gdSelected in State) - то это текущая ячейка грида с фокусом ввода, у неё цветовая схема отличается от других ячеек, это желательно учитывать при перекраске.
2. Если свойства AFont-а и Background в обработчике не менять, то используются умолчания грида.