forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

project groups, handle hint when FSP is not saved

This commit is contained in:
Basile Burg 2016-08-05 16:05:43 +02:00
parent fb3a94166f
commit 0d33b217ea
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_projgroup.pas
View File

@ -614,10 +614,13 @@ begin
end;
if fFreeProj <> nil then
begin
case fFreeProj.getFormat of
pfNative: StaticText1.Caption:= 'Free standing: ' + fFreeProj.filename.extractFileName;
pfDub: StaticText1.Caption:= 'Free standing: ' + TCEDubProject(fFreeProj.getProject).packageName;
end;
if fFreeProj.filename.fileExists then
case fFreeProj.getFormat of
pfNative: StaticText1.Caption:= 'Free standing: ' + fFreeProj.filename.extractFileName;
pfDub: StaticText1.Caption:= 'Free standing: ' + TCEDubProject(fFreeProj.getProject).packageName;
end
else
StaticText1.Caption:= 'Free standing: (not yet saved)';
end
else
StaticText1.Caption:= 'No free standing project';