From 0acde597041e3e33b7cc6785dbb70332d6c58b82 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 29 Jun 2013 08:03:30 +0000
Subject: [PATCH] Designer: Fix flickering cursor when dragging control on
 windows 7 64 bit. Issue #20292, patch from Cyrax.

git-svn-id: trunk@41934 -
---
 designer/designer.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 80e092c991..c81372e13e 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -1543,7 +1543,7 @@ end;
 
 function TDesigner.HandleSetCursor(var TheMessage: TLMessage): boolean;
 begin
-  Result := Lo(TheMessage.LParam) = HTCLIENT;
+  Result := Lo(DWord(TheMessage.LParam)) = HTCLIENT;
   if Result then
   begin
     SetTempCursor(Form, LastFormCursor);