Синтаксис:
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 |