Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

TTree и цвет текста   Найти похожие ветки 

← →
Vilux ©   (2004-08-24 08:59) [0]

Подскажите, плиз, как в TTree меня цвет текста? Пробовал через Color-ничего не получается...

---

← →
NAlexey ©   (2004-08-24 10:22) [1]

Меняй в OnCustomDrawItem.

---

← →
Sour Smile   (2005-02-07 14:57) [2]

В следущем примере, синий цвет имеют узлы верхнего (нулевого) уровня, зелёного - первого уровня, и красного - все остальные узлы. Для выделенного узла цвет не изменяется (иначе выглядит не ахти как...)

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if not Node.Selected then
 begin
   case Node.Level of
     0: Sender.Canvas.Font.Color := clNavy;
     1: Sender.Canvas.Font.Color := clGreen;
   else Sender.Canvas.Font.Color := clRed;
   end;
 end;
end;

---

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

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.042 c