ソースを参照

* 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;