8.2 обыч формы
Дерево разворачивается командой
..
ЭлементыФормы.СводТабл.НачальноеОтображениеДерева = НачальноеОтображениеДерева.РаскрыватьВсеУровни;
..
А вот свернуть его после этого командой
ЭлементыФормы.СводТабл.НачальноеОтображениеДерева = НачальноеОтображениеДерева.НеРаскрывать;
не получается.
..
Что я делаю не так?
Для Каждого ТекущаяВетка Из МоеДерево.Строки Цикл
Для Каждого ТекущаяСтрока Из ТекущаяВетка.Строки Цикл
ЭлементыФормы.МоеДерево.Свернуть(ТекущаяСтрока);
Если ТекущаяСтрока.Строки.Количество() > 0 Тогда
Для Каждого ТекСтрока Из ТекущаяСтрока.Строки Цикл
ЭлементыФормы.МоеДерево.Свернуть(ТекСтрока);
КонецЦикла;
КонецЕсли;
КонецЦикла;
ЭлементыФормы.МоеДерево.Свернуть(ТекущаяВетка);
КонецЦикла;
(6) Эмуляция клавиш для каждого узла дороже встанет. Но раз так - копать пример "Максимизировать окно в 1С7.7", там что-то типа WSShell использовалось.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс