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

IDE: new project: if there is are default project settings: adapt target file name to resemble project name, bug #23379

Browse Source 
git-svn-id: trunk@44155 -
This commit is contained in:
mattias 2014-02-18 21:18:59 +00:00
parent 7db8442e23
commit 78b3ddb3f6
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/mainbase.pas
View File

@ -485,6 +485,16 @@ begin
if AProject.CompilerOptions.LoadFromFile(AFilename)<>mrOk then
DebugLn(['TMainIDEBase.DoLoadDefaultCompilerOptions failed']);
end;
// change target file name
AFilename:=ExtractFileName(AProject.CompilerOptions.TargetFilename);
if AFilename='' then
exit; // using default -> ok
if CompareFilenames(AFilename,ExtractFilename(AProject.ProjectInfoFile))=0
then exit; // target file name and project name fit -> ok
// change target file to project name
AProject.CompilerOptions.TargetFilename:=ExtractFilePath(AProject.CompilerOptions.TargetFilename)
+ExtractFileNameOnly(AProject.ProjectInfoFile)+ExtractFileExt(AFilename);
AProject.CompilerOptions.Modified:=false;
end;
procedure TMainIDEBase.DoSwitchToFormSrc(var ActiveSourceEditor: TSourceEditor;