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

+ Lookup using string, not widestring

Browse Source
This commit is contained in:
michael 2004-08-31 09:40:05 +00:00
parent b24163cef6
commit d7b63f9440
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
utils/fpdoc/dw_html.pp
View File

@ -1686,7 +1686,7 @@ Procedure THTMLWriter.AppendSeeAlsoSection(AElement : TPasElement;DocNode : TDoc
var
Node: TDOMNode;
TableEl, El, TREl, TDEl, ParaEl, NewEl, DescrEl: TDOMElement;
s: String;
l,s: String;
f: Text;
IsFirstSeeAlso : Boolean;
@ -1708,16 +1708,18 @@ begin
El:=TDOMElement(Node);
TREl:=CreateTR(TableEl);
ParaEl:=CreatePara(CreateTD_vtop(TREl));
s:= ResolveLinkID(El['id']);
l:=El['id'];
s:= ResolveLinkID(l);
if Length(s)=0 then
begin
WriteLn(Format(SErrUnknownLinkID, [El['id']]));
WriteLn(Format(SErrUnknownLinkID, [l]));
NewEl := CreateEl(ParaEl,'b')
end
else
NewEl := CreateLink(ParaEl,s);
AppendText(NewEl,El['id']);
DescrEl := Engine.FindShortDescr(AElement.GetModule, El['id']);
l:=El['id'];
DescrEl := Engine.FindShortDescr(AElement.GetModule,L);
if Assigned(DescrEl) then
begin
AppendNbSp(CreatePara(CreateTD(TREl)), 2);
@ -2802,7 +2804,10 @@ end.
{
$Log$
Revision 1.8 2004-08-28 18:04:49 michael
Revision 1.9 2004-08-31 09:40:05 michael
+ Lookup using string, not widestring
Revision 1.8 2004/08/28 18:04:49 michael
+ Added context to topic pages
Revision 1.7 2004/07/25 22:40:13 michael