paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 09:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use CHECKED="checked" and SELECTED="selected" as required by HTML specs

Browse Source 
git-svn-id: trunk@29061 -
This commit is contained in:
pierre 2014-11-11 18:24:09 +00:00
parent 12f75980bf
commit 13a069c9d2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-base/src/whtml.pp
View File

@ -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')