paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:41:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: don't reset the mouse control on wm_ncmmouseleave, do it on wm_ncmousehover instead

Browse Source 
git-svn-id: trunk@27933 -
This commit is contained in:
paul 2010-10-29 04:26:44 +00:00
parent bd87b5e702
commit 4030c2d591
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

@ -106,7 +106,10 @@ begin
IsComboboxAndHasEdit(Window);
if setComboWindow then
ComboBoxHandleSizeWindow := Window;
Result := Windows.CallWindowProc(PrevWndProc, Window, Msg, WParam, LParam);
if UnicodeEnabledOS then
Result := Windows.CallWindowProcW(PrevWndProc, Window, Msg, WParam, LParam)
else
Result := Windows.CallWindowProc(PrevWndProc, Window, Msg, WParam, LParam);
if setComboWindow then
ComboBoxHandleSizeWindow := 0;
end;
@ -1883,7 +1886,7 @@ begin
// which frees our form and we get a destructed lWinControl
lWinControl := nil;
end;
WM_NCMOUSEMOVE, WM_NCMOUSELEAVE:
WM_NCMOUSEMOVE, WM_NCMOUSEHOVER:
begin
LMessage.Msg := Msg;
LMessage.WParam := WParam;