paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 18:59:08 +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 6fdd33a054
commit 004f8cd597
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

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