paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: fix compilation on win64 by using the callback declaration from the windows unit, because the record declaration is used from the windows unit too. In fpc < 2.5.1 the windows unit still contains a bug and the callback from the commdlg is not type compatible.

Browse Source 
git-svn-id: trunk@30897 -
This commit is contained in:
vincents 2011-05-25 13:43:46 +00:00
parent 82427d006f
commit efd27b4488
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -701,7 +701,7 @@ begin
{$endif} {$endif}
nMaxFile := FileNameBufferLen + 1; // Size in TCHARs nMaxFile := FileNameBufferLen + 1; // Size in TCHARs
lpfnHook := LPOFNHOOKPROC(@OpenFileDialogCallBack); lpfnHook := Windows.LPOFNHOOKPROC(@OpenFileDialogCallBack);
Flags := GetFlagsFromOptions(AOpenDialog.Options); Flags := GetFlagsFromOptions(AOpenDialog.Options);
New(DialogRec); New(DialogRec);
// new initializes the filename fields, because ansistring and widestring // new initializes the filename fields, because ansistring and widestring