From 1a1f0509373abadaf307b305aede58a1cb6d99f6 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 13 Nov 2014 16:30:36 +0100
Subject: [PATCH] fix symb string not expanded in elem display

---
 src/ce_projinspect.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index 9ed48ae5..2c263c51 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -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;