|
@@ -17,6 +17,9 @@ unit commdlg;
|
|
|
|
|
|
|
|
interface
|
|
interface
|
|
|
{$mode delphi} // interface
|
|
{$mode delphi} // interface
|
|
|
|
|
+{$ifndef Win64}
|
|
|
|
|
+ {$packrecords 1}
|
|
|
|
|
+{$endif}
|
|
|
uses windows;
|
|
uses windows;
|
|
|
|
|
|
|
|
Type
|
|
Type
|
|
@@ -414,7 +417,7 @@ Type
|
|
|
TDEVNAMES = DEVNAMES;
|
|
TDEVNAMES = DEVNAMES;
|
|
|
PDEVNAMES = ^DEVNAMES;
|
|
PDEVNAMES = ^DEVNAMES;
|
|
|
|
|
|
|
|
- TPRINTDLGA = packed record
|
|
|
|
|
|
|
+ TPRINTDLGA = record
|
|
|
lStructSize : DWORD;
|
|
lStructSize : DWORD;
|
|
|
hwndOwner : HWND;
|
|
hwndOwner : HWND;
|
|
|
hDevMode : HANDLE;
|
|
hDevMode : HANDLE;
|
|
@@ -442,7 +445,7 @@ Type
|
|
|
TPDA = TPRINTDLGA;
|
|
TPDA = TPRINTDLGA;
|
|
|
PPDA = ^TPRINTDLGA;
|
|
PPDA = ^TPRINTDLGA;
|
|
|
|
|
|
|
|
- TPRINTDLGW = packed record
|
|
|
|
|
|
|
+ TPRINTDLGW = record
|
|
|
lStructSize : DWORD;
|
|
lStructSize : DWORD;
|
|
|
hwndOwner : HWND;
|
|
hwndOwner : HWND;
|
|
|
hDevMode : HANDLE;
|
|
hDevMode : HANDLE;
|
|
@@ -606,4 +609,4 @@ function PageSetupDlgW(_para1:LPPAGESETUPDLG):WINBOOL; stdcall; external 'comdlg
|
|
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
-end.
|
|
|
|
|
|
|
+end.
|
paul