| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

не могу раскрасить строки cxGrid [D7, XP]

cxGrid ©   (2009-11-17 13:54:00) 

Всем салют!
Нужно раскрасить строки в гриде, если выполняется некое условие, но не получается  - все строки красятся в один мой цвет, если побегать по записям - все возвращаются в исходный цвет:(
Вот код:
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;

---

Сергей М.   (2009-11-17 14:04:00) [1]

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


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

---

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

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

---

cxGrid   (2009-11-17 13:56:00) [3]

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

---

Наверх