From 2d5f3f2b1941e70a2807ad2d9cf2b11c3a49e598 Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 5 Feb 2013 18:32:57 +0000
Subject: [PATCH] GradControls, make button caption transparent

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2659 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/gradcontrols/src/ugradbtn.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/gradcontrols/src/ugradbtn.pas b/components/gradcontrols/src/ugradbtn.pas
index 07b6ce983..293d5dc40 100644
--- a/components/gradcontrols/src/ugradbtn.pas
+++ b/components/gradcontrols/src/ugradbtn.pas
@@ -1118,7 +1118,8 @@ begin
 
     ACanvas.FillRect(FDropdownMarkAreaRect); 
     ACanvas.Draw(FDropdownMarkAreaRect.Left, FDropdownMarkAreaRect.Top, FBackgroundSplitCaches[FDropDownState]);
-  end;
+  end else
+    ACanvas.Brush.Style := bsClear;
 
   TextOffset := IfThen(tempState = bsDown, 1);