КольцевойИндикатор.КонечныйЦвет (CircularProgressBar.FinalColor) Свойство

Копировать     Выделить всё

Перем КольцевойИндикатор1;

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Если КольцевойИндикатор1.Значение = -100 Тогда
		КольцевойИндикатор1.Значение = 100;
	КонецЕсли;
	КольцевойИндикатор1.Уменьшение(1);
КонецПроцедуры

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

КольцевойИндикатор1 = Ф.КольцевойИндикатор();
КольцевойИндикатор1.Родитель = Форма1;
КольцевойИндикатор1.Размер = Ф.Размер(200, 25);
КольцевойИндикатор1.ПоЧасовой = Ложь;
КольцевойИндикатор1.НачальныйЦвет = Ф.Цвет("Синий");
КольцевойИндикатор1.КонечныйЦвет = Ф.Цвет("Красный");

Таймер1 = Ф.Таймер();
Таймер1.Интервал = 10;
Таймер1.ПриСрабатыванииТаймера = Ф.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Таймер1.Начать();

Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

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

КольцевойИндикатор1 = Ф.КольцевойИндикатор();
КольцевойИндикатор1.Родитель = Форма1;
КольцевойИндикатор1.Размер = Ф.Размер(200, 25);
КольцевойИндикатор1.НачальныйЦвет = Ф.Цвет("Синий");
КольцевойИндикатор1.КонечныйЦвет = Ф.Цвет("Красный");

Сообщить(?(
КольцевойИндикатор1.КонечныйЦвет.Имя = "Красный"
, "", "!!! ") + "КольцевойИндикатор.КонечныйЦвет (CircularProgressBar.FinalColor) Свойство" + " " + ТекущаяДата());