paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:03:35 +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 or (lCodeTool.Tree.Root = nil) then
Exit; //==> Exit; //==>
if Assigned(lCodeTool.Tree) then
begin
{ Find the starting point } { Find the starting point }
lNode := lCodeTool.FindImplementationNode; lNode := lCodeTool.FindImplementationNode;
if lNode = nil then if lNode = nil then
begin 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; lNode := lCodeTool.Tree.Root;
end; end;
@ -397,6 +399,7 @@ begin
end; end;
lNode := lNode.NextBrother; lNode := lNode.NextBrother;
end; end;
end; { if }
finally finally
if LV.Items.Count > 0 then if LV.Items.Count > 0 then
begin begin