소스 검색

* 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 년 전
부모
커밋
f8f5c3cd23
1개의 변경된 파일7개의 추가작업 그리고 1개의 파일을 삭제
  1. 7 1
      rtl/objpas/types.pp

+ 7 - 1
rtl/objpas/types.pp

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