|
@@ -3,14 +3,24 @@
|
|
{$h+}
|
|
{$h+}
|
|
{$PACKRECORDS C}
|
|
{$PACKRECORDS C}
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
+{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit pxlib;
|
|
unit pxlib;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
interface
|
|
interface
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+{$ifdef Unix}
|
|
|
|
+ UnixApi.Types,
|
|
|
|
+{$endif}
|
|
|
|
+ System.CTypes;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
{$ifdef unix}
|
|
{$ifdef unix}
|
|
unixtype,
|
|
unixtype,
|
|
{$endif}
|
|
{$endif}
|
|
ctypes;
|
|
ctypes;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
{ Automatically converted by H2Pas 1.0.0 from pxlib.h
|
|
{ Automatically converted by H2Pas 1.0.0 from pxlib.h
|
|
The following command line parameters were used:
|
|
The following command line parameters were used:
|
|
@@ -387,8 +397,13 @@ Procedure Loadpxlib(lib : String);
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
+{$IFDEF FPC_DOTTEDUNITS}
|
|
|
|
+uses
|
|
|
|
+ System.SysUtils, System.DynLibs;
|
|
|
|
+{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
uses
|
|
SysUtils, dynlibs;
|
|
SysUtils, dynlibs;
|
|
|
|
+{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
|
|
var
|
|
var
|
|
hlib : tlibhandle;
|
|
hlib : tlibhandle;
|