diff options
Diffstat (limited to 'packages/fcl-base/src/whtml.pp')
-rw-r--r-- | packages/fcl-base/src/whtml.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/fcl-base/src/whtml.pp b/packages/fcl-base/src/whtml.pp index cd191884fd..8955326c04 100644 --- a/packages/fcl-base/src/whtml.pp +++ b/packages/fcl-base/src/whtml.pp @@ -339,7 +339,7 @@ Var begin A:='NAME="'+Name+'" TYPE="checkbox" VALUE="'+Value+'"'; If Checked then - A:=A+' CHECKED=1'; + A:=A+' CHECKED="checked"'; TagStart('INPUT',A); end; @@ -357,7 +357,7 @@ Var begin A:='NAME="'+Name+'" TYPE="checkbox" VALUE="'+Value+'"'; If Checked then - A:=A+' CHECKED=1'; + A:=A+' CHECKED="checked"'; TagStart('INPUT',A); end; @@ -410,7 +410,7 @@ begin end; end; If (Value<>'') and (V=Value) then - A:=A+' SELECTED'; + A:=A+' SELECTED="selected"'; TagStart('OPTION',A); end; TagEnd('SELECT') |