| Class TProgressor (unit WAProgrs) |
TObject
| Constructors |
constructor Create;
constructor CreateInstance;| Functions |
procedure Abort;
destructor Destroy;
procedure EndProgress;
class function Instance: TProgressor;
procedure RegisterObserver(Observer: TProgressObserver);
procedure StartProgress(AProgress: Integer; const ADescription: String);
procedure StartProgressDef;
procedure UnregisterObserver(Observer: TProgressObserver);
procedure DescriptionChange;
function GetAborted: Boolean;
function GetDescription: String;
procedure PopProgress;
procedure ProgressChange;
procedure ProgressEnd;
procedure ProgressStart;
procedure PushProgress;
procedure SetBusyCursor(Value: TCursor);
procedure SetDescription(const Value: String);
procedure SetProgress(Value: Integer);| Properties |
property Aborted : Boolean
property BusyCursor : TCursor
property Description : String
property Progress : Integer| Events |
| Variables |
FAborted : Boolean;
FBusyCursor : TCursor;
FCursorStack : TIntList;
FDescription : PString;
FDescrStack : TStrings;
FObservers : TList;
FOrgCursor : TCursor;
FProgress : Integer;
FProgressBusy : Boolean;
FProgressStack : TIntList;| Constructors |
constructor Create;********************************* TProgressor **********************************
constructor CreateInstance;| Functions |
procedure Abort;
destructor Destroy;
procedure EndProgress;
class function Instance: TProgressor;
procedure RegisterObserver(Observer: TProgressObserver);
procedure StartProgress(AProgress: Integer; const ADescription: String);
procedure StartProgressDef;
procedure UnregisterObserver(Observer: TProgressObserver);
procedure DescriptionChange;
function GetAborted: Boolean;
function GetDescription: String;
procedure PopProgress;
procedure ProgressChange;
procedure ProgressEnd;
procedure ProgressStart;
procedure PushProgress;
procedure SetBusyCursor(Value: TCursor);
procedure SetDescription(const Value: String);
procedure SetProgress(Value: Integer);| Properties |
property Aborted : Boolean
property BusyCursor : TCursor
property Description : String
property Progress : Integer| Events |
| Variables |
FAborted : Boolean;
FBusyCursor : TCursor;
FCursorStack : TIntList;
FDescription : PString;
FDescrStack : TStrings;
FObservers : TList;
FOrgCursor : TCursor;
FProgress : Integer;
FProgressBusy : Boolean;
FProgressStack : TIntList;