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; end;
if fFreeProj <> nil then if fFreeProj <> nil then
begin begin
case fFreeProj.getFormat of if fFreeProj.filename.fileExists then
pfNative: StaticText1.Caption:= 'Free standing: ' + fFreeProj.filename.extractFileName; case fFreeProj.getFormat of
pfDub: StaticText1.Caption:= 'Free standing: ' + TCEDubProject(fFreeProj.getProject).packageName; pfNative: StaticText1.Caption:= 'Free standing: ' + fFreeProj.filename.extractFileName;
end; pfDub: StaticText1.Caption:= 'Free standing: ' + TCEDubProject(fFreeProj.getProject).packageName;
end
else
StaticText1.Caption:= 'Free standing: (not yet saved)';
end end
else else
StaticText1.Caption:= 'No free standing project'; StaticText1.Caption:= 'No free standing project';