From 157cce8bab8553012b33141ebc714ac3852f6a6a Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 8 Jun 2020 08:17:22 +0000
Subject: [PATCH] * Publish required property on some controls

---
 packages/webwidget/htmlwidgets.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/packages/webwidget/htmlwidgets.pp b/packages/webwidget/htmlwidgets.pp
index cceb00e..47af141 100644
--- a/packages/webwidget/htmlwidgets.pp
+++ b/packages/webwidget/htmlwidgets.pp
@@ -213,6 +213,7 @@ Type
   Published
     Property Value;
     Property ValueName;
+    Property Required;
     Property TextType : TInputTextType Read GetTextType Write SetTextType;
     property AsNumber : NativeInt Read GetAsNumber Write SetAsNumber;
     Property MaxLength : NativeInt Read GetMaxLength Write SetMaxLength;
@@ -296,6 +297,7 @@ Type
     function InputType : String; override;
     Class Function AllowChildren : Boolean; override;
   Published
+    Property Required;
     Property ValueName;
     Property Date : TDateTime Read GetDate Write SetDate;
   end;
@@ -332,6 +334,7 @@ Type
     Property FileInfos[aIndex : Integer] : TFileInfo Read GetFileInfo;
   Published
     Property ValueName;
+    Property Required;
     Property Multiple : Boolean Read GetMultiple Write SetMultiple;
   end;
 
@@ -344,6 +347,7 @@ Type
   Published
     Property ValueName;
     Property Value;
+    Property Required;
   end;
 
   { TTextAreaWidget }
@@ -1351,6 +1355,7 @@ end;
 
 procedure TCustomTextWidget.SetEnvelopeTag(AValue: TTextTag);
 begin
+  // Writeln('Setting text tag : ',aValue);
   if FEnvelopeTag=AValue then Exit;
   FEnvelopeTag:=AValue;
   if (FEnvelopeTag=ttCustom) and (FCustomTag='') then
@@ -1380,6 +1385,7 @@ end;
 
 procedure TCustomTextWidget.ApplyWidgetSettings(aElement: TJSHTMLElement);
 begin
+  // Writeln('ApplyWidgetSettings: ',aElement.tagName);
   inherited ApplyWidgetSettings(aElement);
   ApplyText(aElement);
 end;
@@ -1398,6 +1404,7 @@ begin
   Result:=TextTagNames[FEnvelopeTag];
   if Result='' then
     Result:='div';
+  // Writeln('Getting element tag: ',Result);
 end;
 
 { TTextLinesWidget }
@@ -2523,7 +2530,7 @@ begin
     Result:=Inp.InnerText
   else
     Result:=FText;
-  Writeln('Getting text: ',Result,' inner : ',FText);
+  // Writeln('Getting text: ',Result,' inner : ',FText);
 end;
 
 function TCustomInputWidget.GetReadOnly: Boolean;