paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 04:29:25 +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 );
QFileDialogFileMode = ( // QFileDialog::FileMode (1)
QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles, QFileDialogDirectoryOnly );
QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles);
QFileDialogAcceptMode = ( // QFileDialog::AcceptMode (1)
QFileDialogAcceptOpen, QFileDialogAcceptSave );

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

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