From 236126e7eef945f5ec73414277b0a7b66a40e200 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Sun, 24 Aug 2008 13:02:04 +0000
Subject: [PATCH] win32 interface: fixed TSmallPomt to WParam typecast (issue
 #11954)

git-svn-id: trunk@16206 -
---
 lcl/interfaces/win32/win32winapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index c8f84adadf..d606ae455e 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -186,7 +186,7 @@ var
       Pos.Y := Y;
     end;
     ClientToScreen(Handle, Pos);
-    WParam := Windows.WParam(PointToSmallPoint(Pos));
+    WParam := Windows.WParam(Longint(PointToSmallPoint(Pos)));
 
     if Windows.SendMessage(Handle, WM_NCHITTEST, 0, WParam) = HTHSCROLL then
     begin