瀏覽代碼

* resources aren't case sensitive
* fixed installing of default component loading handler

git-svn-id: trunk@1250 -

florian 20 年之前
父節點
當前提交
8cc183c1d1
共有 1 個文件被更改,包括 4 次插入3 次删除
  1. 4 3
      rtl/inc/elfres32.inc

+ 4 - 3
rtl/inc/elfres32.inc

@@ -113,12 +113,13 @@ begin
     Exit;
   If Not InitRes then
     InitializeResources;
-  searchhash:=HashELF(ResourceName);
-  n:=strpas(resourcename);
+  { resources aren't case sensitive }
+  n:=upcase(strpas(resourcename));
+  searchhash:=HashELF(n);
   I:=0;
   While (Result=0) and (I<ResInfoCount) do
     begin
-    if (FPCRuntimeResourceInfoArray[i].reshash=searchhash) and (FPCRuntimeResourceInfoArray[i].name=n) then
+    if (FPCRuntimeResourceInfoArray[i].reshash=searchhash) and (upcase(FPCRuntimeResourceInfoArray[i].name)=n) then
       result:=i+1;
     Inc(I);
     end;