forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

proj inspector, group folders on top of the tree

This commit is contained in:
Basile Burg 2018-11-04 10:46:48 +01:00
parent fb39a431d8
commit 933d3a352f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_projinspect.pas
View File

@ -670,7 +670,9 @@ begin
itm.SelectedIndex := 2;
end
else
for i := 0 to fProject.sourcesCount-1 do
// first pass only creates the folders so that they're shown on top
for j := 0 to 1 do
for i := 0 to fProject.sourcesCount-1 do
begin
fld := '';
rng.init(fProject.sourceRelative(i));
@ -680,11 +682,12 @@ begin
chd := nil;
fld := rng.takeUntil(['/','\']).yield;
chd := itm.FindNode(fld);
if chd.isNil then
if chd.isNil and ((rng.empty and (j = 1)) or (not rng.empty and (j = 0))) then
chd := Tree.Items.AddChild(itm, fld);
itm := chd;
if chd.isNotNil then
itm := chd;
// reached fname
if rng.empty then
if rng.empty and (j = 1) then
begin
itm.Data:= NewStr(fProject.sourceAbsolute(i));
itm.ImageIndex := 2;