paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

patch from Vincent: clean ups and fixed crash on destroying window

Browse Source 
git-svn-id: trunk@3686 -
This commit is contained in:
mattias 2002-12-04 20:39:18 +00:00
parent 622409a368
commit 902c93f9c3
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32callback.inc
View File

@ -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

6
lcl/interfaces/win32/win32proc.inc
View File

@ -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