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