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

* loCancelPending added to load flags

Browse Source
This commit is contained in:
michael 2019-09-27 13:24:58 +00:00
parent 3485d5252b
commit dbaafd3dd8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1015,7 +1015,7 @@ type
TFilterOption = (foCaseInsensitive, foNoPartialCompare);
TFilterOptions = set of TFilterOption;
TLoadOption = (loNoOpen,loNoEvents,loAtEOF);
TLoadOption = (loNoOpen,loNoEvents,loAtEOF,loCancelPending);
TLoadOptions = Set of TLoadOption;
TDatasetLoadEvent = procedure(DataSet: TDataSet; Data : JSValue) of object;
TDatasetLoadFailEvent = procedure(DataSet: TDataSet; ID : Integer; Const ErrorMsg : String) of object;
@ -4524,6 +4524,8 @@ function TDataSet.Load(aOptions: TLoadOptions; aAfterLoad: TDatasetLoadEvent): B
begin
if loAtEOF in aOptions then
DatabaseError(SatEOFInternalOnly,Self);
if loCancelPending in aOptions then
CancelLoading;
Result:=DoLoad(aOptions,aAfterLoad);
end;