paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:17:03 +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 case TargetType of
ttProject: ttProject:
begin begin
ToolTitle := Format(lisCompileProject, [ExtractFileNameOnly(Filename)]); ToolTitle := Format(lisCompileProject, [Filename]);
if aBuildMode<>'' then if aBuildMode<>'' then
ToolTitle += Format(lisBuildMode, [aBuildMode]); ToolTitle += Format(lisBuildMode, [aBuildMode]);
ToolKind := lisOtherProject; ToolKind := lisOtherProject;
end; end;
ttPackage: ttPackage:
begin begin
ToolTitle := Format(lisCompilePackage, [ExtractFileNameOnly(Filename)]); ToolTitle := Format(lisCompilePackage, [Filename]);
ToolKind := lisPackage; ToolKind := lisPackage;
end; end;
else exit; else exit;

3
ide/compiler.pp
View File

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