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

+ Merged revisions 127,128

Browse Source 
git-svn-id: branches/fixes_2_0@129 -
This commit is contained in:
michael 2005-05-27 17:46:28 +00:00
parent a4ebb40cfe
commit 5e0dbf972f
5 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dw_html.pp
View File

@ -548,7 +548,7 @@ begin
El := Doc.CreateElement('meta'); El := Doc.CreateElement('meta');
HeadEl.AppendChild(El); HeadEl.AppendChild(El);
El['http-equiv'] := 'Content-Type'; El['http-equiv'] := 'Content-Type';
El['content'] := 'text/html; charset=iso8859-1'; El['content'] := 'text/html; charset=iso-8859-1';
TitleElement := Doc.CreateElement('title'); TitleElement := Doc.CreateElement('title');
HeadEl.AppendChild(TitleElement); HeadEl.AppendChild(TitleElement);
El := Doc.CreateElement('link'); El := Doc.CreateElement('link');
@ -804,7 +804,8 @@ end;
function THTMLWriter.CreateCode(Parent: TDOMNode): THTMLElement; function THTMLWriter.CreateCode(Parent: TDOMNode): THTMLElement;
begin begin
Result := CreateEl(CreateEl(Parent, 'tt'), 'nobr'); Result := CreateEl(CreateEl(Parent, 'tt'), 'span');
Result['class'] := 'code';
end; end;
function THTMLWriter.CreateWarning(Parent: TDOMNode): THTMLElement; function THTMLWriter.CreateWarning(Parent: TDOMNode): THTMLElement;

2
utils/fpdoc/fpde/frmmain.pp
View File

@ -464,7 +464,7 @@ end;
Procedure TMainForm.FileNewClick(Sender : TFPGtkObject; Data : Pointer); Procedure TMainForm.FileNewClick(Sender : TFPGtkObject; Data : Pointer);
Const Const
template = '<?xml version="1.0" encoding="ISO8859-1"?>'+LineEnding+ template = '<?xml version="1.0" encoding="ISO-8859-1"?>'+LineEnding+
'<fpdoc-descriptions>'+LineEnding+ '<fpdoc-descriptions>'+LineEnding+
'</fpdoc-descriptions>'+LineEnding; '</fpdoc-descriptions>'+LineEnding;

2
utils/fpdoc/fpde/pgeditor.pp
View File

@ -379,7 +379,7 @@ end;
Function TElementeditor.TestSave(S : String) : Boolean; Function TElementeditor.TestSave(S : String) : Boolean;
Const Const
Head = '<?xml version="1.0" encoding="ISO8859-1"?><fpdoc-descriptions>'; Head = '<?xml version="1.0" encoding="ISO-8859-1"?><fpdoc-descriptions>';
Tail = '</fpdoc-descriptions>'; Tail = '</fpdoc-descriptions>';
SErrorSaving = 'There is an error in the documentation nodes:'+LineEnding+ SErrorSaving = 'There is an error in the documentation nodes:'+LineEnding+
'%s'+LineEnding+ '%s'+LineEnding+

5
utils/fpdoc/fpdoc.css
View File

@ -53,6 +53,11 @@ h3, td.h3 {
font-size: 12pt font-size: 12pt
} }
/* source fragments */
span.code {
white-space: nowrap
}
/* symbols in source fragments */ /* symbols in source fragments */
span.sym { span.sym {
color: darkred color: darkred

2
utils/fpdoc/makeskel.pp
View File

@ -329,7 +329,7 @@ begin
Assign(f, OutputName); Assign(f, OutputName);
Rewrite(f); Rewrite(f);
WriteLn(f, '<?xml version="1.0" encoding="ISO8859-1"?>'); WriteLn(f, '<?xml version="1.0" encoding="ISO-8859-1"?>');
WriteLn(f, '<fpdoc-descriptions>'); WriteLn(f, '<fpdoc-descriptions>');
WriteLn(f, '<package name="', PackageName, '">'); WriteLn(f, '<package name="', PackageName, '">');