Верхний.УдалитьВсе (Toplevel.RemoveAll) Метод

Копировать

Перем ТФ;

Процедура Кнопка1_Нажатие() Экспорт
	ТФ.Верхний.УдалитьВсе();
	ТФ.Верхний.Текст = "Осталось подэлементов = " + ТФ.Верхний.Подэлементы.Количество;
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(40);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний1.Ширина = ТФ.Величина.Процент(50);
Верхний1.Высота = ТФ.Величина.Процент(50);
Верхний1.Граница = ТФ.Граница();
Верхний1.Граница.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Верхний1.Текст = "В это время к Джузеппе зашёл его старинный приятель, шарманщик по имени Карло.
|Когда-то Карло в широкополой шляпе ходил с прекрасной шарманкой по городам и пением и музыкой добывал себе на хлеб.
|Сейчас Карло был уже стар и болен, и шарманка его давно сломалась.
|– Здравствуй, Джузеппе, – сказал он, зайдя в мастерскую. – Что ты сидишь на полу?
|– А я, видишь ли, потерял маленький винтик… Да ну его! – ответил Джузеппе и покосился на полено. – Ну а ты как живёшь, старина?
|– Плохо, – ответил Карло. – Всё думаю, чем бы мне заработать на хлеб… Хоть бы ты мне помог, посоветовал бы, что ли…
|– Чего проще, – сказал весело Джузеппе и подумал про себя: «Отделаюсь-ка я сейчас от этого проклятого полена». 
|– Чего проще: видишь – лежит на верстаке превосходное полено, возьми-ка ты это полено, Карло, и отнеси домой…";
ТФ.Верхний.Добавить(Верхний1);

Кнопка1 = ТФ.Кнопка();
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Кнопка1.Текст = "УдалитьВсе";
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

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

Копировать

Перем ТФ, Количество;

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

Процедура Кнопка1_Нажатие() Экспорт
	ТФ.Верхний.УдалитьВсе();
	ТФ.Верхний.Текст = "Осталось подэлементов = " + ТФ.Верхний.Подэлементы.Количество;
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(40);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний1.Ширина = ТФ.Величина.Процент(50);
Верхний1.Высота = ТФ.Величина.Процент(50);
Верхний1.Граница = ТФ.Граница();
Верхний1.Граница.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Верхний1.Текст = "В это время к Джузеппе зашёл его старинный приятель, шарманщик по имени Карло.
|Когда-то Карло в широкополой шляпе ходил с прекрасной шарманкой по городам и пением и музыкой добывал себе на хлеб.
|Сейчас Карло был уже стар и болен, и шарманка его давно сломалась.
|– Здравствуй, Джузеппе, – сказал он, зайдя в мастерскую. – Что ты сидишь на полу?
|– А я, видишь ли, потерял маленький винтик… Да ну его! – ответил Джузеппе и покосился на полено. – Ну а ты как живёшь, старина?
|– Плохо, – ответил Карло. – Всё думаю, чем бы мне заработать на хлеб… Хоть бы ты мне помог, посоветовал бы, что ли…
|– Чего проще, – сказал весело Джузеппе и подумал про себя: «Отделаюсь-ка я сейчас от этого проклятого полена». 
|– Чего проще: видишь – лежит на верстаке превосходное полено, возьми-ка ты это полено, Карло, и отнеси домой…";
ТФ.Верхний.Добавить(Верхний1);

Кнопка1 = ТФ.Кнопка();
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Кнопка1.Текст = "Удалить";
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

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

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