Объекты DIRECTUM

 

Объект IProgress

 

Свойство Position – текущая позиция

Синтаксис:

Описание:

Свойство предоставляет доступ к текущей позиции полосы прогресса. Установка свойства приведет к перемещению индикатора в новую позицию. Например, для того чтобы индикатор показал, что процесс завершен, следует установить значение свойства Position, равным значению свойства Max.

Пример использования:

 

// Записать в файл строки списка.

// List– список строк.

// FileName - Имя файла.

Progress = CreateProgress('Запись в файл'; List.Count; False)

Progress.Show

I = 0

while I <= List.Count - 1

  Progress.Text = List.Values(I)

  ФайлЗаписать(FileName; 'Д'; List.Values(I))

  I = I + 1

  Progress.Position = I

endwhile 

Progress.Hide

 

 

См. также:

·         свойство Max.