paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: messages: show project target file relative to project directory

Browse Source 
git-svn-id: trunk@46425 -
This commit is contained in:
mattias 2014-10-04 10:25:17 +00:00
parent 052f1232a8
commit b66d82b72e
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/compiler.pp
View File

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