Browse Source

* Fix issue ID, property wrongly defined in TJSHTMLLabel

michael 4 years ago
parent
commit
15c584548a
1 changed files with 6 additions and 2 deletions
  1. 6 2
      packages/rtl/web.pas

+ 6 - 2
packages/rtl/web.pas

@@ -2675,9 +2675,13 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
   end;
   end;
 
 
   TJSHTMLLabelElement = class external name 'HTMLLabelElement' (TJSHTMLElement)
   TJSHTMLLabelElement = class external name 'HTMLLabelElement' (TJSHTMLElement)
+  Private
+    FForm: TJSHTMLFormElement; external name 'form';
+    FControl : TJSHTMLElement; external name 'control';
   Public
   Public
-    For_ : String; external name 'for';
-    form : String;
+    For_ : String; external name 'htmlFor';
+    property Control : TJSHTMLElement Read FControl;
+    property Form : TJSHTMLFormElement read FForm;
   end;
   end;
 
 
   { TJSHTMLTextAreaElement }
   { TJSHTMLTextAreaElement }