paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 22:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@17312 -
This commit is contained in:
paul 2011-04-13 09:12:12 +00:00
parent 32ec75216c
commit 16b2db1b8f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/winunits-base/src/commdlg.pp
View File

@ -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.