Индикатор(<Вертикальный>)
Создаёт новый экземпляр класса Индикатор (ProgressBar).
Индикатор1 = Ф.Индикатор(Ложь);// горизонтальный индикатор Индикатор2 = Форма1.ЭлементыУправления.Добавить(Ф.Индикатор(Истина));// вертикальный индикатор
Копировать Выделить всёПодключитьВнешнююКомпоненту("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 = "КлИндикатор", "", "!!! ") + "Индикатор (ProgressBar) Конструктор" + " " + ТекущаяДата());