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

* Patch from Silvio Clecio to add THTMLImageElement

Browse Source
This commit is contained in:
michael 2019-01-13 17:51:46 +00:00
parent 1d7bd679af
commit b69e9bbc36
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
packages/rtl/web.pas
View File

@ -1,6 +1,6 @@
{
This file is part of the Pas2JS run time library.
Copyright (c) 2017 by Mattias Gaertner
Copyright (c) 2017-2019 by the Pas2JS development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -649,7 +649,7 @@ Type
property Items[aIndex : NativeInt] : TJSDataTransferItem Read getitem; default;
end;
{ TDataTransfer }
{ TJSDataTransfer }
TJSDataTransfer = class external name 'DataTransfer'
private
@ -731,7 +731,7 @@ Type
Property error : TJSObject read FError;
end;
TJsPageTransitionEvent = class(TJSEvent)
TJSPageTransitionEvent = class(TJSEvent)
end;
TJSHashChangeEvent = class external name 'HashChangeEvent' (TJSEvent)
@ -2075,6 +2075,37 @@ Type
property validity : TJSValidityState read FValidity;
end;
{ TJSHTMLImageElement }
TJSHTMLImageElement = class external name 'HTMLImageElement' (TJSHTMLElement)
Private
FComplete: boolean; external name 'complete';
FCurrentSrc: String; external name 'currentSrc';
FNaturalHeight: NativeUInt; external name 'naturalHeight';
FNaturalWidth: NativeUInt; external name 'naturalWidth';
FX: NativeInt; external name 'x';
FY: NativeInt; external name 'y';
Public
alt: String;
crossOrigin: String;
decoding: String;
height: NativeUInt;
isMap: boolean;
referrerPolicy: String;
src: String;
sizes: String;
srcset: String;
useMap: String;
width: NativeUInt;
function decode : TJSPromise;
property complete: boolean read FComplete;
property currentSrc: String read FCurrentSrc;
property naturalHeight: NativeUInt read FNaturalHeight;
property naturalWidth: NativeUInt read FNaturalWidth;
property x: NativeInt read FX;
property y: NativeInt read FY;
end;
{ TJSHTMLMenuElement }
TJSHTMLMenuElement = class external name 'HTMLMenuElement' (TJSHTMLElement) // uhm... should it be declared? it is experimental at Mozilla docs...