| Class TRefresher (unit Refreshr) |
TObject
| Constructors |
constructor Create;| Functions |
procedure AddDataset(Dataset: TDataset; CallbackEvent: TBDECallbackEvent;
RefreshEvent: TRefreshEvent);
procedure DatasetNeedsRefresh(Dataset: TDataset);
destructor Destroy;
procedure ForceDatasetRefreshNow;
procedure RefreshDatasets;
procedure RemoveDataset(Dataset: TDataset);
procedure AppOnActivate(Sender: TObject);
procedure AppOnDeactivate(Sender: TObject);
procedure AppOnIdle(Sender: TObject; var Done: Boolean);
procedure SetRefreshCheckPeriod(Value: Integer);| 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;