Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.031 c
6-1075407578
Arsen
2004-01-29 23:19
2004.04.04
Save As... в TWebBrowser


7-1074011179
Getlin
2004-01-13 19:26
2004.04.04
Посылка сообщения


1-1079696489
INTAARI
2004-03-19 14:41
2004.04.04
Как преобразовать число (например 12) в строку типа "012"


9-1049398593
Archvile
2003-04-03 23:36
2004.04.04
Чудо - "программистам" посвящается


1-1079253255
Новичек
2004-03-14 11:34
2004.04.04
Процедура обработки события.