paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 18:42:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: procedure list: simplified

Browse Source 
git-svn-id: trunk@52680 -
This commit is contained in:
mattias 2016-07-14 07:03:35 +00:00
parent a341cc7358
commit 9d6c69f3a0
5 changed files with 30 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -3537,6 +3537,7 @@ components/rtticontrols/ttiradiogroup.png -text svneol=unset#image/png
components/rtticontrols/ttispinedit.png -text svneol=unset#image/png
components/rtticontrols/ttitrackbar.png -text svneol=unset#image/png
components/rx/apputils.pp svneol=native#text/pascal
components/rx/lib/README.txt svneol=native#text/plain
components/rx/mrulist.pp svneol=native#text/pascal
components/rx/mrulist.res -text
components/rx/placement.pp svneol=native#text/pascal
@ -3649,6 +3650,7 @@ components/sqlite/languages/sqlitecompstrings.fr.po svneol=native#text/plain
components/sqlite/languages/sqlitecompstrings.hu.po svneol=native#text/plain
components/sqlite/languages/sqlitecompstrings.po svneol=native#text/plain
components/sqlite/languages/sqlitecompstrings.ru.po svneol=native#text/plain
components/sqlite/lib/README.txt svneol=native#text/plain
components/sqlite/registersqlite.pas svneol=native#text/plain
components/sqlite/registersqlite3.pas svneol=native#text/plain
components/sqlite/sqlite3icon.res -text

10
.gitignore vendored
View File

@ -100,6 +100,8 @@ components/printers/design/printers4lazidetest/*.bak
components/printers/design/printers4lazidetest/units
components/printers/design/units
components/printers/lib
components/printers/lib/*.bak
components/printers/lib/units
components/printers/samples/*.bak
components/printers/samples/dialogs/*.bak
components/printers/samples/dialogs/units
@ -121,9 +123,13 @@ components/rtticontrols/*.bak
components/rtticontrols/examples/*.bak
components/rtticontrols/examples/units
components/rtticontrols/lib
components/rtticontrols/lib/*.bak
components/rtticontrols/lib/units
components/rtticontrols/units
components/rx/*.bak
components/rx/lib
components/rx/lib/*.bak
components/rx/lib/units
components/rx/units
components/sdf/*.bak
components/sdf/units
@ -135,9 +141,13 @@ components/simpleideintf/examples/units
components/simpleideintf/units
components/sqldb/*.bak
components/sqldb/lib
components/sqldb/lib/*.bak
components/sqldb/lib/units
components/sqldb/units
components/sqlite/*.bak
components/sqlite/lib
components/sqlite/lib/*.bak
components/sqlite/lib/units
components/sqlite/units
components/synedit/*.bak
components/synedit/design/*.bak

2
components/rx/lib/README.txt Normal file
View File

@ -0,0 +1,2 @@
Output directory for the rx package.

2
components/sqlite/lib/README.txt Normal file
View File

@ -0,0 +1,2 @@
Output directory of package SQLiteLaz

31
ide/procedurelist.pas
View File

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