paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 04:59:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@48505 -
This commit is contained in:
juha 2015-03-25 20:49:49 +00:00
parent 7d2f5fe97f
commit ed8a304f4f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packager/pkgmanager.pas
View File

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