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

* Remove some debug things

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-01-14 14:48:25 +01:00
parent 0cffa26111
commit dac320190d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/webwidget/src/htmlwidgets.pp
View File

@ -2234,8 +2234,9 @@ Var
begin
inherited ApplyWidgetSettings(aElement);
el.multiple:=Self.Multiple;
if Size<>-1 then
el.Size:=Self.Size;
// Writeln('Checking size : ',FSize);
if FSize<>-1 then
el.Size:=FSize;
BuildOptions(el);
// We need to force this.
if SelectedIndex=-1 then
@ -3115,7 +3116,7 @@ Var
Inp : TJSHTMLElement;
begin
Writeln('Setting text: ',AValue,' previous : ',Text);
// Writeln('Setting text: ',AValue,' previous : ',Text);
if aValue=Text then exit;
FText:=aValue;
Inp:=Element;
@ -3152,9 +3153,9 @@ begin
Inp.value:=FValue;
Inp.Required:=FRequired;
Inp.ReadOnly:=FReadOnly;
Writeln('Setting inner text to "',FText,'"');
// Writeln('Setting inner text to "',FText,'"');
Inp.innerHtml:=FText;
Writeln('Setting inner text is now "',Inp.innerText,'"');
// Writeln('Setting inner text is now "',Inp.innerText,'"');
end;
end;