paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-15 04:48:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: clear all LMessages fields at the beginning of the message window proc to prevent passing wrong LParam and WParam to LCL, fill WParam and LParam in case of LM_ACTIVATE, LM_DEACTIVATE since they store new ActiveWindow and other useful data

Browse Source 
git-svn-id: trunk@24142 -
This commit is contained in:
paul 2010-03-21 13:48:10 +00:00
parent 85eb77d20d
commit d96d0481d2
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1030,8 +1030,7 @@ var
begin begin
Assert(False, 'Trace:WindowProc - Start'); Assert(False, 'Trace:WindowProc - Start');
LMessage.Result := 0; FillChar(LMessage, SizeOf(LMessage), 0);
LMessage.Msg := LM_NULL;
PLMsg := @LMessage; PLMsg := @LMessage;
WinProcess := True; WinProcess := True;
NotifyUserInput := False; NotifyUserInput := False;
@ -1120,10 +1119,14 @@ begin
WA_ACTIVE, WA_CLICKACTIVE: WA_ACTIVE, WA_CLICKACTIVE:
begin begin
LMessage.Msg := LM_ACTIVATE; LMessage.Msg := LM_ACTIVATE;
LMessage.WParam := WParam;
LMessage.LParam := LParam;
end; end;
WA_INACTIVE: WA_INACTIVE:
begin begin
LMessage.Msg := LM_DEACTIVATE; LMessage.Msg := LM_DEACTIVATE;
LMessage.WParam := WParam;
LMessage.LParam := LParam;
end; end;
end; end;
end; end;