浏览代码

* Not all OSes have NilHandle

Michaël Van Canneyt 1 年之前
父节点
当前提交
2444c5ec79
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      rtl/objpas/classes/classesh.inc

+ 4 - 1
rtl/objpas/classes/classesh.inc

@@ -25,6 +25,7 @@
 type
 type
    { extra types to compile with FPC }
    { extra types to compile with FPC }
    HRSRC =  TFPResourceHandle deprecated;
    HRSRC =  TFPResourceHandle deprecated;
+   
    TComponentName = type string;
    TComponentName = type string;
    THandle = System.THandle;
    THandle = System.THandle;
 
 
@@ -39,7 +40,9 @@ type
 {$endif}
 {$endif}
 
 
 const
 const
-
+{$IF NOT DECLARED(NilHandle)}
+  NilHandle = TFPResourceHMODULE(0);
+{$ENDIF}
 { Maximum TList size }
 { Maximum TList size }
 
 
 {$ifdef cpu16}
 {$ifdef cpu16}