ФормыДляОдноСкрипта.Индикатор (OneScriptForms.ProgressBar) Метод

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

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

Индикатор1 = Ф.Индикатор(Ложь);// горизонтальный индикатор
Индикатор1.Родитель = Форма1;
Индикатор1.Размер = Ф.Размер(300, 25);
Индикатор1.Центр();

Индикатор2 = Форма1.ЭлементыУправления.Добавить(Ф.Индикатор(Истина));// вертикальный индикатор
Индикатор2.Размер = Ф.Размер(25, 250);
Индикатор2.Центр();
Индикатор2.Лево = 20;

Для А = 1 По 100 Цикл
	Приостановить(5);
	Индикатор1.Значение = А;
	Индикатор2.Значение = А;
КонецЦикла;

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

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

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

Индикатор1 = Ф.Индикатор(Ложь);// горизонтальный индикатор
Индикатор1.Родитель = Форма1;
Индикатор1.Размер = Ф.Размер(300, 25);
Индикатор1.Центр();

Индикатор2 = Форма1.ЭлементыУправления.Добавить(Ф.Индикатор(Истина));// вертикальный индикатор
Индикатор2.Размер = Ф.Размер(25, 250);
Индикатор2.Центр();
Индикатор2.Лево = 20;

Сообщить(?("" + Индикатор1 = "КлИндикатор" и "" + Индикатор2 = "КлИндикатор", "", "!!! ") + "ФормыДляОдноСкрипта.Индикатор (OneScriptForms.ProgressBar) Метод" + " " + ТекущаяДата());