| Class TProgressObserver (unit WAProgrs) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| 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;