paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 23:00:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: code hint: nicer spacing

Browse Source 
git-svn-id: trunk@31196 -
This commit is contained in:
mattias 2011-06-13 10:12:27 +00:00
parent f131c8a242
commit 81c166a802
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/codehelp.pas
View File

@ -2501,7 +2501,7 @@ begin
ElementNames.Free; ElementNames.Free;
FreeListOfPCodeXYPosition(ListOfPCodeXYPosition); FreeListOfPCodeXYPosition(ListOfPCodeXYPosition);
HTMLHint:='<html><head><link rel="stylesheet" href="lazdoc://lazarus/lazdoc.css" type="text/css"></head>'+LineEnding HTMLHint:='<html><head><link rel="stylesheet" href="lazdoc://lazarus/lazdoc.css" type="text/css"></head>'+LineEnding
+'<body>'+LineEnding+HTMLHint+LineEnding+'</body>'+LineEnding; +'<body>'+LineEnding+HTMLHint+'</body>'+LineEnding;
end; end;
debugln(['TCodeHelpManager.GetHTMLHint2 ',HTMLHint]); debugln(['TCodeHelpManager.GetHTMLHint2 ',HTMLHint]);
Result:=chprSuccess; Result:=chprSuccess;
@ -2537,7 +2537,7 @@ begin
NestedComments,true,true,true); NestedComments,true,true,true);
if CommentStr <> '' then if CommentStr <> '' then
Result:=Result+'<span class="comment">'+TextToHTML(CommentStr) Result:=Result+'<span class="comment">'+TextToHTML(CommentStr)
+'('+SourcePosToFPDocHint(CodeXYPos^,'Source')+')' +' ('+SourcePosToFPDocHint(CodeXYPos^,'Source')+')'
+'</span><br>'+LineEnding; +'</span><br>'+LineEnding;
end; end;