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

сменить цвет шрифта ячейки... 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]

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

---

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

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



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