Browse Source

* alias a few more types on windows. This makes developing portable software easier, since one doesn't have to conditionally import windows for e.g. tfiletime.

git-svn-id: trunk@20375 -
marco 13 years ago
parent
commit
f8f5c3cd23
1 changed files with 7 additions and 1 deletions
  1. 7 1
      rtl/objpas/types.pp

+ 7 - 1
rtl/objpas/types.pp

@@ -233,7 +233,13 @@ type
   TFileTime = _FILETIME;
   TFileTime = _FILETIME;
   FILETIME = _FILETIME;
   FILETIME = _FILETIME;
   PFileTime = ^TFileTime;
   PFileTime = ^TFileTime;
-
+{$else}
+type
+  PCLSID    = Windows.PCLSID;
+  TCLSID    = Windows.CLSID;
+  TFiletime = Windows.TFileTime;
+  Filetime  = Windows.FileTime;
+  PFiletime = Windows.PFileTime;
 {$endif Windows}
 {$endif Windows}
 
 
 type
 type