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

Merged revision(s) 56857 #3ba9674deb from trunk:

Browse Source 
win32: fix double CM_MOUSELEAVE messages. Issue #32844
........

git-svn-id: branches/fixes_1_8@56861 -
This commit is contained in:
maxim 2017-12-27 22:36:55 +00:00
parent f57595bd62
commit 1ca943c156
2 changed files with 8 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

@ -1983,7 +1983,7 @@ begin
case Msg of
WM_MOUSEFIRST..WM_MOUSELAST:
if Application.MouseControl<>lWinControl then
if (LastMouseTracking<>lWinControl) then
begin
// register for WM_MOUSELEAVE
FillChar(LMouseEvent, SizeOf(TTRACKMOUSEEVENT), 0);
@ -1992,6 +1992,7 @@ begin
LMouseEvent.hwndTrack := Window;
LMouseEvent.dwHoverTime := HOVER_DEFAULT;
_TrackMouseEvent(@LMouseEvent);
LastMouseTracking := lWinControl;
end;
end;
@ -2238,7 +2239,11 @@ begin
begin
NotifyUserInput := True;
LMessage.Msg := LM_MOUSELEAVE;
Application.DoBeforeMouseMessage(nil);
if lWinControl=LastMouseTracking then
begin
Application.DoBeforeMouseMessage(nil);
LastMouseTracking := nil;
end;
end;
WM_MOUSEMOVE: DoMsgMouseMove;
WM_MOUSEWHEEL: if DoMsgMouseWheel(Result) then Exit;

1
lcl/interfaces/win32/win32int.pp
View File

@ -274,6 +274,7 @@ type
var
LastMouse: TLastMouseInfo;
LastMouseTracking: TControl = nil;
ComboBoxHandleSizeWindow: HWND = 0;
IgnoreNextCharWindow: HWND = 0; // ignore next WM_(SYS)CHAR message
IgnoreKeyUp: Boolean = True; // ignore KeyUp after application start; issue #30836