paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 22:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debugger hint: convert to html

Browse Source 
git-svn-id: trunk@32576 -
This commit is contained in:
mattias 2011-09-30 20:19:34 +00:00
parent e9e9d97ea2
commit 55a583102f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -16300,7 +16300,9 @@ begin
if SmartHintStr<>'' then begin if SmartHintStr<>'' then begin
p:=System.Pos('<body>',lowercase(SmartHintStr)); p:=System.Pos('<body>',lowercase(SmartHintStr));
if p>0 then begin if p>0 then begin
Insert('<div class="debuggerhint">'+Expression+'</div><br>',SmartHintStr,p+length('<body>')); Insert('<div class="debuggerhint">'
+CodeHelpBoss.TextToHTML(Expression)+'</div><br>',
SmartHintStr,p+length('<body>'));
end else begin end else begin
SmartHintStr:=Expression+LineEnding+LineEnding+SmartHintStr; SmartHintStr:=Expression+LineEnding+LineEnding+SmartHintStr;
end; end;