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

Qt5: removed deprecated stuff (since qt-4.5), fixed TQtFileDialog.setReadOnly

Browse Source
This commit is contained in:
zeljan1 2022-11-25 11:59:35 +01:00
parent e0e905677a
commit 405a23618b
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt5/qt56.pas
View File

@ -12219,7 +12219,7 @@ type
QFileDialogDetail, QFileDialogList );
QFileDialogFileMode = ( // QFileDialog::FileMode (1)
QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles, QFileDialogDirectoryOnly );
QFileDialogAnyFile, QFileDialogExistingFile, QFileDialogDirectory, QFileDialogExistingFiles);
QFileDialogAcceptMode = ( // QFileDialog::AcceptMode (1)
QFileDialogAcceptOpen, QFileDialogAcceptSave );
@ -12237,7 +12237,8 @@ const
QFileDialogDontUseSheet = $00000008;
QFileDialogDontUseNativeDialog = $00000010;
QFileDialogReadOnly = $00000020;
QFileDialogHideNameFilterDetails = $00000040;
QFileDialogHideNameFilterDetails = $00000040;
QFileDialogDontUseCustomDirectoryIcons = $00000080;
function QFileDialog_Create(parent: QWidgetH; f: QtWindowFlags): QFileDialogH; cdecl; external Qt5PasLib name 'QFileDialog_Create';
procedure QFileDialog_Destroy(handle: QFileDialogH); cdecl; external Qt5PasLib name 'QFileDialog_Destroy';

2
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -19184,7 +19184,7 @@ end;
procedure TQtFileDialog.setReadOnly(const AReadOnly: Boolean);
begin
QFileDialog_setReadOnly(QFileDialogH(Widget), AReadOnly);
QFileDialog_setOption(QFileDialogH(Widget), QFileDialogReadOnly, AReadOnly);
end;
procedure TQtFileDialog.setSelectedFilter(const ASelFilter: WideString);

8
lcl/interfaces/qt5/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), QFileDialogShowDirsOnly, True);
end;
ActiveWin := QtWidgetSet.GetActiveWindow;
if ACommonDialog is TSaveDialog then
@ -730,7 +733,8 @@ begin
QFileDialog_setOption(QFileDialogH(FileDialog.Widget),
QFileDialogDontUseNativeDialog, False);
FileDialog.setFileMode(QFileDialogDirectoryOnly);
FileDialog.setFileMode(QFileDialogDirectory);
QFileDialog_setOption(QFileDialogH(FileDialog.Widget), QFileDialogShowDirsOnly, True);
FileDialog.AttachEvents;