浏览代码

* Dotted filenames for package nvapi

Michaël Van Canneyt 2 年之前
父节点
当前提交
610b269a12
共有 3 个文件被更改,包括 13 次插入0 次删除
  1. 3 0
      packages/nvapi/namespaced/Api.Nvapi.pas
  2. 3 0
      packages/nvapi/namespaces.lst
  3. 7 0
      packages/nvapi/src/nvapi.pas

+ 3 - 0
packages/nvapi/namespaced/Api.Nvapi.pas

@@ -0,0 +1,3 @@
+unit Api.Nvapi;
+{$DEFINE FPC_DOTTEDUNITS}
+{$i nvapi.pas}

+ 3 - 0
packages/nvapi/namespaces.lst

@@ -0,0 +1,3 @@
+src/nvapi.pas=namespaced/Api.Nvapi.pas
+{s*:src/}=namespaced/
+{i+:src/}

+ 7 - 0
packages/nvapi/src/nvapi.pas

@@ -57,7 +57,9 @@
 //
 //
 ///////////////////////////////////////////////////////////////////////////////
 ///////////////////////////////////////////////////////////////////////////////
 
 
+{$IFNDEF FPC_DOTTEDUNITS}
 unit nvapi;
 unit nvapi;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 {$ifndef FPC}
 {$ifndef FPC}
 {$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
 {$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
@@ -72,8 +74,13 @@ unit nvapi;
 
 
 interface
 interface
 
 
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  WinApi.Windows;
+{$ELSE FPC_DOTTEDUNITS}
 uses
 uses
   Windows;
   Windows;
+{$ENDIF FPC_DOTTEDUNITS}
 
 
 // ====================================================
 // ====================================================
 // Universal NvAPI Definitions
 // Universal NvAPI Definitions