paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 11:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

TSpeedButton: fixed painting disabled button from Darek

Browse Source 
git-svn-id: trunk@9614 -
This commit is contained in:
mattias 2006-07-14 22:48:31 +00:00
parent 8cc91672fe
commit 92b44bf68e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/speedbutton.inc
View File

@ -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;