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

IDE: Support HTML lists, <ul> and <li> tags in TCodeHelpManager. Issue #31991.

Browse Source 
git-svn-id: trunk@55307 -
This commit is contained in:
juha 2017-06-10 16:30:19 +00:00
parent 2387cb7f16
commit 412bf43f42
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/codehelp.pas
View File

@ -2934,13 +2934,16 @@ function TCodeHelpManager.GetFPDocNodeAsHTML(FPDocFile: TLazFPDocFile;
else if Node.NodeName='seealso' then else if Node.NodeName='seealso' then
Result:=Result+'<div class="title">'+'See also'+'</div>'; Result:=Result+'<div class="title">'+'See also'+'</div>';
Result:=Result+'<div class="'+Node.NodeName+'">'+s+'</div>'+LineEnding; Result:=Result+'<div class="'+Node.NodeName+'">'+s+'</div>'+LineEnding;
end else if (Node.NodeName='p') end else
if (Node.NodeName='p')
or (Node.NodeName='b') or (Node.NodeName='b')
or (Node.NodeName='pre') or (Node.NodeName='pre')
or (Node.NodeName='table') or (Node.NodeName='table')
or (Node.NodeName='th') or (Node.NodeName='th')
or (Node.NodeName='tr') or (Node.NodeName='tr')
or (Node.NodeName='td') or (Node.NodeName='td')
or (Node.NodeName='ul')
or (Node.NodeName='li')
or (Node.NodeName='hr') or (Node.NodeName='hr')
then begin then begin
Result:=Result+'<'+Node.NodeName+'>'+AddChilds(Node)+'</'+Node.NodeName+'>'; Result:=Result+'<'+Node.NodeName+'>'+AddChilds(Node)+'</'+Node.NodeName+'>';