From 84dd7454d6454414b6dd301c1bdf6abca28a5db4 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 19 Mar 2019 21:33:11 +0000 Subject: [PATCH] IDE: rename project: keep target file extension git-svn-id: trunk@60723 - --- ide/sourcefilemanager.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ide/sourcefilemanager.pas b/ide/sourcefilemanager.pas index 30bdfe83dd..297567425e 100644 --- a/ide/sourcefilemanager.pas +++ b/ide/sourcefilemanager.pas @@ -7685,8 +7685,9 @@ begin or (Project1.ProjectInfoFile='') ) then begin // target file is default => change to all build modes, but keep sub directories - // Note: Extension is appended automatically => do not add it - NewTargetFN:=ExtractFilePath(Project1.TargetFilename)+ExtractFileNameOnly(NewProgramFN); + // And keep old extension. + NewTargetFN:=ExtractFilePath(Project1.TargetFilename)+ExtractFileNameOnly(NewProgramFN) + +ExtractFileExt(Project1.TargetFilename); for i := 0 to Project1.BuildModes.Count-1 do Project1.BuildModes[i].CompilerOptions.TargetFilename:=NewTargetFN; //DebugLn(['ShowSaveProjectAsDialog changed targetfilename to ',Project1.TargetFilename]);