Верхний.ВерхнийРодитель (Toplevel.GetTopSuperView) Метод

Копировать

Перем Верхний1, Верхний2;

Функция Тест() Экспорт
	Верхний1.Текст = "Верхний1.ВерхнийРодитель().Текст = " + Верхний1.ВерхнийРодитель().Текст;
	Верхний2.Текст = "Верхний2.ВерхнийРодитель().Текст = " + Верхний2.ВерхнийРодитель().Текст;
	Возврат Верхний2.ВерхнийРодитель();
КонецФункции

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

ТФ.Верхний.Текст = "Самый Верхний";

Верхний1 = ТФ.Верхний();
Верхний1.Икс = ТФ.Позиция.Абсолютно(1);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(4);
Верхний1.Ширина = ТФ.Величина.Абсолютно(60);
Верхний1.Высота = ТФ.Величина.Абсолютно(10);
ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
Верхний1.ЦветоваяСхема = ЦветоваяСхема1;
Верхний1.Текст = "Верхний1";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

Верхний2 = ТФ.Верхний();
Верхний2.Икс = ТФ.Позиция.Абсолютно(1);
Верхний2.Игрек = ТФ.Позиция.Абсолютно(3);
Верхний2.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний2.Ширина = ТФ.Величина.Процент(70);
Верхний2.Высота = ТФ.Величина.Абсолютно(3);
Верхний1.Добавить(Верхний2);
Верхний2.Текст = "Верхний2";
Верхний2.ЦветоваяСхема = ТФ.Цвета.Ошибка;

ВерхнийРодитель = ТФ.Выполнить(ТФ.Действие(ЭтотОбъект, "Тест"));

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

Копировать

Перем Верхний1, ВерхнийРодитель;

Процедура ПриОткрытии() Экспорт
	ВерхнийРодитель = Верхний1.ВерхнийРодитель();
КонецПроцедуры

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

ТФ.Верхний.Текст = "Самый Верхний";

Верхний1 = ТФ.Верхний();
Верхний1.Икс = ТФ.Позиция.Абсолютно(1);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.Ширина = ТФ.Величина.Абсолютно(60);
Верхний1.Высота = ТФ.Величина.Абсолютно(10);
ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
Верхний1.ЦветоваяСхема = ЦветоваяСхема1;
Верхний1.Текст = "Верхний1";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

Верхний2 = ТФ.Верхний();
Верхний2.Икс = ТФ.Позиция.Абсолютно(1);
Верхний2.Игрек = ТФ.Позиция.Абсолютно(3);
Верхний2.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний2.Ширина = ТФ.Величина.Процент(70);
Верхний2.Высота = ТФ.Величина.Абсолютно(3);
Верхний1.Добавить(Верхний2);
Верхний2.Текст = "Верхний2";
Верхний2.ЦветоваяСхема = ТФ.Цвета.Ошибка;

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

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