win32: notify LCL on mouse enter/leave, NC movements more correct

git-svn-id: trunk@20069 -

lcl/interfaces/win32/win32callback.inc

@@ -1823,12 +1823,12 @@ begin
     WM_MOUSEHOVER:
     begin
       NotifyUserInput := True;
-      LMessage.Msg := LM_ENTER;
+      LMessage.Msg := LM_MOUSEENTER;
     end;
     WM_MOUSELEAVE:
     begin
       NotifyUserInput := True;
-      LMessage.Msg := LM_LEAVE;
+      LMessage.Msg := LM_MOUSELEAVE;
     end;
     WM_MOUSEMOVE:
     begin
@@ -1949,6 +1949,11 @@ begin
       end;
 
     end;
+    WM_NCMOUSEMOVE, WM_NCMOUSELEAVE:
+    begin
+      NotifyUserInput := True;
+      Application.DoBeforeMouseMessage(nil);
+    end;
     WM_NOTIFY:
     begin
       WindowInfo := GetWindowInfo(PNMHdr(LParam)^.hwndFrom);

lcl/interfaces/win32/win32extra.pas

@@ -331,15 +331,17 @@ const
 // for GetRandomRgn
   SYSRGN                  = 4;
 
-// for SetWindowPos
+  // for SetWindowPos
 
-SWP_DEFERERASE     = $2000;
-SWP_ASYNCWINDOWPOS = $4000;
-SWP_STATECHANGED   = $8000; // used by windows but not documented (used even in wine)
+  SWP_DEFERERASE     = $2000;
+  SWP_ASYNCWINDOWPOS = $4000;
+  SWP_STATECHANGED   = $8000; // used by windows but not documented (used even in wine)
+
+  // addition XP messages
+  WM_THEMECHANGED = $31A;
+  // other messages
+  WM_NCMOUSELEAVE = $2A2;
 
-// addition XP messages
-WM_THEMECHANGED = $31A;
-  
 // missing imagelist macros and constants
 
 const

lcl/interfaces/win32/win32proc.pp

@@ -394,6 +394,7 @@ begin
     $0290: Result := 'WM_IME_KEYDOWN';
     $0291: Result := 'WM_IME_KEYUP';
     $02A1: Result := 'WM_MOUSEHOVER';
+    $02A2: Result := 'WM_NCMOUSELEAVE';
     $02A3: Result := 'WM_MOUSELEAVE';
     $0300: Result := 'WM_CUT';
     $0301: Result := 'WM_COPY';