paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 03:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: rename project: keep target file extension

Browse Source 
git-svn-id: trunk@60723 -
This commit is contained in:
mattias 2019-03-19 21:33:11 +00:00
parent d8c53e3eb0
commit 84dd7454d6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourcefilemanager.pas
View File

@ -7685,8 +7685,9 @@ begin
or (Project1.ProjectInfoFile='') ) then or (Project1.ProjectInfoFile='') ) then
begin begin
// target file is default => change to all build modes, but keep sub directories // target file is default => change to all build modes, but keep sub directories
// Note: Extension is appended automatically => do not add it // And keep old extension.
NewTargetFN:=ExtractFilePath(Project1.TargetFilename)+ExtractFileNameOnly(NewProgramFN); NewTargetFN:=ExtractFilePath(Project1.TargetFilename)+ExtractFileNameOnly(NewProgramFN)
+ExtractFileExt(Project1.TargetFilename);
for i := 0 to Project1.BuildModes.Count-1 do for i := 0 to Project1.BuildModes.Count-1 do
Project1.BuildModes[i].CompilerOptions.TargetFilename:=NewTargetFN; Project1.BuildModes[i].CompilerOptions.TargetFilename:=NewTargetFN;
//DebugLn(['ShowSaveProjectAsDialog changed targetfilename to ',Project1.TargetFilename]); //DebugLn(['ShowSaveProjectAsDialog changed targetfilename to ',Project1.TargetFilename]);