From 88d00ecb4d746f5680029b3a389989a05b108f70 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 24 Feb 2015 11:53:08 +0000
Subject: [PATCH] RxFPC:fix bg color in RxTollbar setup dialog

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxtbrsetup.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/rx/trunk/rxtbrsetup.pas b/components/rx/trunk/rxtbrsetup.pas
index 29ec32073..6d527ed4b 100644
--- a/components/rx/trunk/rxtbrsetup.pas
+++ b/components/rx/trunk/rxtbrsetup.pas
@@ -121,8 +121,10 @@ var
   P:TToolbarItem;
   BtnRect:TRect;
   Cnv:TCanvas;
+  C: TColor;
 begin
   Cnv:=(Control as TListBox).Canvas;
+  C:=Cnv.Brush.Color;
   Cnv.FillRect(ARect);       { clear the rectangle }
   P:=TToolbarItem((Control as TListBox).Items.Objects[Index]);
   if Assigned(P) then
@@ -147,6 +149,7 @@ begin
         Offset:=BtnRect.Right;
       end;
       Offset := Offset + 6;
+      Cnv.Brush.Color:=C;
       Cnv.TextOut(ARect.Left + Offset, (ARect.Top + ARect.Bottom  - Cnv.TextHeight('W')) div 2, TCustomAction(P.Action).Caption);  { display the text }
     end;
   end;