Объекты 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.