From fbfb9e8cbfa2bbac68539fda75441c0e1b9961b1 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Mon, 25 Feb 2002 17:08:50 +0000
Subject: [PATCH] MG: reduced hints

git-svn-id: trunk@1458 -
---
 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 05e6783dc5..8467a82520 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -256,7 +256,7 @@ var
   DrawFlags, GlyphWidth, GlyphHeight: Integer;
   Offset, OffsetCap: TPoint;
   ClientSize, TotalSize, TextSize: TSize;
-  BrushStyle : TBrushStyle;
+  //BrushStyle : TBrushStyle;
   M, S : integer;
 
 begin
@@ -276,10 +276,10 @@ begin
   PaintRect := Bounds(Left, Top, Width, Height);
 //  PaintRect := Rect(0, 0, Width, Height);
 
-  if Transparent and not (csDesigning in ComponentState) then
+  {if Transparent and not (csDesigning in ComponentState) then
     BrushStyle:= bsClear
   else
-    BrushStyle:= bsSolid;
+    BrushStyle:= bsSolid;}
   
   Canvas.Brush.Color:= clBtnFace;
   Canvas.FillRect(PaintRect);
@@ -653,6 +653,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.13  2002/02/25 17:08:50  lazarus
+  MG: reduced hints
+
   Revision 1.12  2002/02/24 20:51:24  lazarus
   Improved TSpeedButton (Glyph, Spacing, Margin, drawing)
   Added PageCount to TNotebook