From 92b44bf68e062513ddedd0b4c4cd2823e631634a Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 14 Jul 2006 22:48:31 +0000 Subject: [PATCH] TSpeedButton: fixed painting disabled button from Darek git-svn-id: trunk@9614 - --- lcl/include/speedbutton.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc index 6a549cbd5c..80066f1c18 100644 --- a/lcl/include/speedbutton.inc +++ b/lcl/include/speedbutton.inc @@ -459,7 +459,7 @@ begin // ' DFCS_INACTIVE=',FLastDrawFlags and DFCS_INACTIVE, // ' DFCS_FLAT=',FLastDrawFlags and DFCS_FLAT, // ''); - if not Transparent and (color<>clBtnFace) then begin + if (not Transparent) and Enabled and (Color<>clBtnFace) then begin Canvas.Brush.Color := Color; Canvas.FillRect(PaintRect); end;