paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 17:00:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

wiki: Fix internal links in created chm files to be functional also with LHelp

Browse Source 
git-svn-id: trunk@49423 -
This commit is contained in:
wp 2015-06-24 06:44:18 +00:00
parent 0cc48033bb
commit 7553136423
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/wiki/lazwiki/wiki2xhtmlconvert.pas
View File

@ -344,8 +344,17 @@ begin
if HeaderTxt<>'' then begin
HRef:=WikiHeaderToLink(HeaderTxt);
// add anchor
Page.CurDOMNode.SetAttribute('id', HRef);
// modern version: <h2 id="something">Text</h> - commented because not understood by IpHTMLPanel:
// Page.CurDOMNode.SetAttribute('id', HRef);
// old version: <h2><a name="something">Text</a></h2>
Node := doc.CreateElement('a');
Node.SetAttribute('name', HRef);
Node.AppendChild(Page.CurDOMNode.DetachChild(Page.CurDOMNode.FirstChild));
Page.CurDOMNode.AppendChild(Node);
// add TOC link
// <li class="toclevel-2"><a href="#something">Text</a></li>
LINode:=doc.CreateElement('li');
LINode.SetAttribute('class', 'toclevel-'+IntToStr(Page.SectionLevel));
Page.CurTOCNode.AppendChild(LINode);