From 69097c78b5fe925c6e10f5bf14f37801f68500e9 Mon Sep 17 00:00:00 2001
From: freq <freq@lazarus-ide.org>
Date: Fri, 24 Jan 2014 13:43:38 +0000
Subject: [PATCH] Cocoa: Fix mouse move bug on custom control

git-svn-id: trunk@43787 -
---
 lcl/interfaces/cocoa/cocoaprivate.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/interfaces/cocoa/cocoaprivate.pp b/lcl/interfaces/cocoa/cocoaprivate.pp
index bd62e1396b..3bfa16fc9b 100644
--- a/lcl/interfaces/cocoa/cocoaprivate.pp
+++ b/lcl/interfaces/cocoa/cocoaprivate.pp
@@ -1325,6 +1325,7 @@ end;
 
 procedure TCocoaCustomControl.mouseMoved(event: NSEvent);
 begin
+if not Assigned(callback) or not callback.MouseMove(event) then
   inherited mouseMoved(event);
 end;