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

IDE: Show full file path for a build target. Project is often "project1".

Browse Source
This commit is contained in:
Juha 2021-11-21 00:54:21 +02:00
parent 229162c203
commit a056886b72
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/projectgroups/projectgroup.pp
View File

@ -1481,14 +1481,14 @@ begin
case TargetType of
ttProject:
begin
ToolTitle := Format(lisCompileProject, [ExtractFileNameOnly(Filename)]);
ToolTitle := Format(lisCompileProject, [Filename]);
if aBuildMode<>'' then
ToolTitle += Format(lisBuildMode, [aBuildMode]);
ToolKind := lisOtherProject;
end;
ttPackage:
begin
ToolTitle := Format(lisCompilePackage, [ExtractFileNameOnly(Filename)]);
ToolTitle := Format(lisCompilePackage, [Filename]);
ToolKind := lisPackage;
end;
else exit;

3
ide/compiler.pp
View File

@ -329,8 +329,7 @@ begin
TargetCPU:=AProject.CompilerOptions.GetEffectiveTargetCPU;
if TargetCPU<>GetCompiledTargetCPU then
Title+=Format(lisCPU, [TargetCPU]);
TargetFilename:=AProject.GetShortFilename(
AProject.CompilerOptions.CreateTargetFilename,false);
TargetFilename:=AProject.CompilerOptions.CreateTargetFilename;
if TargetFilename<>'' then
Title+=Format(lisTarget2, [TargetFilename]);