Объекты DIRECTUM > Служебные формы > IProgress – индикатор процесса >

Метод Next – увеличить значение индикатора

Предыдущий раздел В начало Следующий раздел

Синтаксис:

procedure Next;

Описание:

Метод увеличивает текущую позицию полосы прогресса на 1.

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

 

// Перенести все документы, найденные поиском, в хранилище.

// Contents - список документов, найденных поиском.

// FileStorage - хранилище электронных документов.

if Contents.Count > 0

 Progress = CreateProgress('Перенос документов в хранилище';

   Contents.Count; False)

 Progress.Show

 foreach EDocumentInfo in Contents

   EDocument = EDocumentInfo.Document

   EDocument.MoveToStorage(FileStorage)

   EDocument.Save

   Progress.Next

 endforeach

 Progress.Hide

endif

См. также

Метод MoveBy