Верхний.ВФокусе (Toplevel.Focused) Свойство

Копировать

Перем ТФ;

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

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

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

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

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

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

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

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

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

Копировать

Перем ТФ, Текст;

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

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

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

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

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

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

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

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

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