From f1dec0d4e017022823c3c68e2f44db79c758534e Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 17 Oct 2010 02:23:09 +0000
Subject: [PATCH] win32: a trial to fix a range check error Martin has found

git-svn-id: trunk@27725 -
---
 lcl/interfaces/win32/win32wscontrols.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp
index bb3280a88f..c2f0891bd1 100644
--- a/lcl/interfaces/win32/win32wscontrols.pp
+++ b/lcl/interfaces/win32/win32wscontrols.pp
@@ -539,7 +539,7 @@ begin
   h := Windows.ChildWindowFromPointEx(h, Windows.POINT(P), CWP_SKIPINVISIBLE or CWP_SKIPDISABLED);
 
   HitTestCode := SendMessage(h, WM_NCHITTEST, 0, LParam((CursorPos.X and $FFFF) or (CursorPos.Y shl 16)));
-  SendMessage(h, WM_SETCURSOR, h, MakeLong(HitTestCode, WM_MOUSEMOVE));
+  SendMessage(h, WM_SETCURSOR, WParam(h), MakeLong(HitTestCode, WM_MOUSEMOVE));
 end;
 
 class procedure TWin32WSWinControl.SetShape(const AWinControl: TWinControl;