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

Qt6: removed deprecated enum QFileDialogDirectoryOnly, fixed setting file mode.

Browse Source
This commit is contained in:
zeljan1 2022-11-25 11:57:49 +01:00
parent 16e54b9154
commit e0e905677a
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt6/qt62.pas
View File

@ -12569,7 +12569,7 @@ type
QFileDialogDetail, QFileDialogList ); QFileDialogDetail, QFileDialogList );
QFileDialogFileMode = ( // QFileDialog::FileMode (1) QFileDialogFileMode = ( // QFileDialog::FileMode (1)
QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles, QFileDialogDirectoryOnly ); QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles);
QFileDialogAcceptMode = ( // QFileDialog::AcceptMode (1) QFileDialogAcceptMode = ( // QFileDialog::AcceptMode (1)
QFileDialogAcceptOpen, QFileDialogAcceptSave ); QFileDialogAcceptOpen, QFileDialogAcceptSave );

5
lcl/interfaces/qt6/qtwsdialogs.pp
View File

@ -445,7 +445,10 @@ begin
QtFileDialog.setAcceptMode(QFileDialogAcceptOpen) QtFileDialog.setAcceptMode(QFileDialogAcceptOpen)
else else
if ACommonDialog is TSelectDirectoryDialog then if ACommonDialog is TSelectDirectoryDialog then
QtFileDialog.setFileMode(QFileDialogDirectoryOnly); begin
QtFileDialog.setFileMode(QFileDialogDirectory);
QFileDialog_setOption(QFileDialogH(QtFileDialog.Widget), QFileDialogOptionShowDirsOnly, True);
end;
ActiveWin := QtWidgetSet.GetActiveWindow; ActiveWin := QtWidgetSet.GetActiveWindow;
if ACommonDialog is TSaveDialog then if ACommonDialog is TSaveDialog then