From c5f71e201142e964e7b6c07523ca00fbc6f9e13c Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Fri, 21 Jan 2005 12:10:25 +0000
Subject: [PATCH] only change cursor if within client area

git-svn-id: trunk@6654 -
---
 designer/designer.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index d14588f276..178ef21011 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -981,9 +981,12 @@ end;
 
 function TDesigner.HandleSetCursor(var TheMessage: TLMessage): boolean;
 begin
-  Form.SetTempCursor(LastFormCursor);
-  TheMessage.Result := 1;
-  Result := true;
+  Result := Lo(TheMessage.LParam) = HTCLIENT;
+  if Result then
+  begin
+    Form.SetTempCursor(LastFormCursor);
+    TheMessage.Result := 1;
+  end;
 end;
 
 function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;