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

Allow Native QT5 FileDialogs.

Browse Source 
Disabled QFileDialogDontUseNativeDialog option.
DontUseNativeDialog option left for PreviewFileDialog only if QT_NATIVE_DIALOGS is not defined.
This commit is contained in:
Sergey Larin 2021-09-16 18:24:49 +03:00
parent 72b19e5f84
commit 376abd4257
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt5/qtwsdialogs.pp
View File

@ -382,9 +382,8 @@ begin
QWidget_setWindowFlags(FileDialog.Widget, QtDialog or QtWindowSystemMenuHint or QtCustomizeWindowHint);
{$endif}
{$note WE MUST USE NON NATIVE DIALOGS HERE, OTHERWISE NO SIGNALS #16532.}
QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
QFileDialogDontUseNativeDialog, True);
QFileDialogDontUseNativeDialog, False);
FileDialog.AttachEvents;
@ -655,10 +654,9 @@ begin
{$ifdef darwin}
QWidget_setWindowFlags(FileDialog.Widget, QtDialog or QtWindowSystemMenuHint or QtCustomizeWindowHint);
{$endif}
{. $note WE MUST USE NON NATIVE DIALOGS HERE, OTHERWISE NO SIGNALS #16532.}
{$ifndef QT_NATIVE_DIALOGS}
QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
QFileDialogDontUseNativeDialog, True);
{$ifndef QT_NATIVE_DIALOGS}
FileDialog.initializePreview(TPreviewFileDialog(ACommonDialog).PreviewFileControl);
{$endif}
FileDialog.AttachEvents;
@ -729,9 +727,8 @@ begin
QtWindowSystemMenuHint or QtCustomizeWindowHint);
{$endif}
{$note qt-4.5.0,qt-4.5.1 currently supports macosx only.}
QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
QFileDialogDontUseNativeDialog, True);
QFileDialogDontUseNativeDialog, False);
FileDialog.setFileMode(QFileDialogDirectoryOnly);