paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 18:07:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reload option

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-02 22:21:10 +02:00
parent f5a20bd63d
commit 7f7dc95804
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/db.pas
View File

@ -1036,7 +1036,7 @@ type
TFilterOption = (foCaseInsensitive, foNoPartialCompare);
TFilterOptions = set of TFilterOption;
TLoadOption = (loNoOpen,loNoEvents,loAtEOF,loCancelPending);
TLoadOption = (loNoOpen,loNoEvents,loAtEOF,loCancelPending,loReload);
TLoadOptions = Set of TLoadOption;
TDatasetLoadEvent = procedure(DataSet: TDataSet; Data : JSValue) of object;
TDatasetLoadFailEvent = procedure(DataSet: TDataSet; ID : Integer; Const ErrorMsg : String) of object;
@ -4631,7 +4631,12 @@ begin
Request:=DataProxy.GetDataRequest(aOptions,@HandleRequestResponse,aAfterLoad);
Request.FDataset:=Self;
If Active then
Request.FBookmark:=GetBookmark;
begin
if loReload in aOPtions then
Close
else
Request.FBookmark:=GetBookmark;
end;
Inc(FDataRequestID);
Request.FRequestID:=FDataRequestID;
if DataProxy.DoGetData(Request) then