TTreeView

← →
Мурзилка (2006-05-15 10:58) [0]

1) как определить, что данный узел является листом?
2) как определить чтоу данного узла нет братьев?
3) можно ли менять цвет шрифта только в некоторых узлах?
4) как поменять размер шрифта во всем дереве?

← →
Жуков Олег (2006-05-15 11:19) [1]

> Мурзилка (15.05.06 10:58)

Интересная терминология. :)

> 1) как определить, что данный узел является листом?

TTreeNode.HasChildren?

> 2) как определить чтоу данного узла нет братьев?

TTreeNode.Parent.HasChildren
или
(TTreeNode.getPrevSibling = nil) and (TTreeNode.getNextSibling = nil)

> 3) можно ли менять цвет шрифта только в некоторых узлах?

Можно отрисовывать их программно в соответственных событиях, и выводить текст (и не только текст) стандартными средствами работы с графикой (см. TTreeView.OnCustomDrawItem, TTreeView.OnAdvancedCustomDrawItem, TTreeView.Canvas)

> 4) как поменять размер шрифта во всем дереве?

TreeView.Font.Size := 28;

← →
Мурзилка (2006-05-15 11:26) [2]

>
> > 4) как поменять размер шрифта во всем дереве?
>
> TreeView.Font.Size := 28;

вот тут странно, вроде чувствуется что размер поменялся, а вот область отображения текста осталась таже, поэтому видны тольки части букв

← →
Жуков Олег (2006-05-15 11:36) [3]

> > 2) как определить чтоу данного узла нет братьев?
>
> TTreeNode.Parent.HasChildren
>

Здесь я чушь сморозил, вместо HasChildren должно стоять Count = 1.

> вот тут странно, вроде чувствуется что размер поменялся,
> а вот область отображения текста осталась таже, поэтому
> видны тольки части букв
>

Мне это тоже странно. У тебя какой то неправильный TreeView, поскольку у меня этот код меняет и шрифт, и высоту пункта. Проверено в D7 и D2005, на Windows XP и Цштвщцы 2000.

← →
Жуков Олег (2006-05-15 11:41) [4]

Установить высоту пункта:
uses CommCtrl;
TreeView1.Perform(TVM_SETITEMHEIGHT, NewHeight, 0);
, но должно и без этого работать

← →
Мурзилка (2006-05-15 16:00) [5]

> Установить высоту пункта:
> uses CommCtrl;
> TreeView1.Perform(TVM_SETITEMHEIGHT, NewHeight, 0);
> , но должно и без этого работать

без этого не работает, а с этим, вроде да и поле ввода увеличилось, а текст всё равно прорисовывается как бы сдвинутый вниз, т.е видно одни макушки букв.

> 3) можно ли менять цвет шрифта только в некоторых узлах?
>
> 4) как поменять размер шрифта во всем дереве?

TTreeView.OnCustomDraw.

← →
Мурзилка (2006-05-15 16:15) [7]

2 Жуков Олег

всё, ок с высотой текста разобрался.

TTreeView Найти похожие ветки