paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 08:19:48 +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: WM_DESTROY:
Begin Begin
Assert(False, 'Trace:WindowProc - Got WM_DESTROY'); Assert(False, 'Trace:WindowProc - Got WM_DESTROY');
For C := 0 To WndList.Count - 1 Do // The following lines cause an acces violation
EnumProps(HWND(WndList[C]), @PropEnumProc); // TODO: find out why.
// For C := 0 To WndList.Count - 1 Do
// EnumProps(HWND(WndList[C]), @PropEnumProc);
LMessage.Msg := LM_DESTROY; LMessage.Msg := LM_DESTROY;
PostQuitMessage(0); PostQuitMessage(0);
End; End;
@ -475,6 +477,9 @@ end;
{ {
$Log$ $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 Revision 1.18 2002/11/26 20:51:05 mattias
applied clipbrd patch from Vincent 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; Function DeliverMessage(Const Target: Pointer; Var Message): Integer;
Begin Begin
If Target = Nil Then If Target = Nil Then
begin
WriteLn('[DeliverMessage] Nil'); WriteLn('[DeliverMessage] Nil');
Exit;
end;
If TObject(Target) Is TControl Then If TObject(Target) Is TControl Then
Begin Begin
TControl(Target).WinDowProc(TLMessage(Message)); TControl(Target).WinDowProc(TLMessage(Message));
@ -670,6 +673,9 @@ End;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.9 2002/11/17 15:01:38 mattias
fixed uninitialised handle fixed uninitialised handle