From f0fd280c6d22d545337c7f9997ee926b8ec64858 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 30 Jan 2016 06:33:32 +0100
Subject: [PATCH] fix, possible pagecontrol error when all page closed

---
 src/ce_controls.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/ce_controls.pas b/src/ce_controls.pas
index ece4a606..9cf35102 100644
--- a/src/ce_controls.pas
+++ b/src/ce_controls.pas
@@ -234,6 +234,7 @@ begin
   fContent.OnDragOver:=value;
   fTabs.OnDragOver:=value;
 end;
+
 procedure TCEPageControl.setOnDragDrop(value: TDragDropEvent);
 begin
   if fOnDragDrop = value then
@@ -365,10 +366,10 @@ begin
   fPages.Delete(index);
   fTabs.Tabs.Delete(index);
 
-  updateButtonsState;
   if fPages.Count = 0 then
-    exit;
+    fPageIndex:=-1;
 
+  updateButtonsState;
   setPageIndex(fPageIndex);
 end;