Class TProgressor (unit WAProgrs)

Inherits from

TObject

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;



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;