From 0d33b217ea1353d441609e0629e7e19ca4b87677 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 5 Aug 2016 16:05:43 +0200 Subject: [PATCH] project groups, handle hint when FSP is not saved --- src/ce_projgroup.pas | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas index ee9cb10f..3ad3b806 100644 --- a/src/ce_projgroup.pas +++ b/src/ce_projgroup.pas @@ -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';