Packager: a better fix for new package save dialog, issue #27726.

git-svn-id: trunk@48505 -
This commit is contained in:
juha 2015-03-25 20:49:49 +00:00
parent 7d2f5fe97f
commit ed8a304f4f

View File

@ -1132,7 +1132,8 @@ begin
try
InputHistories.ApplyFileDialogSettings(SaveDialog);
SaveDialog.Title:=Format(lisPkgMangSavePackageLpk, [APackage.IDAsString]);
SaveDialog.Filter:='lpk files|*.lpk';
SaveDialog.Filter:=lisLazarusPackage+' (*.lpk)|*.lpk'
+'|'+dlgAllFiles+' ('+FileMask+')|'+FileMask;
if APackage.HasDirectory then
SaveDialog.InitialDir:=APackage.Directory;