From a3507ade6c3e9865b83b5bdbe1d95d2d1206c741 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 18 May 2007 02:23:55 +0000
Subject: [PATCH] - tiny changes in non transparent speedbutton painting

git-svn-id: trunk@11162 -
---
 lcl/include/speedbutton.inc | 5 -----
 lcl/widgetset/wsbuttons.pp  | 3 +--
 2 files changed, 1 insertion(+), 7 deletions(-)

diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc
index b9bc323771..02ebdf25fa 100644
--- a/lcl/include/speedbutton.inc
+++ b/lcl/include/speedbutton.inc
@@ -546,11 +546,6 @@ begin
     end;
   end;
 
-  if not Transparent then
-  begin
-    Canvas.Brush.Color := Color;
-    Canvas.FillRect(PaintRect);
-  end;
   DrawGlyph(Canvas, PaintRect, Offset, FState, Transparent, 0);
   if FShowCaption and (Caption <> '') then
   begin
diff --git a/lcl/widgetset/wsbuttons.pp b/lcl/widgetset/wsbuttons.pp
index d10d24b01f..7666de6867 100644
--- a/lcl/widgetset/wsbuttons.pp
+++ b/lcl/widgetset/wsbuttons.pp
@@ -155,8 +155,7 @@ begin
     end;
   end;
 
-  if (not ASpeedButton.Transparent) and ASpeedButton.Enabled and
-    (ASpeedButton.Color <> clBtnFace) then
+  if (not ASpeedButton.Transparent) and ASpeedButton.Enabled then
   begin
     ASpeedButton.Canvas.Brush.Color := ASpeedButton.Color;
     ASpeedButton.Canvas.FillRect(ARect);