paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 15:39:18 +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

33
ide/procedurelist.pas
View File

@ -379,24 +379,27 @@ begin
or (lCodeTool.Tree.Root = nil) then or (lCodeTool.Tree.Root = nil) then
Exit; //==> Exit; //==>
{ Find the starting point } if Assigned(lCodeTool.Tree) then
lNode := lCodeTool.FindImplementationNode;
if lNode = nil then
begin begin
{ fall back - guess we are working with a program or there is a syntax error } { Find the starting point }
lNode := lCodeTool.Tree.Root; lNode := lCodeTool.FindImplementationNode;
end; if lNode = nil then
{ populate the listview here }
lNode := lNode.FirstChild;
while lNode <> nil do
begin
if lNode.Desc = ctnProcedure then
begin begin
AddToListView(lCodeTool, lNode); { fall back - guess we are working with a program unit }
lNode := lCodeTool.Tree.Root;
end; end;
lNode := lNode.NextBrother;
end; { populate the listview here }
lNode := lNode.FirstChild;
while lNode <> nil do
begin
if lNode.Desc = ctnProcedure then
begin
AddToListView(lCodeTool, lNode);
end;
lNode := lNode.NextBrother;
end;
end; { if }
finally finally
if LV.Items.Count > 0 then if LV.Items.Count > 0 then
begin begin