paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: port r13117 #7b318045cc from wince - fixes threading synchronization (fixes issue #0011561)

Browse Source 
git-svn-id: trunk@19070 -
This commit is contained in:
paul 2009-03-23 08:23:45 +00:00
parent 1a7230cfff
commit 84f98a4450
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1221,6 +1221,12 @@ begin
Assert(False, 'Trace:WindowProc - Checking Proc');
Assert(False, Format('Trace:WindowProc - Window Value: $%S-%d; Msg Value: %S; WParam: $%S; LParam: $%S', [IntToHex(Window, 4), Window, WM_To_String(Msg), IntToHex(WParam, sizeof(WParam)*4), IntToHex(LParam, sizeof(LParam)*4)]));
case Msg of
WM_NULL:
if (Window = TWin32WidgetSet(WidgetSet).AppHandle) then
begin
CheckSynchronize;
TWin32Widgetset(Widgetset).CheckPipeEvents;
end;
WM_ACTIVATE:
begin
case LOWORD(WParam) Of