paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 06:09:30 +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
Exit; //==>
{ Find the starting point }
lNode := lCodeTool.FindImplementationNode;
if lNode = nil then
if Assigned(lCodeTool.Tree) then
begin
{ fall back - guess we are working with a program or there is a syntax error }
lNode := lCodeTool.Tree.Root;
end;
{ populate the listview here }
lNode := lNode.FirstChild;
while lNode <> nil do
begin
if lNode.Desc = ctnProcedure then
{ Find the starting point }
lNode := lCodeTool.FindImplementationNode;
if lNode = nil then
begin
AddToListView(lCodeTool, lNode);
{ fall back - guess we are working with a program unit }
lNode := lCodeTool.Tree.Root;
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
if LV.Items.Count > 0 then
begin