From c7336736dabc33bf2d2cf681bf6f0e090afc653d Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:29 +0000
Subject: [PATCH] fixed uninitialized style

git-svn-id: trunk@2571 -
---
 lcl/include/speedbutton.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index b0779aa8a4..3af034e80b 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -335,7 +335,6 @@ begin
   UpdateState(false);
   if FGlyph=nil then exit;
 
-//  PaintRect := Rect(0, 0, Width, Height);
   PaintRect:= ClientRect;
 
   {if Transparent and not (csDesigning in ComponentState) then
@@ -344,6 +343,7 @@ begin
     BrushStyle:= bsSolid;}
 
   FLastDrawFlags:=GetDrawFlags;
+  //writeln('TSpeedbutton.Paint ',Name,':',ClassName,' Parent.Name=',Parent.Name);
   DrawFrameControl(Canvas.Handle, PaintRect, DFC_BUTTON, FLastDrawFlags);
 
   GlyphWidth:= TButtonGlyph(FGlyph).Glyph.Width;
@@ -704,6 +704,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.35  2003/02/16 01:40:43  mattias
+  fixed uninitialized style
+
   Revision 1.34  2003/02/06 20:46:51  mattias
   default fpc src dirs and clean ups