Главная страница
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.021 c
1-1079612780
sav
2004-03-18 15:26
2004.04.04
TreeView


3-1078493919
tomek
2004-03-05 16:38
2004.04.04
developer express 4.11 глюк


14-1078480768
Оля
2004-03-05 12:59
2004.04.04
Чтение байтов из текстового файла


1-1079021304
opoloxai
2004-03-11 19:08
2004.04.04
Типизированный поток.


7-1074221596
Марат
2004-01-16 05:53
2004.04.04
Принтер