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

Win32: implement TOpenOptionEx.ofExNoPlacesBar for pre-Vista style dialog. Resolves issue #41301.

Browse Source
This commit is contained in:
Bart 2025-01-02 20:29:17 +01:00
parent ae5e5d4d6e
commit 43a9af055d
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

@ -727,6 +727,8 @@ begin
nMaxFile := FileNameBufferLen + 1; // Size in TCHARs
lpfnHook := Windows.LPOFNHOOKPROC(@OpenFileDialogCallBack);
Flags := GetFlagsFromOptions(AOpenDialog.Options);
if (ofExNoPlacesBar in AOpenDialog.OptionsEx) then
FlagsEx := OFN_EX_NOPLACESBAR;
New(DialogRec);
// new initializes the filename fields, because ansistring and widestring
// are automated types.