Class TProgressObserver (unit WAProgrs)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

****************************** TProgressObserver *******************************


Functions

procedure Abort;


destructor Destroy;


procedure EndProgress;


procedure StartProgress(AProgress: Integer; const ADescription: String);


procedure StartProgressDef;


procedure DescriptionChange;


function GetAborted: Boolean;


function GetBusyCursor: TCursor;


function GetDescription: String;


function GetProgress: Integer;


function GetProgressor: TProgressor;


procedure ProgressChange;


procedure ProgressEnd;


procedure ProgressStart;


procedure SetAborted(Value: Boolean);


procedure SetAccuracy(Value: Integer);


procedure SetBusyCursor(Value: TCursor);


procedure SetDescription(Value: String);


procedure SetProgress(Value: Integer);


Properties

property Accuracy : Integer


property BusyCursor : TCursor


property Enabled : Boolean


property Aborted : Boolean


property Description : String


property Progress : Integer


property Progressor : TProgressor


Events

event OnDescriptionChange : TNotifyEvent


event OnFinish : TNotifyEvent


event OnProgressChange : TNotifyEvent


event OnStart : TNotifyEvent


Variables

FAccuracy : Integer;


FEnabled : Boolean;


FLastProgress : Integer;


FOnDescriptionChange : TNotifyEvent;


FOnFinish : TNotifyEvent;


FOnProgressChange : TNotifyEvent;


FOnStart : TNotifyEvent;



Constructors


constructor Create(AOwner: TComponent);

****************************** TProgressObserver *******************************


Functions


procedure Abort;


destructor Destroy;


procedure EndProgress;


procedure StartProgress(AProgress: Integer; const ADescription: String);


procedure StartProgressDef;


procedure DescriptionChange;


function GetAborted: Boolean;


function GetBusyCursor: TCursor;


function GetDescription: String;


function GetProgress: Integer;


function GetProgressor: TProgressor;


procedure ProgressChange;


procedure ProgressEnd;


procedure ProgressStart;


procedure SetAborted(Value: Boolean);


procedure SetAccuracy(Value: Integer);


procedure SetBusyCursor(Value: TCursor);


procedure SetDescription(Value: String);


procedure SetProgress(Value: Integer);


Properties


property Accuracy : Integer


property BusyCursor : TCursor


property Enabled : Boolean


property Aborted : Boolean


property Description : String


property Progress : Integer


property Progressor : TProgressor


Events


event OnDescriptionChange : TNotifyEvent


event OnFinish : TNotifyEvent


event OnProgressChange : TNotifyEvent


event OnStart : TNotifyEvent


Variables


FAccuracy : Integer;


FEnabled : Boolean;


FLastProgress : Integer;


FOnDescriptionChange : TNotifyEvent;


FOnFinish : TNotifyEvent;


FOnProgressChange : TNotifyEvent;


FOnStart : TNotifyEvent;