не могу раскрасить строки cxGrid

← →
cxGrid (2009-11-17 13:54) [0]

Всем салют!
Нужно раскрасить строки в гриде, если выполняется некое условие, но не получается - все строки красятся в один мой цвет, если побегать по записям - все возвращаются в исходный цвет:(
Вот код:
procedure TMessage_review.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
ARec: TRect;
ATextToDraw: String;
begin
if qTextLenta.FieldByName("FLAG_PARENT").AsInteger = 1 then
begin
ATextToDraw := AViewInfo.GridRecord.DisplayTexts[AViewInfo.Item.Index];
ARec := AViewInfo.Bounds;
ACanvas.Canvas.Brush.Style := bsSolid;
ACanvas.Canvas.Brush.Color := clBlue;
ACanvas.Canvas.FillRect(ARec);
SetBkMode(ACanvas.Canvas.Handle, TRANSPARENT);
InflateRect(ARec, 2, 2);
ACanvas.DrawText(ATextToDraw, ARec, 0);
ADone := True;
end
else
ACanvas.Brush.Color := clWhite;
end;

← →
cxGrid (2009-11-17 13:56) [1]

это код, почти без изменений, из примеров ихних

← →
cxGrid (2009-11-17 14:02) [2]

Прощу прощения, вопрос снят - курсор-то на одном месте:)

> если выполняется некое условие, но не получается - все
> строки красятся в один мой цвет

Значит условие не выполняется.

не могу раскрасить строки cxGrid Найти похожие ветки