Верхний.ЦветФокуса (Toplevel.GetFocusColor) Метод

Копировать

Перем ТФ, Верхний1, ЦветФокуса;

Процедура Кнопка1_Нажатие() Экспорт
	Верхний1.Текст = "ЦветФокуса() = " + Верхний1.ЦветФокуса() + "
	|ОсновнойЦвет = " + Верхний1.ЦветФокуса().ОсновнойЦвет + "
	|ЦветФона = " + Верхний1.ЦветФокуса().ЦветФона + "
	|";
	
	ЦветФокуса = Верхний1.ЦветФокуса();
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(40);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний1.Ширина = ТФ.Величина.Процент(50);
Верхний1.Высота = ТФ.Величина.Процент(50);
Верхний1.Граница = ТФ.Граница();
Верхний1.Граница.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Верхний1.Текст = "В это время к Джузеппе зашёл его старинный приятель, шарманщик по имени Карло.
|Когда-то Карло в широкополой шляпе ходил с прекрасной шарманкой по городам и пением и музыкой добывал себе на хлеб.
|Сейчас Карло был уже стар и болен, и шарманка его давно сломалась.
|– Здравствуй, Джузеппе, – сказал он, зайдя в мастерскую. – Что ты сидишь на полу?
|– А я, видишь ли, потерял маленький винтик… Да ну его! – ответил Джузеппе и покосился на полено. – Ну а ты как живёшь, старина?
|– Плохо, – ответил Карло. – Всё думаю, чем бы мне заработать на хлеб… Хоть бы ты мне помог, посоветовал бы, что ли…
|– Чего проще, – сказал весело Джузеппе и подумал про себя: «Отделаюсь-ка я сейчас от этого проклятого полена». 
|– Чего проще: видишь – лежит на верстаке превосходное полено, возьми-ка ты это полено, Карло, и отнеси домой…";
ТФ.Верхний.Добавить(Верхний1);

Кнопка1 = ТФ.Кнопка();
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Кнопка1.Текст = "ЦветФокуса()";
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

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

Копировать

Перем ТФ, Верхний1, ЦветФокуса;

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

Процедура Кнопка1_Нажатие() Экспорт
	Верхний1.Текст = "ЦветФокуса() = " + Верхний1.ЦветФокуса() + "
	|ОсновнойЦвет = " + Верхний1.ЦветФокуса().ОсновнойЦвет + "
	|ЦветФона = " + Верхний1.ЦветФокуса().ЦветФона + "
	|";
	
	ЦветФокуса = Верхний1.ЦветФокуса();
КонецПроцедуры

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

Верхний1 = ТФ.Верхний();
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Абсолютно;
Верхний1.Икс = ТФ.Позиция.Абсолютно(40);
Верхний1.Игрек = ТФ.Позиция.Абсолютно(1);
Верхний1.СтильКомпоновки = ТФ.СтильКомпоновки.Вычислено;
Верхний1.Ширина = ТФ.Величина.Процент(50);
Верхний1.Высота = ТФ.Величина.Процент(50);
Верхний1.Граница = ТФ.Граница();
Верхний1.Граница.СтильГраницы = ТФ.СтильГраницы.Закругленная;
Верхний1.Текст = "В это время к Джузеппе зашёл его старинный приятель, шарманщик по имени Карло.
|Когда-то Карло в широкополой шляпе ходил с прекрасной шарманкой по городам и пением и музыкой добывал себе на хлеб.
|Сейчас Карло был уже стар и болен, и шарманка его давно сломалась.
|– Здравствуй, Джузеппе, – сказал он, зайдя в мастерскую. – Что ты сидишь на полу?
|– А я, видишь ли, потерял маленький винтик… Да ну его! – ответил Джузеппе и покосился на полено. – Ну а ты как живёшь, старина?
|– Плохо, – ответил Карло. – Всё думаю, чем бы мне заработать на хлеб… Хоть бы ты мне помог, посоветовал бы, что ли…
|– Чего проще, – сказал весело Джузеппе и подумал про себя: «Отделаюсь-ка я сейчас от этого проклятого полена». 
|– Чего проще: видишь – лежит на верстаке превосходное полено, возьми-ка ты это полено, Карло, и отнеси домой…";
ТФ.Верхний.Добавить(Верхний1);

Кнопка1 = ТФ.Кнопка();
Кнопка1.Икс = ТФ.Позиция.Абсолютно(1);
Кнопка1.Игрек = ТФ.Позиция.Абсолютно(4);
Кнопка1.Высота = ТФ.Величина.Абсолютно(3);
Кнопка1.Текст = "ЦветВыделенного()";
Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
ТФ.Верхний.Добавить(Кнопка1);

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

Сообщить(?(
ТипЗнч(ЦветФокуса) = Тип("ТфАтрибут")
, "", "!!! ") + "Верхний.ЦветФокуса (Toplevel.GetFocusColor) Метод" + " " + ТекущаяДата() + Символы.ПС);