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

IDE: code hints: fixed showing ancestor docs in same units

Browse Source 
git-svn-id: trunk@41814 -
This commit is contained in:
mattias 2013-06-23 11:31:47 +00:00
parent c1ad3c17bd
commit ea5032ad89
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/codehelp.pas
View File

@ -2482,19 +2482,28 @@ begin
for n:=1 to 30 do begin
ElementName:=CodeNodeToElementName(CTTool,CTNode);
//debugln(['TCodeHelpManager.GetHTMLHintForNode ElementName=',ElementName]);
i:=ElementNames.Count-1;
while (i>=0) and (ElementNames.Objects[i]<>CTTool)
and (SysUtils.CompareText(ElementNames[i],ElementName)<>0) do
while (i>=0) do begin
if (ElementNames.Objects[i]=CTTool)
and (SysUtils.CompareText(ElementNames[i],ElementName)=0) then
break;
dec(i);
end;
if i>=0 then begin
// a loop or a forward definition
{$IFDEF VerboseCodeHelp}
debugln(['TCodeHelpManager.GetHTMLHintForNode already seen "',ElementName,'"']);
{$ENDIF}
end else begin
ElementNames.AddObject(ElementName,CTTool);
// add fpdoc entry
FPDocFilename:=GetFPDocFilenameForSource(CTTool.MainFilename,
false,CacheWasUsed,AnOwner);
//DebugLn(['TCodeHelpManager.GetHTMLHintForNode: FPDocFilename=',FPDocFilename,' ElementName="',ElementName,'"']);
{$IFDEF VerboseCodeHelp}
DebugLn(['TCodeHelpManager.GetHTMLHintForNode: FPDocFilename=',FPDocFilename,' ElementName="',ElementName,'"']);
{$ENDIF}
if (not CacheWasUsed) and (not Complete) then exit(chprParsing);
if FPDocFilename<>'' then begin