OneScriptTerminalGui.ProgressBar Method

Синтаксис

Индикатор(<Икс>, <Игрек>, <Ширина>, <Высота>)

Параметры

Икс (необязательный): Тип: Число.; Координата по оси икс левого верхнего угла индикатора. Значение по умолчанию - 1.
Игрек (необязательный): Тип: Число.; Координата по оси игрек левого верхнего угла индикатора. Значение по умолчанию - 1.
Ширина (необязательный): Тип: Число.; Ширина индикатора. Значение по умолчанию - 40.
Высота (необязательный): Тип: Число.; Высота индикатора. Значение по умолчанию - 1.

Возвращаемое значение

Тип: Индикатор (ProgressBar).

Описание

Создаёт новый экземпляр класса Индикатор (ProgressBar).

Примечание

Пример

Индикатор1 = ТФ.Индикатор(, , 60);

Полный пример кода



Перем ТФ, Окно1, Индикатор1, Индикатор2, Счетчик1, Таймер1;

Процедура ПриОткрытии() Экспорт
	Индикатор = Индикатор1;
	Окно1.Текст = "Индикатор1 = " + Индикатор + "
	|Нажмите кнопку Старт";
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Счетчик1 = 0;
	Индикатор1.Значение = 0;
	Индикатор2.Значение = 0;
	Таймер1.Начать();
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Счетчик1 = Счетчик1 + 0.01;
	Индикатор1.Значение = Счетчик1;
	Индикатор2.Значение = Счетчик1;
	Окно1.Текст = "Счетчик1 = " + Счетчик1 + " " + ТекущаяУниверсальнаяДатаВМиллисекундах();
	Если Счетчик1 >= 1 Тогда
		Индикатор1.Значение = 0.25;
		Индикатор2.Значение = 0.4;
		Таймер1.Остановить();
	КонецЕсли;
КонецПроцедуры

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

Окно1 = ТФ.Окно();
Окно1.Заголовок = "Окно1";
Окно1.Заполнить();
ТФ.Верхний.Добавить(Окно1);

Индикатор1 = ТФ.Индикатор(, , 60);
Индикатор1.Центр();
Индикатор1.Значение = 0.25;
Индикатор1.ЦветоваяСхема = ТФ.Цвета.Ошибка;
Окно1.Добавить(Индикатор1);

Индикатор2 = ТФ.Индикатор(, , 60);
Индикатор2.Центр();
Индикатор2.Значение = 0.4;
Индикатор2.ЦветоваяСхема = ТФ.Цвета.Основа;
Индикатор2.СтильИндикатора = ТФ.СтильИндикатора.БегущаяПолоса;
Индикатор2.Ниже(Индикатор1, 1);
Окно1.Добавить(Индикатор2);

Кнопка1 = ТФ.Кнопка("Старт", , , 10, 1);
Кнопка1.Центр();
Кнопка1.Выше(Индикатор1, 2);
Кнопка1.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка1.Граница.Эффект3D = Истина;
Кнопка1.Граница.Смещение3D = ТФ.Точка(1, 1);

Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
Окно1.Добавить(Кнопка1);

Счетчик1 = 0;

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

ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии");

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

Тестовый код



Перем ТФ, Окно1, Индикатор1, Индикатор2, Счетчик1, Таймер1, Индикатор;

Процедура ПриОткрытии() Экспорт
	Индикатор = Индикатор1;
	Окно1.Текст = "Индикатор1 = " + Индикатор + "
	|Нажмите кнопку Старт";
КонецПроцедуры

Процедура Кнопка1_Нажатие() Экспорт
	Счетчик1 = 0;
	Индикатор1.Значение = 0;
	Индикатор2.Значение = 0;
	Таймер1.Начать();
КонецПроцедуры

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Счетчик1 = Счетчик1 + 0.01;
	Индикатор1.Значение = Счетчик1;
	Индикатор2.Значение = Счетчик1;
	Окно1.Текст = "Счетчик1 = " + Счетчик1 + " " + ТекущаяУниверсальнаяДатаВМиллисекундах();
	Если Счетчик1 >= 1 Тогда
		Индикатор1.Значение = 0.25;
		Индикатор2.Значение = 0.4;
		Таймер1.Остановить();
	КонецЕсли;
КонецПроцедуры

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

Окно1 = ТФ.Окно();
Окно1.Заголовок = "Окно1";
Окно1.Заполнить();
ТФ.Верхний.Добавить(Окно1);

Индикатор1 = ТФ.Индикатор(, , 60);
Индикатор1.Центр();
Индикатор1.Значение = 0.25;
Индикатор1.ЦветоваяСхема = ТФ.Цвета.Ошибка;
Окно1.Добавить(Индикатор1);

Индикатор2 = ТФ.Индикатор(, , 60);
Индикатор2.Центр();
Индикатор2.Значение = 0.4;
Индикатор2.ЦветоваяСхема = ТФ.Цвета.Основа;
Индикатор2.СтильИндикатора = ТФ.СтильИндикатора.БегущаяПолоса;
Индикатор2.Ниже(Индикатор1, 1);
Окно1.Добавить(Индикатор2);

Кнопка1 = ТФ.Кнопка("Старт", , , 10, 1);
Кнопка1.Центр();
Кнопка1.Выше(Индикатор1, 2);
Кнопка1.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная);
Кнопка1.Граница.Эффект3D = Истина;
Кнопка1.Граница.Смещение3D = ТФ.Точка(1, 1);

Кнопка1.Нажатие = ТФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие");
Окно1.Добавить(Кнопка1);

Счетчик1 = 0;

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

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

Сообщить(?(
ТипЗнч(Индикатор) = Тип("ТфИндикатор")
, "", "!!! ") + "ТерминалФормыДляОдноСкрипта.Индикатор (OneScriptTerminalGui.ProgressBar) Метод" + " " + ТекущаяДата() + Символы.ПС);

Смотрите также

Библиотека OneScriptTerminalGui