Window.GetTopSuperView Method

Синтаксис

ВерхнийРодитель()

Возвращаемое значение

Тип: Произвольный.

Описание

Возвращает самого верхнего родителя.

Примечание

Пример

ВерхнийРодитель = Окно8.ВерхнийРодитель();

Полный пример кода



Перем Окно0, Окно1, Окно2, Окно3, Окно4, Окно5, Окно6, Окно7, Окно8;

Процедура ПриОткрытии() Экспорт
	Стр = "Окно0.ВерхнийРодитель().Текст = " + Окно0.ВерхнийРодитель().Текст + "
	|Окно1.ВерхнийРодитель().Текст = " + Окно1.ВерхнийРодитель().Текст + "
	|Окно2.ВерхнийРодитель().Текст = " + Окно2.ВерхнийРодитель().Текст + "
	|Окно3.ВерхнийРодитель().Текст = " + Окно3.ВерхнийРодитель().Текст + "
	|Окно4.ВерхнийРодитель().Текст = " + Окно4.ВерхнийРодитель().Текст + "
	|Окно5.ВерхнийРодитель().Текст = " + Окно5.ВерхнийРодитель().Текст + "
	|Окно6.ВерхнийРодитель().Текст = " + Окно6.ВерхнийРодитель().Текст + "
	|Окно7.ВерхнийРодитель().Текст = " + Окно7.ВерхнийРодитель().Текст + "
	|Окно8.ВерхнийРодитель().Текст = " + Окно8.ВерхнийРодитель().Текст + "
	|";
	Окно0.Текст = Стр;
КонецПроцедуры

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

ТФ.Верхний.Текст = "Это Верхний";

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(13);
Окно1.Ширина = ТФ.Величина.Абсолютно(60);
Окно1.Высота = ТФ.Величина.Абсолютно(11);
Окно0.Добавить(Окно1);

Окно2 = ТФ.Окно("Окно2");
Окно2.Ширина = Окно1.Ширина;
Окно2.Высота = Окно1.Высота;
Окно2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно2.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.ТемноСерый);
Окно0.Добавить(Окно2);
Окно2.ВышеПравее(Окно1, -14, -53);

Окно3 = ТФ.Окно("Окно3");
Окно3.Ширина = Окно1.Ширина;
Окно3.Высота = Окно1.Высота;
Окно3.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно3.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Зеленый);
Окно0.Добавить(Окно3);
Окно3.ВышеПравее(Окно2, -9, -53);

Окно4 = ТФ.Окно("Окно4");
Окно4.Ширина = Окно1.Ширина;
Окно4.Высота = Окно1.Высота;
Окно4.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно4.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Голубой);
Окно0.Добавить(Окно4);
Окно4.ВышеПравее(Окно3, -10, -53);

Окно5 = ТФ.Окно("Окно5");
Окно5.Икс = ТФ.Позиция.Абсолютно(1);
Окно5.Игрек = ТФ.Позиция.Абсолютно(0);
Окно5.Ширина = ТФ.Величина.Абсолютно(40);
Окно5.Высота = ТФ.Величина.Абсолютно(9);
Окно4.Добавить(Окно5);

Окно6 = ТФ.Окно("Окно6");
Окно6.Икс = ТФ.Позиция.Абсолютно(1);
Окно6.Игрек = ТФ.Позиция.Абсолютно(0);
Окно6.Ширина = ТФ.Величина.Абсолютно(30);
Окно6.Высота = ТФ.Величина.Абсолютно(7);
Окно5.Добавить(Окно6);

Окно7 = ТФ.Окно("Окно7");
Окно7.Икс = ТФ.Позиция.Абсолютно(1);
Окно7.Игрек = ТФ.Позиция.Абсолютно(0);
Окно7.Ширина = ТФ.Величина.Абсолютно(20);
Окно7.Высота = ТФ.Величина.Абсолютно(5);
Окно6.Добавить(Окно7);

Окно8 = ТФ.Окно("Окно8");
Окно8.Икс = ТФ.Позиция.Абсолютно(1);
Окно8.Игрек = ТФ.Позиция.Абсолютно(0);
Окно8.Ширина = ТФ.Величина.Абсолютно(15);
Окно8.Высота = ТФ.Величина.Абсолютно(3);
Окно7.Добавить(Окно8);

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

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

Тестовый код



Перем Окно0, Окно1, Окно2, Окно3, Окно4, Окно5, Окно6, Окно7, Окно8, ВерхнийРодитель;

Процедура ПриОткрытии() Экспорт
	Стр = "Окно0.ВерхнийРодитель().Текст = " + Окно0.ВерхнийРодитель().Текст + "
	|Окно1.ВерхнийРодитель().Текст = " + Окно1.ВерхнийРодитель().Текст + "
	|Окно2.ВерхнийРодитель().Текст = " + Окно2.ВерхнийРодитель().Текст + "
	|Окно3.ВерхнийРодитель().Текст = " + Окно3.ВерхнийРодитель().Текст + "
	|Окно4.ВерхнийРодитель().Текст = " + Окно4.ВерхнийРодитель().Текст + "
	|Окно5.ВерхнийРодитель().Текст = " + Окно5.ВерхнийРодитель().Текст + "
	|Окно6.ВерхнийРодитель().Текст = " + Окно6.ВерхнийРодитель().Текст + "
	|Окно7.ВерхнийРодитель().Текст = " + Окно7.ВерхнийРодитель().Текст + "
	|Окно8.ВерхнийРодитель().Текст = " + Окно8.ВерхнийРодитель().Текст + "
	|";
	Окно0.Текст = Стр;
	ВерхнийРодитель = Окно8.ВерхнийРодитель();
КонецПроцедуры

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

ТФ.Верхний.Текст = "Это Верхний";

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(13);
Окно1.Ширина = ТФ.Величина.Абсолютно(60);
Окно1.Высота = ТФ.Величина.Абсолютно(11);
Окно0.Добавить(Окно1);

Окно2 = ТФ.Окно("Окно2");
Окно2.Ширина = Окно1.Ширина;
Окно2.Высота = Окно1.Высота;
Окно2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно2.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.ТемноСерый);
Окно0.Добавить(Окно2);
Окно2.ВышеПравее(Окно1, -14, -53);

Окно3 = ТФ.Окно("Окно3");
Окно3.Ширина = Окно1.Ширина;
Окно3.Высота = Окно1.Высота;
Окно3.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно3.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Зеленый);
Окно0.Добавить(Окно3);
Окно3.ВышеПравее(Окно2, -9, -53);

Окно4 = ТФ.Окно("Окно4");
Окно4.Ширина = Окно1.Ширина;
Окно4.Высота = Окно1.Высота;
Окно4.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Окно4.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Черный, ТФ.Цвет.Голубой);
Окно0.Добавить(Окно4);
Окно4.ВышеПравее(Окно3, -10, -53);

Окно5 = ТФ.Окно("Окно5");
Окно5.Икс = ТФ.Позиция.Абсолютно(1);
Окно5.Игрек = ТФ.Позиция.Абсолютно(0);
Окно5.Ширина = ТФ.Величина.Абсолютно(40);
Окно5.Высота = ТФ.Величина.Абсолютно(9);
Окно4.Добавить(Окно5);

Окно6 = ТФ.Окно("Окно6");
Окно6.Икс = ТФ.Позиция.Абсолютно(1);
Окно6.Игрек = ТФ.Позиция.Абсолютно(0);
Окно6.Ширина = ТФ.Величина.Абсолютно(30);
Окно6.Высота = ТФ.Величина.Абсолютно(7);
Окно5.Добавить(Окно6);

Окно7 = ТФ.Окно("Окно7");
Окно7.Икс = ТФ.Позиция.Абсолютно(1);
Окно7.Игрек = ТФ.Позиция.Абсолютно(0);
Окно7.Ширина = ТФ.Величина.Абсолютно(20);
Окно7.Высота = ТФ.Величина.Абсолютно(5);
Окно6.Добавить(Окно7);

Окно8 = ТФ.Окно("Окно8");
Окно8.Икс = ТФ.Позиция.Абсолютно(1);
Окно8.Игрек = ТФ.Позиция.Абсолютно(0);
Окно8.Ширина = ТФ.Величина.Абсолютно(15);
Окно8.Высота = ТФ.Величина.Абсолютно(3);
Окно7.Добавить(Окно8);

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

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

Смотрите также

Библиотека OneScriptTerminalGui