Синтаксис:
rw property Position: Integer; |
Описание:
Свойство предоставляет доступ к текущей позиции полосы прогресса. Установка свойства приведет к перемещению индикатора в новую позицию. Например, для того чтобы индикатор показал, что процесс завершен, следует установить значение свойства 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 |
© Компания DIRECTUM, 2018 | Сообщество пользователей DIRECTUM |