ЦветФокуса()
Тип: Атрибут (Attribute).
Возвращает текущую цветовую схему для текущего фокуса.
ПолеВвода1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); ПолеВвода1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый);
Перем ТФ, ПолеВвода1, ЦветФокуса; Процедура ПриОткрытии() Экспорт ЦветФокуса = ПолеВвода1.ЦветФокуса(); Стр = "ЦветФокуса() = " + ЦветФокуса + " |ОсновнойЦвет = " + ТФ.Цвет.Имя(ЦветФокуса.ОсновнойЦвет) + " |ЦветФона = " + ТФ.Цвет.Имя(ЦветФокуса.ЦветФона) + " |"; ТФ.Уведомление().Показать(Стр, -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПолеВвода1 = ТФ.Верхний.Добавить(ТФ.ПолеВвода("Текст для ПолеВвода1", , , 50)); ПолеВвода1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); ПолеВвода1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, ПолеВвода1, ЦветФокуса; Процедура ПриОткрытии() Экспорт ЦветФокуса = ПолеВвода1.ЦветФокуса(); Стр = "ЦветФокуса() = " + ЦветФокуса + " |ОсновнойЦвет = " + ТФ.Цвет.Имя(ЦветФокуса.ОсновнойЦвет) + " |ЦветФона = " + ТФ.Цвет.Имя(ЦветФокуса.ЦветФона) + " |"; ТФ.Уведомление().Показать(Стр, -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПолеВвода1 = ТФ.Верхний.Добавить(ТФ.ПолеВвода("Текст для ПолеВвода1", , , 50)); ПолеВвода1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); ПолеВвода1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(ЦветФокуса) = Тип("ТФАтрибут") , "", "!!! ") + "ПолеВвода.ЦветФокуса (TextField.GetFocusColor) Метод" + " " + ТекущаяДата() + Символы.ПС);