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

Дерево TreeView   Найти похожие ветки 

← →
sav ©   (2004-03-18 15:22) [0]

Как оставить не развернутым последний уровень,
а все предидущие развернуть?

---

← →
Digitman ©   (2004-03-18 16:05) [1]

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

может, речь таки идет о предпоследнем уровне ?

---

← →
sav ©   (2004-03-18 16:15) [2]

Извиняюсь о предпоследнем конечно же

---

← →
Digitman ©   (2004-03-18 16:41) [3]

тогда можно попробовать реализовать это так :

var
 tn: TTreeNode;
with TreeView.Items do
for i:= 0 to Count - 1 do
begin
 tn := Item[i];
 if not tn.HasChildren and Assigned(tn.parent) then
  tn.Parent.Expanded := false;  
end;

проверь ... вдумайся в логику .. я не проверял ... возможны упущения

---

← →
Digitman ©   (2004-03-18 17:22) [4]

а вообще говоря, задача либо неточно сформулирована либо нерешаема в общем случае

пусть узел A имеет дочерние узлы A[1] и А[2]
в свою очередь, узел A[1] не имеет доч.узлов (это - последний уровень в ветке, растущей от А), а узел А[2] имеет как минимум один доч.узел (это - НЕ последний уровень в ветке, растущей от А)

сразу возникает вопрос : дорлжен ли быть expanded узел А ?

по отношению к А[1] - нет, по отношению к А[2] - да..

получается - неразрешаемая в дан.случае дилемма ..

---

← →
sav ©   (2004-03-19 12:01) [5]

Я попробовал все отлично работает
Спасибо!

---

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

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



Память: 0.45 MB
Время: 0.022 c