paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 18:19:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: make file dialogs consistent with win32 and gtk2.If InitialDir isn't setted, then provide GetCurrentDir to qt dialog.

Browse Source 
git-svn-id: trunk@35314 -
This commit is contained in:
zeljko 2012-02-11 19:50:20 +00:00
parent 5f6f0a50ed
commit 5b0a8deab2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,7 +294,10 @@ var
begin
ATitle := GetUtf8String(AFileDialog.Title);
QtFileDialog.setWindowTitle(@ATitle);
QtFileDialog.setDirectory(GetUtf8String(AFileDialog.InitialDir));
if (AFileDialog.InitialDir = '') then
QtFileDialog.setDirectory(GetUtf8String(SysUtils.GetCurrentDir))
else
QtFileDialog.setDirectory(GetUtf8String(AFileDialog.InitialDir));
QtFileDialog.setHistory(AFileDialog.HistoryList);
QtFileDialog.setFilter(GetQtFilterString(AFileDialog, ATitle));
QtFileDialog.setSelectedFilter(ATitle);