From ab8a4c647c49274f11fc4a5fcf8d146935fa599f Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Fri, 7 Mar 2008 12:24:46 +0000
Subject: [PATCH] LCL carbon: fixed bug [Lazarus 0010968]: Carbon TSpinEdit
 TFloatSpinEdit do not work correctly

git-svn-id: trunk@14455 -
---
 lcl/interfaces/carbon/carbonprivatecommon.inc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonprivatecommon.inc b/lcl/interfaces/carbon/carbonprivatecommon.inc
index 7ab6aa3195..886dea651c 100644
--- a/lcl/interfaces/carbon/carbonprivatecommon.inc
+++ b/lcl/interfaces/carbon/carbonprivatecommon.inc
@@ -120,13 +120,13 @@ begin
 
   if Widget <> nil then
   begin
-    P := Widget.GetMousePos;
-    if (LastMousePos.X = P.X) and (LastMousePos.Y = P.Y) then Exit;
-    LastMousePos := P;
-
     if Widget is TCarbonControl then
       if cceDoAction in (Widget as TCarbonControl).GetValidEvents then
         (Widget as TCarbonControl).DoAction(APartCode);
+  
+    P := Widget.GetMousePos;
+    if (LastMousePos.X = P.X) and (LastMousePos.Y = P.Y) then Exit;
+    LastMousePos := P;
 
     FillChar(Msg, SizeOf(TLMMouseMove), 0);
     Msg.Msg := LM_MOUSEMOVE;