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

* Patch from Sergei Gorelkin to handle unicode

Browse Source 
git-svn-id: trunk@11638 -
This commit is contained in:
michael 2008-08-23 11:35:34 +00:00
parent 797103884a
commit 825a060618
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/dw_html.pp
View File

@ -621,8 +621,8 @@ var
begin
Doc := THTMLDocument.Create;
Result := Doc;
Doc.AppendChild(Doc.CreateProcessingInstruction(
'DOCTYPE', 'HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"'));
Doc.AppendChild(Doc.Impl.CreateDocumentType(
'HTML', '-//W3C//DTD HTML 4.0 Transitional//EN', ''));
HTMLEl := Doc.CreateHtmlElement;
Doc.AppendChild(HTMLEl);
@ -633,7 +633,7 @@ begin
HeadEl.AppendChild(El);
El['http-equiv'] := 'Content-Type';
El['content'] := Format('text/html; charset=%s',[charset]);
El['content'] := 'text/html; charset=utf-8';
TitleElement := Doc.CreateElement('title');
HeadEl.AppendChild(TitleElement);
El := Doc.CreateElement('link');