From aab25bd8d14821e5a343d31aa13706134682fe24 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 1 May 2012 14:54:17 +0000
Subject: [PATCH] IDE: select frame: search in completesrcpath

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

diff --git a/ide/main.pp b/ide/main.pp
index 05558a5089..4d2b3a9fe8 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -10061,6 +10061,7 @@ var
   var
     LFMFilename: String;
   begin
+    //debugln(['AddUnit ',AFilename]);
     if not FilenameIsPascalUnit(AFilename) then exit;
     if CompareFilenames(AFilename,ActiveUnitInfo.Filename)=0 then exit;
     if (AnUnitName='') then
@@ -10069,6 +10070,7 @@ var
       if (not ActiveUnitInfo.IsVirtual) then
         exit; // virtual UnitToFilename can not be accessed from disk UnitToFilename
     end else begin
+      //debugln(['AddUnit unitpath=',UnitPath]);
       if SearchDirectoryInSearchPath(UnitPath,ExtractFilePath(AFilename))<1 then
         exit; // not reachable
     end;
@@ -10116,7 +10118,7 @@ begin
   GetCurrentUnit(ActiveSourceEditor, ActiveUnitInfo);
   if ActiveUnitInfo=nil then exit;
   Owners:=PkgBoss.GetPossibleOwnersOfUnit(ActiveUnitInfo.Filename,[]);
-  UnitPath:=CodeToolBoss.GetUnitPathForDirectory(ExtractFilePath(ActiveUnitInfo.Filename));
+  UnitPath:=CodeToolBoss.GetCompleteSrcPathForDirectory(ExtractFilePath(ActiveUnitInfo.Filename));
   PkgList:=nil;
   UnitToFilename:=TStringToStringTree.Create(false);
   UnitList:=TStringList.Create;