From ce1a8b7e1c9f7301d4ca902598f22ae51f1dbae7 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 22 Mar 2010 00:05:44 +0000
Subject: [PATCH] Undo Revision 24150 #55f4c6d87b ( TControl: Call
 RemoveFreeNotification on PopUpMenu, when replaced )

git-svn-id: trunk@24156 -
---
 lcl/include/control.inc | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 6d9c64fc31..96b49ed5a5 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3618,8 +3618,6 @@ end;
 ------------------------------------------------------------------------------}
 procedure TControl.SetPopupMenu(Value: TPopupMenu);
 begin
-  if FPopupMenu <> nil then
-    FPopupMenu.RemoveFreeNotification(Self);
   FPopupMenu := Value;
   if FPopupMenu <> nil then
     FPopupMenu.FreeNotification(Self);