сменить цвет шрифта ячейки... DevExpress

← →
ply (2008-05-23 15:06) [0]

Подскажите как в cxGrid от DevExpress сменить цвет шрифта в ячейке.

Ситуация такая:

В OnCustomDrawCell:
if AText="BMW" then AFont.Color := clRed;
<тут надо вставить чтобы в соседнем столбце этой строки шрифт был тоже красный>

← →
Palladin © (2008-05-23 15:14) [1]

вставить нечего, бо событие OnCustomDrawCell отвечает за прорисовку только конкретно данной ячейки

← →
TIF © (2008-05-23 15:18) [2]

Удалено модератором

← →
ply (2008-05-23 15:44) [3]

TIF
то что вы нашли я написал в своем первом сообщении.

Palladin
а как тогда это реализовать? чтобы в зависимости от значений одного столбца, изменялся бы шрифт другого

← →
Palladin © (2008-05-23 15:47) [4]

> ply (23.05.08 15:44) [3]

плоховато у тебя как-то с логикой... ну ведь очевидно, что когда придет сообщение OnCustomDrawCell для того самого другого столбца проверить значение того самого одного столбца тогда и изменя шрифт этого самого другого столбца

← →
ply (2008-05-23 16:42) [5]

сам разобрался
вот то что мне нужно было

procedure TForm1.cxGrid3DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if (AViewInfo.Item.Name="cxgrid3dbtableview1phone_home") then begin
if (pos(AnsiLowerCase(search_text), AnsiLowerCase(sender.datacontroller.DisplayTexts[AViewInfo.RecordViewInfo.Index, cxgrid3dbtableview1phone_home_view.index])) <> 0) then begin
ACanvas.Font.Color := clRed;
exit;
end;
end;

if(pos(AnsiLowerCase(search_text), AnsiLowerCase(AViewInfo.Text)) <> 0) then begin
ACanvas.Font.Color := clRed;
exit;
end;

end;

← →
ply (2008-05-23 16:43) [6]

Palladin, оказалось как раз то что вы написали;)

← →
имя (2009-03-11 15:47) [7]

Удалено модератором

сменить цвет шрифта ячейки... DevExpress Найти похожие ветки