| Class TDBProgress (unit DbPrgrss) |
TComponent
TDBProgress
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function ProgressMsgValue(const Msg: string): Longint;
procedure Loaded;
procedure Notification(AComponent: TComponent; AOperation: TOperation);
procedure Activate;
procedure Deactivate;
procedure FreeTimer;
function GenProgressCallback(CBInfo: Pointer): CBRType;
function GetDBSession: TSession;
function QryProgressCallback(CBInfo: Pointer): CBRType;
procedure SetActive(Value: Boolean);
procedure SetGauge(Value: TControl);
procedure SetMessage(const Value: string);
procedure SetMessageControl(Value: TControl);
procedure SetPercent(Value: Integer);
procedure SetSessionName(const Value: string);
procedure SetTrace(Value: Boolean);
procedure SetTraceFlags(Value: TTraceFlags);
procedure StartTimer;
procedure TimerExpired(Sender: TObject);
function TraceCallBack(CBInfo: Pointer): CBRType;| Properties |
property Active : Boolean
property Gauge : TControl
property MessageControl : TControl
property SessionName : string
property Trace : Boolean
property TraceFlags : TTraceFlags
property WaitCursor : TCursor| Events |
event OnMessageChange : TOnMessageChange
event OnPercentChange : TOnPercentChange
event OnProgress : TOnProgressEvent
event OnTrace : TOnTraceEvent| Variables |
FActive : Boolean;
FGauge : TControl;
FGenProgressCallback : TObject;
FMessageControl : TControl;
FOnMessageChange : TOnMessageChange;
FOnPercentChange : TOnPercentChange;
FOnProgress : TOnProgressEvent;
FOnTrace : TOnTraceEvent;
FQryProgressCallback : TObject;
FSessionLink : TObject;
FSessionName : string;
FStartTime : Longint;
FStreamedValue : Boolean;
FTimer : TRxTimer;
FTrace : Boolean;
FTraceCallback : TObject;
FTraceFlags : TTraceFlags;
FWaitCursor : TCursor;| Constructors |
constructor Create(AOwner: TComponent);TDBProgress
| Functions |
destructor Destroy;
function ProgressMsgValue(const Msg: string): Longint;if (FTimer <> nil) and FTimer.Enabled then SetWaitCursor;
procedure Loaded;
procedure Notification(AComponent: TComponent; AOperation: TOperation);
procedure Activate;
procedure Deactivate;
procedure FreeTimer;
function GenProgressCallback(CBInfo: Pointer): CBRType;
function GetDBSession: TSession;
function QryProgressCallback(CBInfo: Pointer): CBRType;and (GetTickCount > FStartTime
procedure SetActive(Value: Boolean);
procedure SetGauge(Value: TControl);
procedure SetMessage(const Value: string);
procedure SetMessageControl(Value: TControl);
procedure SetPercent(Value: Integer);
procedure SetSessionName(const Value: string);
procedure SetTrace(Value: Boolean);
procedure SetTraceFlags(Value: TTraceFlags);
procedure StartTimer;force update cursor
procedure TimerExpired(Sender: TObject);
function TraceCallBack(CBInfo: Pointer): CBRType;| Properties |
property Active : Boolean
property Gauge : TControl
property MessageControl : TControl
property SessionName : string
property Trace : Boolean
property TraceFlags : TTraceFlags
property WaitCursor : TCursor| Events |
event OnMessageChange : TOnMessageChange
event OnPercentChange : TOnPercentChange
event OnProgress : TOnProgressEvent
event OnTrace : TOnTraceEvent| Variables |
FActive : Boolean;
FGauge : TControl;
FGenProgressCallback : TObject;
FMessageControl : TControl;
FOnMessageChange : TOnMessageChange;
FOnPercentChange : TOnPercentChange;
FOnProgress : TOnProgressEvent;
FOnTrace : TOnTraceEvent;
FQryProgressCallback : TObject;
FSessionLink : TObject;
FSessionName : string;
FStartTime : Longint;
FStreamedValue : Boolean;
FTimer : TRxTimer;
FTrace : Boolean;
FTraceCallback : TObject;
FTraceFlags : TTraceFlags;
FWaitCursor : TCursor;