From eaee7ee30a8aa49a55186805bd4cfe9b1a3e3b0e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 3 Jun 2015 10:56:32 +0200
Subject: [PATCH] proj inspct, btn enabled only if proj assigned

---
 src/ce_projinspect.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index 586ffada..61eb590f 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -378,6 +378,7 @@ var
   src, fold, conf: string;
   lst: TStringList;
   itm: TTreeNode;
+  hasProj: boolean;
   i: NativeInt;
 begin
   fConfNode.DeleteChildren;
@@ -385,7 +386,14 @@ begin
   fImpsNode.DeleteChildren;
   fInclNode.DeleteChildren;
   fXtraNode.DeleteChildren;
-  if fProject = nil then exit;
+  //
+  hasProj := fProject <> nil;
+  btnAddFile.Enabled := hasProj;
+  btnRemFile.Enabled := hasProj;
+  btnAddFold.Enabled := hasProj;
+  btnRemFold.Enabled := hasProj;
+  if not hasProj then exit;
+  //
   Tree.BeginUpdate;
   // display main sources
   for src in fProject.Sources do