Browse Source

* Add Anchor and Template element classes

michael 5 years ago
parent
commit
68eefbea8e
1 changed files with 32 additions and 0 deletions
  1. 32 0
      packages/rtl/web.pas

+ 32 - 0
packages/rtl/web.pas

@@ -2491,6 +2491,33 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     Property sizes: TJSDOMSettableTokenList{TJSDOMTokenList} read fsizes;
   end;
 
+  { TJSHTMLAnchorElement }
+
+  TJSHTMLAnchorElement = class external name 'HTMLAnchorElement' (TJSHTMLElement)
+  Private
+    FOrigin: string;external name 'origin';
+    frelList: TJSDOMTokenList; external name 'relList';
+  Public
+    href: string;
+    download: string;
+    hash: string;
+    host: string;
+    hostname: string;
+    hreflang: string;
+    media: string ;
+    password: string;
+    Protocol: string;
+    referrerPolicy : string;
+    rel: string ;
+    rev: string deprecated; // obsolete property
+    target: string ;
+    text : string;
+    type_ : string external name 'type';
+    username : string;
+    Property relList: TJSDOMTokenList read frelList;
+    Property origin: string Read FOrigin;
+  end;
+
   { TJSHTMLMenuElement }
 
   TJSHTMLMenuElement = class external name 'HTMLMenuElement' (TJSHTMLElement) //  uhm... should it be declared? it is experimental at Mozilla docs...
@@ -3600,6 +3627,11 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     Property Entry[aIndex : String] : TJSFormDataEntryValue read Get;
   end;
 
+  TJSHTMLTemplateElement = class external name 'HTMLTemplateElement' (TJSHTMLElement)
+    content : TJSHTMLElement;
+  end;
+
+
 var
   document : TJSDocument; external name 'document';
   window : TJSWindow; external name 'window';