From fa90e913dfd8471cc1c97e71c04d5537a854817e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 25 Sep 2005 08:48:13 +0000
Subject: [PATCH] * don't lowercase resource file name in delphi mode

git-svn-id: trunk@1180 -
---
 compiler/scandir.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 8100676a40..e81ec93ab1 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -844,7 +844,10 @@ implementation
           if Assigned(Current_Module) then
             begin
               delete(S,1,1);
-              insert(lower(current_module.modulename^),S,1);
+              if m_delphi in aktmodeswitches then
+                insert(current_module.modulename^,S,1)
+              else
+                insert(lower(current_module.modulename^),S,1);
             end;
         s:=AddExtension(FixFileName(s),target_info.resext);
         if target_info.res<>res_none then