Unit DbPrgrss

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997 Master-Bank } { } {

Classes

TDBCallback -
TDBProgress - TDBProgress

Functions

Types

TDBCallbackChain
TDBCallbackEvent
TOnMessageChange
TOnPercentChange
TOnProgressEvent
TOnTraceEvent

Constants

Variables


Functions


Types


TDBCallbackChain = (dcOnlyOnce, dcChain, dcReplace);

TDBCallbackEvent = function(CBInfo: Pointer): CBRType of object
TDBCallback - for internal use only
TOnMessageChange = procedure(Sender: TObject; const Msg: string) of object

TOnPercentChange = procedure(Sender: TObject; PercentDone: Integer) of object

TOnProgressEvent = procedure(Sender: TObject; var AbortQuery: Boolean) of object

TOnTraceEvent = procedure(Sender: TObject; Flag: TTraceFlag;
    const Msg: string) of object

Constants


Variables