paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 09:38:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed save project as, not applying option suggest lowercase for default name

Browse Source
This commit is contained in:
mattias 2023-08-30 11:35:29 +02:00
parent e2afe4932c
commit 1fcb84da43
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourcefilemanager.pas
View File

@ -8090,7 +8090,7 @@ end;
function ShowSaveProjectAsDialog: TModalResult;
var
SaveDialog: TSaveDialog;
NewProgramName, LCProgramName: String;
NewProgramName: String;
NewPath, NewLPIFilename, NewProgramFN: String;
AFilename, Ext, AText, ACaption, OldProjectDir: string;
begin
@ -8116,6 +8116,7 @@ begin
try
InputHistories.ApplyFileDialogSettings(SaveDialog);
SaveDialog.Title := Format(lisSaveProject, [Project1.GetTitleOrName, Ext]);
// apply naming conventions, suggest lowercased name if user wants so
if EnvironmentOptions.LowercaseDefaultFilename then
SaveDialog.FileName := LowerCase(AFilename)
else
@ -8147,19 +8148,15 @@ begin
end;
NewPath := ExtractFilePath(AFilename);
LCProgramName := NewProgramName;
// apply naming conventions, suggest lowercased name if user wants so
if EnvironmentOptions.LowercaseDefaultFilename then
LCProgramName := LowerCase(LCProgramName);
// append default extension
NewLPIFilename := NewPath + LCProgramName + '.lpi';
NewLPIFilename := NewPath + NewProgramName + '.lpi';
if Project1.MainUnitID >= 0 then
begin
// check mainunit filename
Ext := ExtractFileExt(Project1.MainUnitInfo.Filename);
Assert(Ext<>'', 'ShowSaveProjectAsDialog: Ext is empty');
NewProgramFN := NewPath + LCProgramName + Ext;
NewProgramFN := NewPath + NewProgramName + Ext;
if CompareFilenames(NewLPIFilename, NewProgramFN) = 0 then
begin
ACaption:=lisChooseADifferentName;