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

* Add Label and TextArea elements

Browse Source
This commit is contained in:
michael 2019-07-28 21:07:26 +00:00
parent d472e24793
commit f0deef7fcc
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
packages/rtl/web.pas
View File

@ -2448,6 +2448,44 @@ Type
property willValidate : boolean read FWillValidate; property willValidate : boolean read FWillValidate;
end; end;
TJSHTMLLabelElement = class external name 'HTMLLabelElement' (TJSHTMLElement)
Public
For_ : String; external name 'for';
form : String;
end;
{ TJSHTMLTextAreaElement }
TJSHTMLTextAreaElement = class external name 'HTMLTextAreaElement' (TJSHTMLElement)
private
FForm: TJSHTMLFormElement; external name 'form';
FTextLength: NativeInt; external name 'textKength';
FType: String; external name 'type';
FValidationMessage: String; external name 'validationMessage';
FValidity: TJSValidityState; external name 'validity';
FWillValidate: boolean; external name 'willValidate';
Public
defaultValue : string;
value : string;
rows : cardinal;
cols : cardinal;
autofocus : boolean;
disabled : boolean;
maxLength : nativeInt;
readOnly : Boolean;
required : Boolean;
selectionStart : Cardinal;
selectionEnd : Cardinal;
selectionDirection : String;
wrap : string;
Property Form : TJSHTMLFormElement Read FForm;
Property Type_: String Read FType;
Property textLength : NativeInt Read FTextLength;
Property validity : TJSValidityState Read FValidity;
property willValidate : boolean read FWillValidate;
property validationMessage : String Read FValidationMessage;
end;
{ TJSHTMLEmbedElement } { TJSHTMLEmbedElement }
TJSHTMLEmbedElement = class external name 'HTMLEmbedElement' (TJSHTMLElement) TJSHTMLEmbedElement = class external name 'HTMLEmbedElement' (TJSHTMLElement)