winunits-base: don't use "packed records", pack all records according to winapi headers definition: {$packrecords 1} for non win64 mode

git-svn-id: trunk@17312 -

packages/winunits-base/src/commdlg.pp

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