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

* Move published properties to new class TJSONDataset

Browse Source
This commit is contained in:
michael 2018-02-11 21:06:25 +00:00
parent a3ea761606
commit 38f9b72225
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-db/extjsdataset.pas
View File

@ -36,6 +36,32 @@ type
property Root : String Read FRoot Write FRoot; property Root : String Read FRoot Write FRoot;
// property IDField // property IDField
property IDField : String Read FIDField Write FIDField; 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; end;
{ TExtJSJSONObjectDataSet } { TExtJSJSONObjectDataSet }

3
packages/fcl-db/jsondataset.pas
View File

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