Hola Bruno,
Tengo problemas con la Función TToolButton(), ya que yo no consigo, que me saque el color Negro de los Bitmaps, a ver si es que yo no configuro bien la Función, o si es un fallo del compilador.
A qui te adjunto la forma en que yo utilizo esta Función:

// Terminar y Salir del Prograna.
Boton:=TToolButton():Create(::BarraBotones)
Boton:Cursor:Name:=crHandPoint
Boton:Image:Name:="Salir"
Boton:Hint:="Cerrar y Salir del Programa|Salir del Programa."
Boton:OnClick:={|oSender|::Close()}

El color Negro del Bitmap "salir" me lo convierte en Gris Claro, y como abras podido comprobar, en el programa que te he remitido, he tenido que utilizar el Azul muy oscuro, para que me simulara el color Negro.

Un Saludo
Fraguibo

Francisco,

Deja el color negro original en los bitmaps, el problema es que si no especificas un valor para el color de transparencia toma el negro, cámbialo con la propiedad MaskColor:

Boton:Image:MaskColor := clOlive

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Gracias Bruno,
Una vez añadida esa nueva línea, la función TToolButton() funciona perfectamente. :D

Fraguibo