From 16e54b9154eac50b5a03c16528c89583c1c36a69 Mon Sep 17 00:00:00 2001
From: zeljan1 <zeljko@lazarus-ide.org>
Date: Fri, 25 Nov 2022 11:37:47 +0100
Subject: [PATCH] Qt6: fixed bug with TSelectDirectoryDialog.

---
 lcl/interfaces/qt6/qtwsdialogs.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt6/qtwsdialogs.pp b/lcl/interfaces/qt6/qtwsdialogs.pp
index e3eb33fcd0..ee6ec98b5d 100644
--- a/lcl/interfaces/qt6/qtwsdialogs.pp
+++ b/lcl/interfaces/qt6/qtwsdialogs.pp
@@ -730,7 +730,8 @@ begin
   QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
     QFileDialogOptionDontUseNativeDialog, False);
 
-  FileDialog.setFileMode(QFileDialogDirectoryOnly);
+  FileDialog.setFileMode(QFileDialogDirectory);
+  QFileDialog_setOption(QFileDialogH(FileDialog.Widget), QFileDialogOptionShowDirsOnly, True);
 
   FileDialog.AttachEvents;