Главная страница
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.033 c
3-1078739618
Rustamus
2004-03-08 12:53
2004.04.04
Реализация БД


3-1078482618
kalliopiy
2004-03-05 13:30
2004.04.04
BLOB-поле


11-1059120388
Armaniak
2003-07-25 12:06
2004.04.04
Что за параметры требуются для выполнения Execute в KOLSLQuery


1-1079266625
Vasek
2004-03-14 15:17
2004.04.04
Как сделать так что-бы меню выпадало при нажатии на пункт меню?


3-1078910413
Pavel
2004-03-10 12:20
2004.04.04
Blob