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

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

TTree и цвет текста [D7, WinXP]

Vilux ©   (2004-08-24 08:59:00) 

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

---

Sour Smile   (2005-02-07 14:57:00) [1]

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

procedureTForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
 Node: TTreeNode; State: TCustomDrawState; varDefaultDraw: Boolean);
begin
  if notNode.Selected then
  begin
    caseNode.Level of
     0: Sender.Canvas.Font.Color := clNavy;
     1: Sender.Canvas.Font.Color := clGreen;
    elseSender.Canvas.Font.Color := clRed;
    end;
  end;
end;

---

NAlexey   (2004-08-24 10:22:00) [2]

Меняй в OnCustomDrawItem.

---

Наверх