GdccGlobal.TgdccProgress

Модуль: GdccGlobal.pas

Конструкторы и деструкторы

Свойства

Методы

События

Наследованные члены

Delphi:

 TgdccProgress = class(TObject)

Описание

Класс для организации прогресс бара.

Пример использования в скрипт-функиях:

Option Explicit
Sub ShowProgressWindow
 
   Dim Creator, P, I
   Set Creator = New TCreator
   Set P = Creator.GetObject(nil, "TgdccProgress", "")
 
   P.StartWork "Обработка данных", "Длительный процесс", 100, True, True
 
   For I = 1 To 100
     P.StartStep "Step #" & I, 1
 
     ' Что-то делаем
 
     If P.Canceled Then Exit For
 
     WinAPI.Sleep 200
   Next
 
   P.EndWork "Обработка завершена успешно", False
End Sub