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

project groups: show file exte for Pascal file

Browse Source 
git-svn-id: trunk@50453 -
This commit is contained in:
mattias 2015-11-20 22:22:59 +00:00
parent e2b4acb980
commit 08960d78f2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/projectgroups/projectgroupeditor.pas
View File

@ -1182,6 +1182,7 @@ begin
else
Result:=CreateRelativePath(Result,BaseDir);
end else begin
debugln(['TProjectGroupEditorForm.DisplayFileName ',aTarget.Filename,' ',aTarget.TargetType=ttPascalFile]);
if aTarget.TargetType in [ttPascalFile] then
Result:=ExtractFileName(aTarget.Filename)
else
@ -1203,7 +1204,10 @@ begin
if (NodeData.Target<>nil)
and (not IDEProjectGroupManager.Options.ShowTargetPaths) then
begin
Result:=ExtractFileNameOnly(NodeData.Target.Filename);
if NodeData.Target.TargetType in [ttPascalFile] then
Result:=ExtractFileName(NodeData.Target.Filename)
else
Result:=ExtractFileNameOnly(NodeData.Target.Filename);
end else begin
Result:='';
if NodeData.ParentTarget<>nil then