Переглянути джерело

* Add ResolveStatus to TResolveInfo

michael 5 роки тому
батько
коміт
ba11536829
1 змінених файлів з 2 додано та 0 видалено
  1. 2 0
      packages/fcl-db/db.pas

+ 2 - 0
packages/fcl-db/db.pas

@@ -1039,6 +1039,7 @@ type
   TResolveInfo = record
     Data : JSValue;
     Status : TUpdateStatus;
+    ResolveStatus : TResolveStatus;
     Error : String; // Only filled on error.
     BookMark : TBookmark;
     _private : JSValue; // for use by descendents of TDataset
@@ -2915,6 +2916,7 @@ begin
   Result.BookMark:=anUpdate.Bookmark;
   Result.Data:=anUpdate.Data;
   Result.Status:=anUpdate.Status;
+  Result.ResolveStatus:=anUpdate.ResolveStatus;
   Result.Error:=anUpdate.ResolveError;
 end;