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

* Merging revisions 226 from trunk:

Browse Source 
------------------------------------------------------------------------
    r226 | michael | 2018-12-21 18:47:19 +0100 (Fri, 21 Dec 2018) | 1 line
    
    * Patch by Silvio Clecio to add TJSHTMLButtonElement and TJSHTMLElement
    ------------------------------------------------------------------------
This commit is contained in:
michael 2018-12-21 17:49:50 +00:00
parent 26ea0ed57e
commit 2beb0140fd
1 changed files with 44 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
packages/rtl/web.pas
View File

@ -2044,7 +2044,7 @@ Type
formMethod : string;
formNoValidate : Boolean;
formTarget : string;
height : Boolean;
height : string;
indeterminate : boolean;
inputMode : string;
max : string;
@ -2065,7 +2065,7 @@ Type
selectionDirection : string;
useMap : string;
value : string;
width : NativeInt;
width : string;
property files : TJSHTMLFileList Read FFiles;
property form : TJSHTMLFormElement read FForm;
property labels : TJSNodeList read FLabels;
@ -2075,6 +2075,48 @@ Type
property validity : TJSValidityState read FValidity;
end;
{ TJSHTMLMenuElement }
TJSHTMLMenuElement = class external name 'HTMLMenuElement' (TJSHTMLElement) // uhm... should it be declared? it is experimental at Mozilla docs...
end;
{ TJSHTMLButtonElement }
TJSHTMLButtonElement = class external name 'HTMLButtonElement' (TJSHTMLElement)
private
FForm: TJSHTMLFormElement; external name 'form';
FLabels: TJSNodeList; external name 'labels';
FValidationmMessage: String; external name 'validationMessage';
FValidity: TJSValidityState; external name 'validity';
FWillValidate: boolean; external name 'willValidate';
Public
autofocus : boolean;
disabled : boolean;
formAction : String;
formEnctype : String;
formMethod : String;
formNoValidate : Boolean;
formTarget : String;
menu: TJSHTMLMenuElement;
_type : String; external name 'type';
Public
property form : TJSHTMLFormElement Read FForm;
property labels : TJSNodeList Read FLabels;
property validationMessage : String Read FValidationmMessage;
property validity : TJSValidityState Read FValidity;
property willValidate : boolean read FWillValidate;
end;
{ TJSHTMLEmbedElement }
TJSHTMLEmbedElement = class external name 'HTMLEmbedElement' (TJSHTMLElement)
Public
height: String;
src: String;
_type : String; external name 'type';
width: String;
end;
{ TJSHTMLOptionElement }
TJSHTMLOptionElement = class external name 'Option' (TJSHTMLElement)