From a24bd9505a9cc2690d97f1995e9f9055958567c9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 16 Nov 2002 11:59:24 +0000
Subject: [PATCH] MG: fixed deleting TPage, when page is selected

git-svn-id: trunk@3643 -
---
 designer/componenteditors.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/designer/componenteditors.pas b/designer/componenteditors.pas
index 9c913c0888..505e87f907 100644
--- a/designer/componenteditors.pas
+++ b/designer/componenteditors.pas
@@ -514,7 +514,6 @@ begin
   if (OldIndex>=0) and (OldIndex<Notebook.PageCount) then begin
     if not GetHook(Hook) then exit;
     Hook.DeleteComponent(TComponent(NoteBook.PageList[OldIndex]));
-    GetDesigner.Modified;
   end;
 end;
 
@@ -566,7 +565,7 @@ begin
   case Index of
     nbvAddPage:       DoAddPage;
     nbvInsertPage:    DoInsertPage;
-    nbvDeletePage:    DoDeletePage;
+    nbvDeletePage:    DoDeletePage; // beware: this can free the editor itself
     nbvMovePageLeft:  DoMoveActivePageLeft;
     nbvMovePageRight: DoMoveActivePageRight;
   end;