ToolButton background color
lazarus / 39-Graphics

----------------------------------------------------------------------
polpero · 2016-01-07 14:58

Hi...

On a TToolBar, is there a way to change the background color of a DOWN
button part a grouped Buttons list. Those buttons already use
transparent images from an image list...

I've tried the PaintButton event but it removed the image...

Thanks

----------------------------------------------------------------------
polpero · 2016-01-09 22:14

In case someone is interested this solved my problem...

I don't know what ToolBar.PaintButton is used for
but you can change the background of a ToolBar's selected button
using the ToolBarPaint's method:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i // curBtn
is a mainForm's variableprocedure TmainForm.tBtnClick(Sender:
TObject);begin  with sender as TToolButton do       curBtn := tag;  
// tag was assigned button's index at creation  refresh;end; procedure
TmainForm.TBarPaint(Sender: TObject);var bRect : TRect;begin   with
ToolBar do  begin          bRect := Buttons[curBtn].BoundsRect;      
  with canvas do            begin               brush.color :=
clBlack;               Rectangle(bRect);            end;        end; 
end;end;