From 902c93f9c3acf6da0b01a2f80ae5feeeefcd0297 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 4 Dec 2002 20:39:18 +0000
Subject: [PATCH] patch from Vincent: clean ups and fixed crash on destroying
 window

git-svn-id: trunk@3686 -
---
 lcl/interfaces/win32/win32callback.inc | 9 +++++++--
 lcl/interfaces/win32/win32proc.inc     | 6 ++++++
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index cc0fdeba99..c05b6ae087 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -154,8 +154,10 @@ Begin
     WM_DESTROY:
     Begin
       Assert(False, 'Trace:WindowProc - Got WM_DESTROY');
-      For C := 0 To WndList.Count - 1 Do
-        EnumProps(HWND(WndList[C]), @PropEnumProc);
+// The following lines cause an acces violation
+// TODO: find out why.
+//      For C := 0 To WndList.Count - 1 Do
+//        EnumProps(HWND(WndList[C]), @PropEnumProc);
       LMessage.Msg := LM_DESTROY;
       PostQuitMessage(0);
     End;
@@ -475,6 +477,9 @@ end;
 
 {
   $Log$
+  Revision 1.19  2002/12/04 20:39:16  mattias
+  patch from Vincent: clean ups and fixed crash on destroying window
+
   Revision 1.18  2002/11/26 20:51:05  mattias
   applied clipbrd patch from Vincent
 
diff --git a/lcl/interfaces/win32/win32proc.inc b/lcl/interfaces/win32/win32proc.inc
index afb0fbf838..902385c177 100644
--- a/lcl/interfaces/win32/win32proc.inc
+++ b/lcl/interfaces/win32/win32proc.inc
@@ -516,7 +516,10 @@ End;
 Function DeliverMessage(Const Target: Pointer; Var Message): Integer;
 Begin
   If Target = Nil Then
+  begin
     WriteLn('[DeliverMessage] Nil');
+    Exit;
+  end;
   If TObject(Target) Is TControl Then
   Begin
     TControl(Target).WinDowProc(TLMessage(Message));
@@ -670,6 +673,9 @@ End;
  { =============================================================================
 
   $Log$
+  Revision 1.10  2002/12/04 20:39:18  mattias
+  patch from Vincent: clean ups and fixed crash on destroying window
+
   Revision 1.9  2002/11/17 15:01:38  mattias
   fixed uninitialised handle