cambiar el color de un toolbutton

[ecfisa]

Hola Paula.

Podés hacer:

Código Delphi [-]
...
implementation

var
  GlobalColor: TColor = clBtnFace; // color con que desees que se inicie

procedure TForm1.ToolBar1CustomDrawButton(Sender: TToolBar;
  Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Button.Name = 'ToolButtonColor' then
    with Sender.Canvas do
    begin
      Pen.Style:= psClear;
      Brush.Color:= GlobalColor;
      Rectangle(Button.BoundsRect);
    end;
end;

procedure TForm1.ToolButtonColorClick(Sender: TObject);
begin
  if ColorDialog1.Execute then
  begin
    GlobalColor:= ColorDialog1.Color;
    TToolButton(Sender).Parent.Invalidate;
  end;
end;

Saludos.

[PaulaGV]

muchas gracias por tu respuesta!!a modo de prueba le agregue al toolbutton una imagen alusiva a la función que cumple (formato BMP-16x16) y ademas implemente el código de tu respuesta, y quedo muy bien!!(segun mi criterio) ya que la imagen no se modifica, pero cada vez que cambio de color, los bordes de la imagen quedan de ese color

[ecfisa]

Hola Paula.

Eso depende del fondo de la imágen BMP.

Te adjunto un ejemplo con dos ToolButtons, el primero se pinta sin presentar defectos; en cambio el segundo deja un borde desprolijo alrededor de la imágen. Ambas imágenes son de 16x16.

Saludos.

[PaulaGV]

muchisimas gracias por tu tiempo y las respuestas obvio!!!