paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 21:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: code help: if ndoe in include file show link to unit

Browse Source 
git-svn-id: trunk@51596 -
This commit is contained in:
mattias 2016-02-11 11:41:40 +00:00
parent edcf3ab650
commit 44e40b779d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codehelp.pas
View File

@ -2559,6 +2559,7 @@ begin
finally finally
ElementNames.Free; ElementNames.Free;
FreeListOfPCodeXYPosition(ListOfPCodeXYPosition); FreeListOfPCodeXYPosition(ListOfPCodeXYPosition);
// Add package name // Add package name
s:=OwnerToFPDocHint(AnOwner); s:=OwnerToFPDocHint(AnOwner);
if s<>'' then if s<>'' then
@ -2674,6 +2675,13 @@ begin
Tool.CleanPosToCaret(Tool.Tree.Root.StartPos,XYPos); Tool.CleanPosToCaret(Tool.Tree.Root.StartPos,XYPos);
end; end;
Result:=Result+' '+SourcePosToFPDocHint(XYPos)+LineEnding; Result:=Result+' '+SourcePosToFPDocHint(XYPos)+LineEnding;
if (XYPos.Code<>nil) and (CompareFilenames(Tool.MainFilename,XYPos.Code.Filename)<>0)
then begin
// node in include file => show link to unit
Result:=Result+'<br> unit '+SourcePosToFPDocHint(Tool.MainFilename,1,1,Tool.GetSourceName)+LineEnding;
end;
Result:=Result+'</div>'+LineEnding; Result:=Result+'</div>'+LineEnding;
end; end;