3
Kashemir
14.01.11
✎
14:27
|
Процедура СвернутьРазвернуть(Коллекция, Поле, Свернуть = Истина) ДЛя каждого Стр из Коллекция.Строки Цикл Если Свернуть Тогда Поле.Свернуть(Стр); Иначе Поле.Развернуть(Стр); КонецЕсли; СвернутьРазвернуть(Стр, Поле, Свернуть); КонецЦикла; КонецПРоцедуры Процедура КоманднаяПанель1РазвернутьВсе(Кнопка) СвернутьРазвернуть(ДЗ, ЭлементыФормы.ДЗ, Ложь); КонецПроцедуры
|
|