Текущий архив: 2010.01.10;
Скачать: 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 вся ветка
Текущий архив: 2010.01.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
