Class TDBProgress (unit DbPrgrss)

Inherits from

TComponent

TDBProgress

Constructors


constructor Create(AOwner: TComponent);

TDBProgress


Functions

destructor Destroy;


function ProgressMsgValue(const Msg: string): Longint;

if (FTimer <> nil) and FTimer.

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;



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;