Верхний.Кадр (Toplevel.Frame) Свойство

Копировать

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

Процедура ПриОткрытии() Экспорт
	Верхний1.Текст = "Верхний1.Кадр = " + Верхний1.Кадр + "
	|Верхний1.Кадр.Икс = " + Верхний1.Кадр.Икс + "
	|Верхний1.Кадр.Игрек = " + Верхний1.Кадр.Игрек + "
	|Верхний1.Кадр.Ширина = " + Верхний1.Кадр.Ширина + "
	|Верхний1.Кадр.Высота = " + Верхний1.Кадр.Высота + "
	|";
	
	Верхний2.Текст = "Верхний2.Кадр = " + Верхний2.Кадр + "
	|Верхний2.Кадр.Икс = " + Верхний2.Кадр.Икс + "
	|Верхний2.Кадр.Игрек = " + Верхний2.Кадр.Игрек + "
	|Верхний2.Кадр.Ширина = " + Верхний2.Кадр.Ширина + "
	|Верхний2.Кадр.Высота = " + Верхний2.Кадр.Высота + "
	|";
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.Икс = ТФ.Позиция.Абсолютно(2);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(2);
Верхний1.Ширина = ТФ.Величина.Абсолютно(80);
Верхний1.Высота = ТФ.Величина.Абсолютно(5);
ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
Верхний1.ЦветоваяСхема = ЦветоваяСхема1;
Верхний1.Текст = "Давным-давно в городке на берегу Средиземного моря жил старый столяр Джузеппе по прозванию Сизый Нос.";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

Верхний2 = ТФ.Верхний(1, 9, 30, 5);
Верхний2.Текст = "– Неплохая вещь, – сказал сам себе Джузеппе, – можно смастерить из него что-нибудь вроде ножки для стола…";
Граница2 = ТФ.Граница();
Граница2.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний2.Граница = Граница2;
Верхний2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Верхний2.Ширина = ТФ.Величина.Процент(70);

Верхний2.Кадр = ТФ.Прямоугольник(1, 13, 60, 8);

ТФ.Верхний.Добавить(Верхний2);

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

Копировать

Перем ТФ, Верхний1, Верхний2, Кадр;

Процедура ПриОткрытии() Экспорт
	Верхний1.Текст = "Верхний1.Кадр = " + Верхний1.Кадр + "
	|Верхний1.Кадр.Икс = " + Верхний1.Кадр.Икс + "
	|Верхний1.Кадр.Игрек = " + Верхний1.Кадр.Игрек + "
	|Верхний1.Кадр.Ширина = " + Верхний1.Кадр.Ширина + "
	|Верхний1.Кадр.Высота = " + Верхний1.Кадр.Высота + "
	|";
	
	Кадр = Верхний1.Текст;
	
	Верхний2.Текст = "Верхний2.Кадр = " + Верхний2.Кадр + "
	|Верхний2.Кадр.Икс = " + Верхний2.Кадр.Икс + "
	|Верхний2.Кадр.Игрек = " + Верхний2.Кадр.Игрек + "
	|Верхний2.Кадр.Ширина = " + Верхний2.Кадр.Ширина + "
	|Верхний2.Кадр.Высота = " + Верхний2.Кадр.Высота + "
	|";
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.Икс = ТФ.Позиция.Абсолютно(2);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(2);
Верхний1.Ширина = ТФ.Величина.Абсолютно(80);
Верхний1.Высота = ТФ.Величина.Абсолютно(5);
ЦветоваяСхема1 = ТФ.ЦветоваяСхема();
Верхний1.ЦветоваяСхема = ЦветоваяСхема1;
Верхний1.Текст = "Давным-давно в городке на берегу Средиземного моря жил старый столяр Джузеппе по прозванию Сизый Нос.";
Граница1 = ТФ.Граница();
Граница1.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний1.Граница = Граница1;
ТФ.Верхний.Добавить(Верхний1);

Верхний2 = ТФ.Верхний(1, 9, 30, 5);
Верхний2.Текст = "– Неплохая вещь, – сказал сам себе Джузеппе, – можно смастерить из него что-нибудь вроде ножки для стола…";
Граница2 = ТФ.Граница();
Граница2.СтильГраницы = ТФ.СтильГраницы.Двойная;
Верхний2.Граница = Граница2;
Верхний2.ЦветоваяСхема = ТФ.ЦветоваяСхема();
Верхний2.Ширина = ТФ.Величина.Процент(70);

Верхний2.Кадр = ТФ.Прямоугольник(1, 13, 60, 8);

ТФ.Верхний.Добавить(Верхний2);

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

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