paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:59:15 +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'; lisPERevertPackage = 'Revert Package';
lisMenuOpenRecent = 'Open &Recent'; lisMenuOpenRecent = 'Open &Recent';
lisMenuSave = '&Save'; lisMenuSave = '&Save';
lisMenuSaveAs = 'Save &As ...';
lisKMSaveAs = 'SaveAs'; lisKMSaveAs = 'SaveAs';
lisKMSaveAll = 'SaveAll'; lisKMSaveAll = 'SaveAll';
lisDiscardChanges = 'Discard changes'; lisDiscardChanges = 'Discard changes';
lisDiscardChangesAll = 'Discard all changes'; lisDiscardChangesAll = 'Discard all changes';
lisDoNotCloseTheProject = 'Do not close the project'; lisDoNotCloseTheProject = 'Do not close the project';
lisDoNotCloseTheIDE = 'Do not close the IDE'; lisDoNotCloseTheIDE = 'Do not close the IDE';
lisMenuSaveAs = 'Save &As ...';
lisConvert = 'Convert'; lisConvert = 'Convert';
lisPLDOnlyExistingFiles = 'Only existing files'; lisPLDOnlyExistingFiles = 'Only existing files';
lisPLDShowGlobalLinks = 'Show global links'; lisPLDShowGlobalLinks = 'Show global links';

5
packager/addtopackagedlg.pas
View File

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