Explorar o código

* Not all OSes have NilHandle

Michaël Van Canneyt hai 1 ano
pai
achega
2444c5ec79
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  1. 4 1
      rtl/objpas/classes/classesh.inc

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

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