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

revert IDE: procedure list: simplified

Browse Source 
git-svn-id: trunk@52681 -
This commit is contained in:
mattias 2016-07-14 07:07:23 +00:00
parent 9d6c69f3a0
commit 68301dd8a1
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/procedurelist.pas
View File

@ -379,11 +379,13 @@ begin
or (lCodeTool.Tree.Root = nil) then
Exit; //==>
if Assigned(lCodeTool.Tree) then
begin
{ Find the starting point }
lNode := lCodeTool.FindImplementationNode;
if lNode = nil then
begin
{ fall back - guess we are working with a program or there is a syntax error }
{ fall back - guess we are working with a program unit }
lNode := lCodeTool.Tree.Root;
end;
@ -397,6 +399,7 @@ begin
end;
lNode := lNode.NextBrother;
end;
end; { if }
finally
if LV.Items.Count > 0 then
begin