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

IDE: Fix HTML hint to show special chars ("<", ">") for generics. Issue #20012, patch from Anton

Browse Source 
git-svn-id: trunk@32007 -
This commit is contained in:
juha 2011-08-19 03:56:14 +00:00
parent 6232d1d0e7
commit 19ff4dd485
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/idehelpmanager.pas
View File

@ -355,6 +355,7 @@ begin
while (EndPos<=length(Result)) do begin
if Result[EndPos]='"' then begin
// skip " tag
inc(EndPos);
while (EndPos<=length(Result)) and (Result[EndPos]<>'"') do
inc(EndPos);
if EndPos>length(Result) then break;
@ -434,6 +435,28 @@ begin
end
else
Result:=copy(Result,1,p-1)+copy(Result,EndPos,length(Result));
end else if Result[p]='&' then begin
// special chars: &lt; &gt; &amp;
if (Result[p+1]='l') and (Result[p+2]='t') then begin
EndPos:=p+3;
if (EndPos<length(Result)) and (Result[EndPos]=';') then
inc(EndPos);
Result:=copy(Result,1,p-1)+'<'+copy(Result,EndPos,length(Result));
end else
if (Result[p+1]='g') and (Result[p+2]='t') then begin
EndPos:=p+3;
if (EndPos<length(Result)) and (Result[EndPos]=';') then
inc(EndPos);
Result:=copy(Result,1,p-1)+'>'+copy(Result,EndPos,length(Result));
end else
if (Result[p+1]='a') and (Result[p+2]='m') and (Result[p+3]='p') then begin
EndPos:=p+4;
if (EndPos<length(Result)) and (Result[EndPos]=';') then
inc(EndPos);
// double '&' to prevent underlining
Result:=copy(Result,1,p-1)+'&&'+copy(Result,EndPos,length(Result));
end;
inc(p);
end else
inc(p);
end;