paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23: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 
(cherry picked from commit 43a9af055d)
This commit is contained in:
Bart 2025-01-02 20:29:17 +01:00 committed by Martin
parent 0b0cc5d47e
commit 4ef9ee5aeb
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

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