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

fix symb string not expanded in elem display

This commit is contained in:
Basile Burg 2014-11-13 16:30:36 +01:00
parent 1713c1c9c2
commit 1a1f050937
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_projinspect.pas
View File

@ -321,7 +321,7 @@ begin
begin
if fold = '' then
continue;
itm := Tree.Items.AddChild(fImpsNode, shortenPath(fold));
itm := Tree.Items.AddChild(fImpsNode, shortenPath(CEMainForm.expandSymbolicString(fold)));
itm.ImageIndex := 5;
itm.SelectedIndex := 5;
end;
@ -331,7 +331,7 @@ begin
begin
if fold = '' then
continue;
itm := Tree.Items.AddChild(fInclNode, shortenPath(fold));
itm := Tree.Items.AddChild(fInclNode, shortenPath(CEMainForm.expandSymbolicString(fold)));
itm.ImageIndex := 5;
itm.SelectedIndex := 5;
end;
@ -344,11 +344,11 @@ begin
lst := TStringList.Create;
try
if listAsteriskPath(src, lst) then for src in lst do begin
itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
itm := Tree.Items.AddChild(fXtraNode, shortenPath(CEMainForm.expandSymbolicString(src)));
itm.ImageIndex := 2;
itm.SelectedIndex := 2;
end else begin
itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
itm := Tree.Items.AddChild(fXtraNode, shortenPath(CEMainForm.expandSymbolicString(src)));
itm.ImageIndex := 2;
itm.SelectedIndex := 2;
end;