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

* TJSBlob moved to WebOrWorker

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-22 16:58:47 +02:00
parent 86cf9f57c3
commit d03f94beaf
1 changed files with 14 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/rtl/web.pas
View File

@ -38,7 +38,6 @@ Type
TJSPointerEvent = Class;
TJSUIEvent = class;
TJSTouchEvent = Class;
TJSBlob = class;
TJSPermissions = class;
TJSFileSystemFileHandle = class;
TJSFileSystemFileHandleArray = array of TJSFileSystemFileHandle;
@ -62,6 +61,7 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
*)
TJSEvent = weborworker.TJSEvent;
TEventListenerEvent = TJSEvent;
TJSBlob = weborworker.TJSBlob;
TJSEventHandler = reference to function(Event: TEventListenerEvent): boolean; safecall;
TJSRawEventHandler = reference to Procedure(Event: TJSEvent); safecall;
@ -1595,9 +1595,18 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
{ TJSHTMLElement }
TJSDatasetMap = class external name 'Object' (TJSObject)
Private
function GetProps(Name: String): String; external name '[]';
procedure SetProps(Name: String; const AValue: String); external name '[]';
Public
property Map[Name: String]: string read GetProps write SetProps; default;
end;
TJSHTMLElement = class external name 'HTMLElement' (TJSElement)
private
FDataset: TJSObject ; external name 'dataset';
FDataset: TJSDatasetMap ; external name 'dataset';
FDatasetObj: TJSObject ; external name 'dataset';
FIsContentEditable: Boolean ; external name 'isContentEditable';
FOffsetHeight: Double; external name 'offsetHeight';
FOffsetLeft: Double; external name 'offsetLeft';
@ -1700,8 +1709,9 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
procedure scrollIntoView(alignToTop : Boolean);
procedure scrollIntoView(aObj : TJSObject);
procedure scrollIntoView(Opts: TJSScrollIntoViewOptions);
property dataset : TJSObject read FDataset;
property isContentEditable : Boolean read FIsContentEditable Write FIsContentEditable;
property dataset : TJSDatasetMap read FDataset;
property datasetObj : TJSObject read FDatasetObj;
property isContentEditable : Boolean read FIsContentEditable;
property offsetHeight : Double Read FOffsetHeight;
property offsetLeft : Double Read FOffsetLeft;
property offsetTop : Double Read FOffsetTop;
@ -1771,23 +1781,6 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
property valueMissing : Boolean read FValueMissing;
end;
{ TJSBlob }
TJSBlob = class external name 'Blob' (TJSEventTarget)
private
FSize: NativeInt; external name 'size';
FType: string; external name 'type';
Public
procedure close;
function slice : TJSBlob; overload;
function slice(aStart : NativeInt) : TJSBlob; overload;
function slice(aStart,aEnd : NativeInt) : TJSBlob; overload;
function slice(aStart,aEnd : NativeInt; AContentType : String) : TJSBlob; overload;
function arrayBuffer : TJSPromise;
property size : NativeInt read FSize;
property _type : string read FType; deprecated;
property type_ : string read FType;
end;
{ TJSHTMLFile }