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