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

Win32: TWin32WSSavePictureDialog: setting FOS_FORCEPREVIEWPANEON on a Vista Save dialog has no effect, so don't force setting it.

Browse Source
This commit is contained in:
Bart 2025-07-16 19:08:06 +02:00
parent 8801d4e986
commit 08f783a09a
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/win32/win32wsextdlgs.pp
View File

@ -205,16 +205,10 @@ begin
Result := inherited CreateHandle(ACommonDialog);
if (Result = 0) or (Result = INVALID_HANDLE_VALUE) then
Exit;
if CanUseVistaDialogs(TOpenDialog(ACommonDialog)) and not IsXPStyleFallBack(TOpenDialog(ACommonDialog)) then
begin
Dialog := IFileSaveDialog(Result);
if Succeeded(Dialog.GetOptions(@fos)) then
begin
fos := fos or FOS_FORCEPREVIEWPANEON;
Dialog.SetOptions(fos);
end;
end
else
// According to https://learn.microsoft.com/en-us/windows/win32/api/shobjidl_core/ne-shobjidl_core-_fileopendialogoptions
// FOS_FORCEPREVIEWPANEON has no effect on a save dialog.
// So don't bother in that case
if (not CanUseVistaDialogs(TOpenDialog(ACommonDialog))) or IsXPStyleFallBack(TOpenDialog(ACommonDialog)) then
AddPreviewControl(ACommonDialog, LPOPENFILENAME(Result));
end;