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

Qt: fixed bug when setting filename of TSaveDialog.

Browse Source 
git-svn-id: trunk@47742 -
This commit is contained in:
zeljko 2015-02-13 16:34:31 +00:00
parent f156ddb773
commit 2dce61002c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -349,11 +349,12 @@ begin
else else
QtFileDialog.setFileMode(QFileDialogAnyFile); QtFileDialog.setFileMode(QFileDialogAnyFile);
if (AFileDialog.FileName <> '') and FileExistsUTF8(AFileDialog.FileName) and if (AFileDialog.FileName <> '') and
not DirectoryExistsUTF8(AFileDialog.FileName) then not DirectoryExistsUTF8(AFileDialog.FileName) then
begin begin
ATitle := GetUTF8String(AFileDialog.FileName); ATitle := GetUTF8String(AFileDialog.FileName);
QFileDialog_selectFile(QFileDialogH(QtFileDialog.Widget), @ATitle); if (AFileDialog is TSaveDialog) or FileExistsUTF8(AFileDialog.FileName) then
QFileDialog_selectFile(QFileDialogH(QtFileDialog.Widget), @ATitle);
{$ifndef QT_NATIVE_DIALOGS} {$ifndef QT_NATIVE_DIALOGS}
if (AFileDialog is TOpenPictureDialog) then if (AFileDialog is TOpenPictureDialog) then
TQtFilePreviewDialog(QtFileDialog).CurrentChangedEvent(@ATitle); TQtFilePreviewDialog(QtFileDialog).CurrentChangedEvent(@ATitle);