Browse Source

* Remove some debug things

Michaël Van Canneyt 1 year ago
parent
commit
dac320190d
1 changed files with 6 additions and 5 deletions
  1. 6 5
      packages/webwidget/src/htmlwidgets.pp

+ 6 - 5
packages/webwidget/src/htmlwidgets.pp

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