paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 14:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: re-introduce DisableVistaDialogs define, so we can test XP dialogs on Vista and up.

Browse Source 
git-svn-id: trunk@52790 -
This commit is contained in:
bart 2016-08-08 12:16:31 +00:00
parent 6b0c4428ec
commit 99a55b4afc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -325,7 +325,11 @@ end;
function CanUseVistaDialogs(const AOpenDialog: TOpenDialog): Boolean;
begin
{$IFnDEF DisableVistaDialogs}
Result := (WindowsVersion >= wvVista) and not (ofOldStyleDialog in AOpenDialog.Options);
{$ELSE}
Result := False;
{$ENDIF}
end;