Дерево.УдалитьВсеУзлы (TreeView.ClearObjects) Метод

Копировать

Перем ТФ, Дерево1, Узел1;

Процедура ПриОткрытии() Экспорт
	Дерево1.УдалитьВсеУзлы();
	Корневые = Дерево1.Корневые;
	ТФ.Уведомление().Показать("Корневые.Количество() = "+ Корневые.Количество(), -1);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Дерево1 = ТФ.Дерево(, 6, 40, 15);
Дерево1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Дерево1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Серый);
Дерево1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.ЯркоГолубой);
ТФ.Верхний.Добавить(Дерево1);

Узел1 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел1"));
Узел2 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел2"));
Узел3 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел3"));
Узел4 = Узел1.Добавить(ТФ.УзелДерева("Узел4"));
Узел5 = Узел1.Добавить(ТФ.УзелДерева("Узел5"));
Узел6 = Узел1.Добавить(ТФ.УзелДерева("Узел6"));
Узел7 = Узел6.Добавить(ТФ.УзелДерева("Узел7"));
Узел8 = Узел6.Добавить(ТФ.УзелДерева("Узел8"));

Дерево1.РазвернутьВсе();

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

ТФ.Запуск();

Копировать

Перем ТФ, Дерево1, Корневые, Узел1;

Процедура ПриОткрытии() Экспорт
	Дерево1.УдалитьВсеУзлы();
	Корневые = Дерево1.Корневые;
	ТФ.Уведомление().Показать("Корневые.Количество() = "+ Корневые.Количество(), -1);
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll");
ТФ = Новый ТерминалФормыДляОдноСкрипта();

Дерево1 = ТФ.Дерево(, 6, 40, 15);
Дерево1.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Дерево1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Серый);
Дерево1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.ЯркоГолубой);
ТФ.Верхний.Добавить(Дерево1);

Узел1 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел1"));
Узел2 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел2"));
Узел3 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел3"));
Узел4 = Узел1.Добавить(ТФ.УзелДерева("Узел4"));
Узел5 = Узел1.Добавить(ТФ.УзелДерева("Узел5"));
Узел6 = Узел1.Добавить(ТФ.УзелДерева("Узел6"));
Узел7 = Узел6.Добавить(ТФ.УзелДерева("Узел7"));
Узел8 = Узел6.Добавить(ТФ.УзелДерева("Узел8"));

Дерево1.РазвернутьВсе();

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");
ТФ.ЗапуститьИЗавершить();

Сообщить(?(
Корневые.Количество() = 0
, "", "!!! ") + "Дерево.УдалитьВсеУзлы (TreeView.ClearObjects) Метод" + " " + ТекущаяДата() + Символы.ПС);