From 019ca2032ab6828577e64b0eecfa1b25f2b2ff7d Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 18 Aug 2009 16:57:03 +0000 Subject: [PATCH] IDE: codehelp: add line ends between fpdoc descriptions git-svn-id: trunk@21287 - --- ide/codehelp.pas | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/ide/codehelp.pas b/ide/codehelp.pas index d6290ab2e3..2a77f75784 100644 --- a/ide/codehelp.pas +++ b/ide/codehelp.pas @@ -2061,8 +2061,10 @@ var if not IsHTML then begin IsHTML:=true; if HTMLHint<>'' then - HTMLHint:=TextToHTML(HTMLHint)+le+le; + HTMLHint:=TextToHTML(HTMLHint)+le; end; + if HTMLHint<>'' then + HTMLHint:=HTMLHint+le; HTMLHint:=HTMLHint+s; end; @@ -2116,7 +2118,7 @@ begin if Item.ElementNode<>nil then begin NodeValues:=Item.FPDocFile.GetValuesFromNode(Item.ElementNode); - {$ifdef VerboseHints} + {$ifdef VerboseHints} for f:=Low(TFPDocItem) to High(TFPDocItem) do DebugLn(['TCodeHelpManager.GetHint ',FPDocItemNames[f],' ',NodeValues[f]]); {$endif} @@ -2173,9 +2175,9 @@ begin if IsHTML then HTMLHint:=''+HTMLHint+''; end; - {$ifdef VerboseHints} + { $ifdef VerboseHints} DebugLn(['TCodeHelpManager.GetHint END Hint="',HTMLHint,'"']); - {$endif} + { $endif} end; function TCodeHelpManager.CreateElement(Code: TCodeBuffer; X, Y: integer;