paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 23:27:50 +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
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;