From 43a9af055dc3a14e1d02461f2be65800c159e559 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Thu, 2 Jan 2025 20:29:17 +0100
Subject: [PATCH] Win32: implement TOpenOptionEx.ofExNoPlacesBar for pre-Vista
 style dialog. Resolves issue #41301.

---
 lcl/interfaces/win32/win32wsdialogs.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 793db5d129..d1f912e1ba 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -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.