From a7b108df4b650ad7f36eb1fa50035262aa8aea6e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 18 Aug 2008 12:58:16 +0000
Subject: [PATCH] IDE: TMainIDE.FindSourceFile substitute macros in
 BaseDirectory

git-svn-id: trunk@16118 -
---
 ide/main.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/main.pp b/ide/main.pp
index 889ef11de6..658d851b4f 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11340,7 +11340,9 @@ begin
   end;
 
   AlreadySearchedPaths:='';
-  BaseDir:=AppendPathDelim(TrimFilename(BaseDirectory));
+  BaseDir:=BaseDirectory;
+  GlobalMacroList.SubstituteStr(BaseDir);
+  BaseDir:=AppendPathDelim(TrimFilename(BaseDir));
 
   // search file in base directory
   Result:=TrimFilename(BaseDir+AFilename);