From 79a8d32f060de931547b23015ab4ee32fc7e7f07 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 9 Feb 2002 01:48:20 +0000
Subject: [PATCH] TCustomForm.WMDestroy does not Free anymore

git-svn-id: trunk@1369 -
---
 lcl/include/wincontrol.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index b3f54bab5e..7dd1d1c3fd 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -1927,7 +1927,7 @@ end;
 procedure TWinControl.WMDestroy(var Message: TLMDestroy);
 begin            
   Assert(False, Format('Trace: [TWinControl.LMDestroy] %s', [ClassName]));
-  
+  //writeln('TWinControl.WMDestroy ',Name,':',ClassName);
   // Our widget/window doesn't exist anymore
   FHandle := 0;
 end;                          
@@ -2511,6 +2511,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.104  2002/11/30 08:35:42  mattias
+  TCustomForm.WMDestroy does not Free anymore
+
   Revision 1.103  2002/11/29 15:14:48  mattias
   replaced many invalidates by invalidaterect