paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: procedure list: show local procs

Browse Source 
git-svn-id: trunk@52684 -
This commit is contained in:
mattias 2016-07-14 07:44:41 +00:00
parent c2aed806b6
commit f00b8a8e59
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/procedurelist.pas
View File

@ -395,7 +395,7 @@ begin
begin
AddToListView(lCodeTool, lNode);
end;
lNode := lNode.NextBrother;
lNode := lNode.Next;
end;
finally
if LV.Items.Count > 0 then
@ -479,7 +479,7 @@ begin
if FSearchAll and tbFilterAny.Down then
begin
lAttr := [phpWithoutClassKeyword, phpWithoutParamList, phpWithoutBrackets,
phpWithoutSemicolon, phpAddClassName];
phpWithoutSemicolon, phpAddClassName, phpAddParentProcs];
end
else
begin
@ -498,7 +498,7 @@ begin
{ procedure name }
lNodeText := pCodeTool.ExtractProcHead(pNode,
[phpWithoutParamList, phpWithoutBrackets, phpWithoutSemicolon]);
[phpAddParentProcs, phpWithoutParamList, phpWithoutBrackets, phpWithoutSemicolon]);
lItem.SubItems.Add(lNodeText);
{ type }
@ -516,7 +516,7 @@ begin
{ full procedure name used in statusbar }
lNodeText := pCodeTool.ExtractProcHead(pNode,
[phpWithStart,phpWithVarModifiers,
[phpWithStart,phpAddParentProcs,phpWithVarModifiers,
phpWithParameterNames,phpWithDefaultValues,phpWithResultType,
phpWithOfObject,phpWithCallingSpecs,phpWithProcModifiers]);
lItem.SubItems.Add(lNodeText);