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

Qt: qtwsdialogs bugfix for non-native mode, filename should be setted up.

Browse Source 
git-svn-id: trunk@19964 -
This commit is contained in:
zeljko 2009-05-14 11:58:22 +00:00
parent c286608aa2
commit cfb3d7416e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -303,6 +303,12 @@ begin
QtFileDialog.setFileMode(QFileDialogExistingFile)
else
QtFileDialog.setFileMode(QFileDialogAnyFile);
if AFileDialog.FileName <> '' then
begin
ATitle := GetUTF8String(AFileDialog.FileName);
QFileDialog_selectFile(QFileDialogH(QtFileDialog.Widget), @ATitle);
end;
end;
class function TQtWSFileDialog.CreateHandle(const ACommonDialog: TCommonDialog): THandle;