From 0b9fc091a6b9ecf7a6244936758d49e3b609c254 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 10 Apr 2012 18:29:47 +0000
Subject: [PATCH] lcl: fixed TToolButton.MouseUp X,Y in boundsrect check

git-svn-id: trunk@36715 -
---
 lcl/include/toolbutton.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/toolbutton.inc b/lcl/include/toolbutton.inc
index d0df3d67ad..3be0a7b523 100644
--- a/lcl/include/toolbutton.inc
+++ b/lcl/include/toolbutton.inc
@@ -115,7 +115,7 @@ begin
     if FMouseInControl then
     begin
       Pt := Point(X, Y);
-      if not PtInRect(BoundsRect, Pt) then
+      if not PtInRect(Rect(0,0,Width,Height), Pt) then
         SetMouseInControl(false);
     end;
     DropDownMenuDropped := False;