Метод MoveBy – переместить текущую позицию полосы прогресса

Contents

Синтаксис:

procedure MoveBy(

[optional] Step: OleVariant);

Параметры:

Step – величина продвижения полосы прогресса.

Описание:

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

Пример:

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

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

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

VersionsCount = 0

foreach EDocumentInfo in Contents

EDocument = EDocumentInfo.Document

VersionsCount = VersionsCount + EDocument.Versions.Count

endforeach

if Contents.Count > 0

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

VersionsCount; False)

Progress.Show

foreach EDocumentInfo in Contents

EDocument = EDocumentInfo.Document

EDocument.MoveToStorage(FileStorage)

EDocument.Save

Progress.MoveBy(EDocument.Versions.Count)

endforeach

Progress.Hide

endif

Метод Next