paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt,Qt5: fixed action of TSavePictureDialog. Issue #0032540

Browse Source 
git-svn-id: branches/fixes_2_0@60916 -
This commit is contained in:
mattias 2019-04-10 11:33:55 +00:00
parent 13c5a89a0f
commit 8c5b9aff94
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwsdialogs.pp
View File

@ -448,10 +448,10 @@ begin
{------------------------------------------------------------------------------
Code to call the dialog
------------------------------------------------------------------------------}
if FileDialog is TSaveDialog then
if (FileDialog is TSaveDialog) or (FileDialog is TSavePictureDialog) then
QtFileDialog.setAcceptMode(QFileDialogAcceptSave)
else
if FileDialog is TOpenDialog then
if (FileDialog is TOpenDialog) or (FileDialog is TOpenPictureDialog) then
QtFileDialog.setAcceptMode(QFileDialogAcceptOpen)
else
if ACommonDialog is TSelectDirectoryDialog then

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

@ -444,10 +444,10 @@ begin
{------------------------------------------------------------------------------
Code to call the dialog
------------------------------------------------------------------------------}
if FileDialog is TSaveDialog then
if (FileDialog is TSaveDialog) or (FileDialog is TSavePictureDialog) then
QtFileDialog.setAcceptMode(QFileDialogAcceptSave)
else
if FileDialog is TOpenDialog then
if (FileDialog is TOpenDialog) or (FileDialog is TOpenPictureDialog) then
QtFileDialog.setAcceptMode(QFileDialogAcceptOpen)
else
if ACommonDialog is TSelectDirectoryDialog then