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

Win32: ifdef the const declaration for FOS_OKBUTTONNEEDSINTERACTION in TWin32WSOpenDialog.GetVistaOptions.

Browse Source
This commit is contained in:
Bart 2023-08-31 22:46:08 +02:00
parent c818418cfa
commit 1367a3c865
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -833,8 +833,10 @@ end;
class function TWin32WSOpenDialog.GetVistaOptions(Options: TOpenOptions; class function TWin32WSOpenDialog.GetVistaOptions(Options: TOpenOptions;
OptionsEx: TOpenOptionsEx; SelectFolder: Boolean): FileOpenDialogOptions; OptionsEx: TOpenOptionsEx; SelectFolder: Boolean): FileOpenDialogOptions;
{$if fpc_fullversion < 30301}
const const
FOS_OKBUTTONNEEDSINTERACTION = $200000; //not yet in ShlObj FOS_OKBUTTONNEEDSINTERACTION = $200000; //not yet in ShlObj
{$endif fpc_fullversion < 30301}
begin begin
Result := 0; Result := 0;
if ofAllowMultiSelect in Options then Result := Result or FOS_ALLOWMULTISELECT; if ofAllowMultiSelect in Options then Result := Result or FOS_ALLOWMULTISELECT;