From 4af2550576120a663c5030b500a34b007dd610cc Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:41:20 +0000
Subject: [PATCH] MG: small bugfixes

git-svn-id: trunk@2405 -
---
 lcl/include/speedbutton.inc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index 9e8d0bfa6d..9e36cca34b 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -299,7 +299,7 @@ begin
     BrushStyle:= bsClear
   else
     BrushStyle:= bsSolid;}
-  
+
   DrawFlags:=DFCS_BUTTONPUSH;
   if Flat and (not (csDesigning in ComponentState)) then inc(DrawFlags,DFCS_FLAT);
   if FState in [bsDown, bsExclusive] then inc(DrawFlags,DFCS_PUSHED);
@@ -400,6 +400,8 @@ begin
 
   FGlyph.Draw(Canvas, PaintRect, Offset, FState, Transparent, 0);
   if Caption <> '' then begin
+    Canvas.Brush.Color:=clBlue;
+    Canvas.FillRect(PaintRect);
     TXTStyle := Canvas.TextStyle;
     TXTStyle.Opaque := False;
     TXTStyle.Clipping := True;
@@ -657,6 +659,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.26  2002/09/12 15:35:57  lazarus
+  MG: small bugfixes
+
   Revision 1.25  2002/09/06 16:14:19  lazarus
   MG: fixed removing TSpeedButton