From 4de81e3e301a819eab6fe152a19517dba38b5297 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:27 +0000
Subject: [PATCH] fixed message

git-svn-id: trunk@2526 -
---
 lcl/include/speedbutton.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index 248296e66c..20f6b0d3b4 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -494,7 +494,6 @@ procedure TSpeedButton.MouseDown(Button: TMouseButton; Shift: TShiftState;
   X, Y: Integer);
 begin
   inherited MouseDown(Button, Shift, X, Y);
-  
   if csDesigning in ComponentState then exit;
   
   if (Button = mbLeft) and Enabled
@@ -667,7 +666,7 @@ begin
   if csDesigning in ComponentState then exit;
   
   if not FMouseInControl
-  and Enabled and (GetCapture = 0) 
+  and Enabled and (GetCapture = 0)
   then begin
     FMouseInControl := True;
     UpdateState(true);
@@ -682,11 +681,12 @@ end;
  ------------------------------------------------------------------------------}
 procedure TSpeedButton.CMMouseLeave(var Message :TLMessage);
 begin
+writeln('TSpeedButton.CMMouseLeave A ',FMouseInControl,' ',Enabled,' ',FDragging);
   inherited CMMouseLeave(Message);
   if csDesigning in ComponentState then exit;
 
   if FMouseInControl
-  and Enabled and not FDragging
+  and Enabled {and not FDragging}
   then begin
     FMouseInControl := False;
     UpdateState(true);
@@ -705,6 +705,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.33  2003/02/06 06:33:57  mattias
+  fixed message
+
   Revision 1.32  2003/01/27 13:49:16  mattias
   reduced speedbutton invalidates, added TCanvas.Frame