浏览代码

* fix for Mantis 16195, Delphi compatibility resource handle types were not 64-bit proof.

git-svn-id: trunk@15117 -
marco 15 年之前
父节点
当前提交
0ba6c22b28
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      rtl/inc/resh.inc

+ 3 - 3
rtl/inc/resh.inc

@@ -1,9 +1,9 @@
   
 type
   //Obsolete types, kept for backwards compatibility
-  TResourceHandle = Cardinal;
-  HMODULE = Cardinal;
-  HGLOBAL = Cardinal;
+  TResourceHandle = PtrUint;
+  HMODULE = PtrUint;
+  HGLOBAL = PtrUint;
   //New types
   TFPResourceHandle = PtrUInt;
   TFPResourceHMODULE = PtrUInt;