Class TRefresher (unit Refreshr) |
Inherits from
TObject
constructor Create;
- TRefresher ----------------------------------------------------------------
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
property RefreshCheckPeriod : Integer
event OnAddDataset : TAddDatasetEvent
event OnRemoveDataset : TRemoveDatasetEvent
AppActivated : Boolean;
FAppOnActivate : TNotifyEvent;
FAppOnDeactivate : TNotifyEvent;
FAppOnIdle : TIdleEvent;
FDatasetsToRefresh : TList;
FOnAddDataset : TAddDatasetEvent;
FOnRemoveDataset : TRemoveDatasetEvent;
FRefreshCheckPeriod : Integer;
FRefreshTimer : Word;
constructor Create;
TRefresher ----------------------------------------------------------------
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
property RefreshCheckPeriod : Integer
event OnAddDataset : TAddDatasetEvent
event OnRemoveDataset : TRemoveDatasetEvent
AppActivated : Boolean;
FAppOnActivate : TNotifyEvent;
FAppOnDeactivate : TNotifyEvent;
FAppOnIdle : TIdleEvent;
FDatasetsToRefresh : TList;
FOnAddDataset : TAddDatasetEvent;
FOnRemoveDataset : TRemoveDatasetEvent;
FRefreshCheckPeriod : Integer;
FRefreshTimer : Word;