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

win32: pass better messages to NotifyApplicationUserInput for WM_NCMOUSE...

Browse Source 
git-svn-id: trunk@23589 -
This commit is contained in:
paul 2010-01-29 09:11:25 +00:00
parent d9170c2e4a
commit db416e28ac
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

@ -2050,6 +2050,9 @@ begin
end; end;
WM_NCLBUTTONDOWN: WM_NCLBUTTONDOWN:
begin begin
LMessage.Msg := Msg;
LMessage.WParam := WParam;
LMessage.LParam := LParam;
NotifyUserInput := True; NotifyUserInput := True;
Assert(False, 'Trace:WindowProc - Got WM_NCLBUTTONDOWN'); Assert(False, 'Trace:WindowProc - Got WM_NCLBUTTONDOWN');
@ -2070,6 +2073,9 @@ begin
end; end;
WM_NCMOUSEMOVE, WM_NCMOUSELEAVE: WM_NCMOUSEMOVE, WM_NCMOUSELEAVE:
begin begin
LMessage.Msg := Msg;
LMessage.WParam := WParam;
LMessage.LParam := LParam;
NotifyUserInput := True; NotifyUserInput := True;
Application.DoBeforeMouseMessage(nil); Application.DoBeforeMouseMessage(nil);
end; end;