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

* Publish required property on some controls

Browse Source
This commit is contained in:
michael 2020-06-08 08:17:22 +00:00
parent 6a3a4d4cf2
commit 157cce8bab
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/webwidget/htmlwidgets.pp
View File

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