Browse Source

* Move published properties to new class TJSONDataset

michael 7 years ago
parent
commit
38f9b72225
2 changed files with 29 additions and 0 deletions
  1. 26 0
      packages/fcl-db/extjsdataset.pas
  2. 3 0
      packages/fcl-db/jsondataset.pas

+ 26 - 0
packages/fcl-db/extjsdataset.pas

@@ -36,6 +36,32 @@ type
     property Root : String Read FRoot Write FRoot;
     // property IDField
     property IDField : String Read FIDField Write FIDField;
+  published
+    Property FieldDefs;
+    // redeclared data set properties
+    property Active;
+    property BeforeOpen;
+    property AfterOpen;
+    property BeforeClose;
+    property AfterClose;
+    property BeforeInsert;
+    property AfterInsert;
+    property BeforeEdit;
+    property AfterEdit;
+    property BeforePost;
+    property AfterPost;
+    property BeforeCancel;
+    property AfterCancel;
+    property BeforeDelete;
+    property AfterDelete;
+    property BeforeScroll;
+    property AfterScroll;
+    property OnCalcFields;
+    property OnDeleteError;
+    property OnEditError;
+    property OnFilterRecord;
+    property OnNewRecord;
+    property OnPostError;
   end;
 
   { TExtJSJSONObjectDataSet }

+ 3 - 0
packages/fcl-db/jsondataset.pas

@@ -185,6 +185,9 @@ type
     function GetFieldData(Field: TField; Buffer: TDatarecord): JSValue;  override;
     procedure SetFieldData(Field: TField; var Buffer: TDatarecord; AValue : JSValue);  override;
     function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint; override;
+  end;
+
+  TJSONDataset = Class(TBaseJSONDataset)
   published
     Property FieldDefs;
     // redeclared data set properties