Скачать: CL | DM;

не могу раскрасить строки 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]

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

---

← →
Сергей М. ©   (2009-11-17 14:04) [3]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c