Delphi 7 - StringGrid - изменить цвет шрифта при выполнении условия

[Ягодка]

Добрый вечер, уважаемые программисты!
В StringGrid выводятся результаты работы программы:
5.png
Как сделать так, чтобы "надёжные" поставщики выделялись зелёным цветом (вся строка-и название, и результат....), а "ненадёжные" - красным (соответственно, тоже вся строка)?
Пробовала по событию OnDrawCell написать условие: если ='надёжный', то font.color:=clGreen, но ничего не происходит, шрифт всё равно остаётся чёрный

[ReportCube]

Где пример обработчика OnDrawCell?

[Mad_Cat]

http://delphiworld.narod.ru/base/col...in_dbgrid.html

[Ягодка]

Сообщение от ReportCube

Где пример обработчика OnDrawCell?

procedure TForm1.StringGrid8DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (StringGrid8.Cells[ACol,2] = 'Ненадёжный') then
StringGrid8.Canvas.Brush.Color := clRed Else
StringGrid8.Canvas.Brush.Color := clGreen;

StringGrid8.Canvas.FillRect(Rect);
StringGrid8.Canvas.Font.Color:=clWh ite;
StringGrid8.Canvas.TextOut(Rect.Lef t, Rect.Top, StringGrid8.Cells[ACol, ARow]);
end;
Результат:
7.png

[ReportCube]

Иначе говоря: если в любой колонке во второй строке 'Ненадёжный', то...

[Ягодка]

if (StringGrid8.Cells[2, aRow] = 'Ненадёжный') then

Результат:
9.png
А как сделать, чтобы ячейки были белыми, рамки-черными, и ТОЛЬКО ТЕКСТ был цветным?

[ReportCube]

StringGrid8.Canvas.Font.Color :=

[Ягодка]

procedure TForm1.StringGrid8DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
If (ACol=0) Or (ARow=0) Then Exit;
  if (StringGrid8.Cells[2,ARow] = 'Ненадёжный') then
  StringGrid8.Canvas.Font.Color := clRed Else
  StringGrid8.Canvas.Font.Color := clGreen;
  StringGrid8.Canvas.FillRect(Rect);
  StringGrid8.Canvas.TextOut(Rect.Left, Rect.Top, StringGrid8.Cells[ACol, ARow]);
end;

77.png
Ребятки, всем огромное спасибо за помощь! =*
И с наступающим праздником! Побед вам во всём!