From a25d5712edd0e9e88cae06bdfc165980cb956754 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Thu, 16 Nov 2017 22:06:02 +0100
Subject: [PATCH] fix #200 - error can be displayed after supression of a
 missing group item

---
 src/ce_projgroup.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index f71b792c..6cdb2542 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -324,7 +324,6 @@ var
   f: string = '';
 begin
   inherited;
-  fSavedIndex := fProjectIndex;
   for i:= projectCount-1 downto 0 do
   begin
     p := item[i];
@@ -344,6 +343,9 @@ begin
       b := true;
     end;
   end;
+  if fProjectIndex > projectCount -1 then
+    fProjectIndex:= projectCount -1;
+  fSavedIndex := fProjectIndex;
   fModified := b;
   if b then
     dlgOkError('the following projects are missing and are removed from the group:' + f,