Class TRefresher (unit Refreshr)

Inherits from

TObject

Constructors


constructor Create;

TRefresher ----------------------------------------------------------------


Functions

procedure AddDataset(Dataset: TDataset; CallbackEvent: TBDECallbackEvent; RefreshEvent: TRefreshEvent);

else Dataset got closed

procedure DatasetNeedsRefresh(Dataset: TDataset);


destructor Destroy;

Redirect application-events:

procedure ForceDatasetRefreshNow;


procedure RefreshDatasets;

Debug: ShowMessage(DataSets[ds].

procedure RemoveDataset(Dataset: TDataset);


procedure AppOnActivate(Sender: TObject);

TRefresher.

procedure AppOnDeactivate(Sender: TObject);

we want fresh data, whatever happend while we were out:

procedure AppOnIdle(Sender: TObject; var Done: Boolean);


procedure SetRefreshCheckPeriod(Value: Integer);

DbiGetRecord(Handle, dbiNoLock, nil, nil); { will do also

Properties

property RefreshCheckPeriod : Integer


Events

event OnAddDataset : TAddDatasetEvent


event OnRemoveDataset : TRemoveDatasetEvent


Variables

AppActivated : Boolean;


FAppOnActivate : TNotifyEvent;


FAppOnDeactivate : TNotifyEvent;


FAppOnIdle : TIdleEvent;


FDatasetsToRefresh : TList;


FOnAddDataset : TAddDatasetEvent;


FOnRemoveDataset : TRemoveDatasetEvent;


FRefreshCheckPeriod : Integer;


FRefreshTimer : Word;



Constructors


constructor Create;

TRefresher ----------------------------------------------------------------


Functions


procedure AddDataset(Dataset: TDataset; CallbackEvent: TBDECallbackEvent; RefreshEvent: TRefreshEvent);

else Dataset got closed


procedure DatasetNeedsRefresh(Dataset: TDataset);


destructor Destroy;

Redirect application-events:


procedure ForceDatasetRefreshNow;


procedure RefreshDatasets;

Debug: ShowMessage(DataSets[ds].Name);


procedure RemoveDataset(Dataset: TDataset);


procedure AppOnActivate(Sender: TObject);

TRefresher.Destroy is called from MyExitProc only


procedure AppOnDeactivate(Sender: TObject);

we want fresh data, whatever happend while we were out:


procedure AppOnIdle(Sender: TObject; var Done: Boolean);


procedure SetRefreshCheckPeriod(Value: Integer);

DbiGetRecord(Handle, dbiNoLock, nil, nil); { will do also


Properties


property RefreshCheckPeriod : Integer


Events


event OnAddDataset : TAddDatasetEvent


event OnRemoveDataset : TRemoveDatasetEvent


Variables


AppActivated : Boolean;


FAppOnActivate : TNotifyEvent;


FAppOnDeactivate : TNotifyEvent;


FAppOnIdle : TIdleEvent;


FDatasetsToRefresh : TList;


FOnAddDataset : TAddDatasetEvent;


FOnRemoveDataset : TRemoveDatasetEvent;


FRefreshCheckPeriod : Integer;


FRefreshTimer : Word;