From ee1c1ef84864bf6944e43cb33ab6c43bf5818598 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:23 +0000
Subject: [PATCH] added ComponentDeleting event

git-svn-id: trunk@2464 -
---
 designer/designer.pp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/designer/designer.pp b/designer/designer.pp
index 12fc788912..ad4221bbf7 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -1120,14 +1120,25 @@ end;
 
 procedure TDesigner.DoDeleteComponent(AComponent: TComponent;
   FreeComponent: boolean);
+var
+  Hook: TPropertyEditorHook;
 begin
   PopupMenuComponentEditor:=nil;
   if TheFormEditor.FindComponent(AComponent)<>nil then begin
+    // unselect component
     ControlSelection.Remove(AComponent);
+    // call RemoveComponent handler
     if Assigned(FOnRemoveComponent) then
       FOnRemoveComponent(Self,AComponent);
+    // call component deleting handlers
+    Hook:=GetPropertyEditorHook;
+    if Hook<>nil then
+      Hook.ComponentDeleting(AComponent);
+    // delete component
     TheFormEditor.DeleteControl(AComponent,FreeComponent);
+    // unmark component
     DeletingComponents.Remove(AComponent);
+    // call ComponentDeleted handler
     if Assigned(FOnComponentDeleted) then
       FOnComponentDeleted(Self,AComponent);
   end;