paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 00:00:39 +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

4
components/projectgroups/projectgroupeditor.pas
View File

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