codetools: search unit first in current directory, issue #37466

git-svn-id: branches/fixes_2_0@63676 -

components/codetools/directorycacher.pas

@@ -1314,6 +1314,11 @@ begin
       if Directory='' then begin
         // virtual directory => search virtual unit
         Result:=Pool.FindVirtualUnit(AUnitName);
+      end else begin
+        // search in current directory
+        Result:=FindUnitSource(AUnitName,AnyCase);
+        if Result<>'' then
+          Result:=Directory+Result;
       end;
       if Result='' then begin
         // search in search path