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

Packager: fix Save dialog's title.

Browse Source 
git-svn-id: trunk@36372 -
This commit is contained in:
juha 2012-03-27 07:34:30 +00:00
parent 429434dd8e
commit 62369e60a5
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -230,13 +230,13 @@ resourcestring
lisPERevertPackage = 'Revert Package';
lisMenuOpenRecent = 'Open &Recent';
lisMenuSave = '&Save';
lisMenuSaveAs = 'Save &As ...';
lisKMSaveAs = 'SaveAs';
lisKMSaveAll = 'SaveAll';
lisDiscardChanges = 'Discard changes';
lisDiscardChangesAll = 'Discard all changes';
lisDoNotCloseTheProject = 'Do not close the project';
lisDoNotCloseTheIDE = 'Do not close the IDE';
lisMenuSaveAs = 'Save &As ...';
lisConvert = 'Convert';
lisPLDOnlyExistingFiles = 'Only existing files';
lisPLDShowGlobalLinks = 'Show global links';

5
packager/addtopackagedlg.pas
View File

@ -561,9 +561,8 @@ begin
SaveDialog:=TSaveDialog.Create(nil);
try
InputHistories.ApplyFileDialogSettings(SaveDialog);
SaveDialog.InitialDir :=
LazPackage.GetFileDialogInitialDir(SaveDialog.InitialDir);
SaveDialog.Title := lisMenuSaveAs;
SaveDialog.InitialDir := LazPackage.GetFileDialogInitialDir(SaveDialog.InitialDir);
SaveDialog.Title := lisSaveAs;
SaveDialog.Options := SaveDialog.Options+[ofPathMustExist];
if SaveDialog.Execute then begin
AFilename := CleanAndExpandFilename(SaveDialog.Filename);