Граница (Border) Конструктор

Копировать

Перем ТФ, Окно1, Граница, Граница1;

Процедура ПриОткрытии() Экспорт
	Граница = Окно1.Граница;
КонецПроцедуры

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Текст = "Когда я был маленький – очень, очень давно, – я читал одну книжку: 
|она называлась «Пиноккио, или Похождения деревянной куклы» 
|(деревянная кукла по-итальянски – буратино).";
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(1);
Окно1.Ширина = ТФ.Величина.Процент(80);
Окно1.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно1);

Граница1 = ТФ.Граница(ТФ.СтильГраницы.Двойная);
Граница1.Заголовок = "Граница1";

Окно1.Граница = Граница1;

Окно2 = ТФ.Окно("Окно2");
Окно2.Текст = "Я часто рассказывал моим товарищам, девочкам и мальчикам, занимательные приключения Буратино.";
Окно2.Ниже(Окно1, 1);
Окно2.Икс = Окно1.Икс;
Окно2.Ширина = ТФ.Величина.Процент(80);
Окно2.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно2);

Окно2.Граница = Граница1;

Окно3 = ТФ.Окно("Окно3", 1, 11, 55, 4);
Окно3.Текст = "Но так как книжка потерялась, то я рассказывал каждый раз по-разному, выдумывал такие похождения, каких в книге совсем не было.";
ТФ.Верхний.Добавить(Окно3);

Окно3.Граница = Граница1;
Окно3.Заголовок = "Окно3";

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

Окно5 = ТФ.Окно("Окно5", 1, 22, 55, 4);
Окно5.Текст = "Cтоляру Джузеппе попалось под руку полено, которое пищало человеческим голосом.";
ТФ.Верхний.Добавить(Окно5);

Окно5.Граница = Граница1;

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

Копировать

Перем ТФ, Окно1, Граница;

Процедура ПриОткрытии() Экспорт
	Граница = Окно1.Граница;
КонецПроцедуры

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

Окно1 = ТФ.Окно("Окно1");
Окно1.Текст = "Когда я был маленький – очень, очень давно, – я читал одну книжку: 
|она называлась «Пиноккио, или Похождения деревянной куклы» 
|(деревянная кукла по-итальянски – буратино).";
Окно1.Икс = ТФ.Позиция.Абсолютно(1);
Окно1.Игрек = ТФ.Позиция.Абсолютно(1);
Окно1.Ширина = ТФ.Величина.Процент(80);
Окно1.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно1);

Граница1 = ТФ.Граница(ТФ.СтильГраницы.Двойная);
Граница1.Заголовок = "Граница1";

Окно1.Граница = Граница1;

Окно2 = ТФ.Окно("Окно2");
Окно2.Текст = "Я часто рассказывал моим товарищам, девочкам и мальчикам, занимательные приключения Буратино.";
Окно2.Ниже(Окно1, 1);
Окно2.Икс = Окно1.Икс;
Окно2.Ширина = ТФ.Величина.Процент(80);
Окно2.Высота = ТФ.Величина.Абсолютно(4);
ТФ.Верхний.Добавить(Окно2);

Окно2.Граница = Граница1;

Окно3 = ТФ.Окно("Окно3", 1, 11, 55, 4);
Окно3.Текст = "Но так как книжка потерялась, то я рассказывал каждый раз по-разному, выдумывал такие похождения, каких в книге совсем не было.";
ТФ.Верхний.Добавить(Окно3);

Окно3.Граница = Граница1;
Окно3.Заголовок = "Окно3";

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

Окно5 = ТФ.Окно("Окно5", 1, 22, 55, 4);
Окно5.Текст = "Cтоляру Джузеппе попалось под руку полено, которое пищало человеческим голосом.";
ТФ.Верхний.Добавить(Окно5);

Окно5.Граница = Граница1;

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

Сообщить(?(
Граница1 <> Окно1.Граница и 
Граница1.СтильГраницы = Окно1.Граница.СтильГраницы
, "", "!!! ") + "Граница (Border) Конструктор" + " " + ТекущаяДата() + Символы.ПС);