From ff323fb4694d1d5cf3f265cdd71ffc329f46d847 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 30 Nov 2002 11:24:05 +0000
Subject: [PATCH] removed unused TCustomForm.WMDestroy

git-svn-id: trunk@3678 -
---
 lcl/forms.pp               |  1 -
 lcl/include/customform.inc | 18 +++---------------
 2 files changed, 3 insertions(+), 16 deletions(-)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index 863bb2528b..ca6c420beb 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -284,7 +284,6 @@ type
     procedure WMSize(var message: TLMSize); message LM_Size;
     procedure WMShowWindow(var message: TLMShowWindow); message LM_SHOWWINDOW;
     procedure WMCloseQuery(var message: TLMessage); message LM_CLOSEQUERY;
-    procedure WMDestroy(var message: TLMDestroy); message LM_DESTROY;
   protected
     procedure Activate; dynamic;
     function CloseQuery : boolean; virtual;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index f70b54958b..cc8612e132 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -244,21 +244,6 @@ Begin
 //writeln('[TCustomForm.SetVisible] END ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
 end;
 
-{------------------------------------------------------------------------------
-  Method: TCustomForm.WMDestroy
-  Params:   Msg: The destroy message
-  Returns:  nothing
-
-  Destroy event handler.
- ------------------------------------------------------------------------------}
-procedure TCustomForm.WMDestroy(var Message: TLMDestroy);
-begin
-  Assert(False, Format('Trace: [TCustomForm.LMDestroy] %s', [ClassName]));
-  
-  // First set FHandle to 0, the window doesn't exist anymore.
-  inherited WMDestroy(Message);
-end;
-
 {------------------------------------------------------------------------------
   Method: TCustomForm.WMShowWindow
   Params:   Msg: The showwindow message
@@ -1197,6 +1182,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.74  2002/11/30 11:24:05  mattias
+  removed unused TCustomForm.WMDestroy
+
   Revision 1.73  2002/11/30 08:35:42  mattias
   TCustomForm.WMDestroy does not Free anymore