¿Es posible eliminar un contorno horrible alrededor de un glifo de TSpeedButton?

Question

Me he encontrado con un pequeño inconveniente, ¿soy yo o no puedes asignar una imagen de un recurso al glifo de TSpeedButton sin un horrendo contorno negro como se muestra a continuación?

Lo he asignado exactamente de la misma manera para el componente TImage y estoy obteniendo el resultado necesario.

He estado buscando por un tiempo, pero nadie parece tener este extraño y molesto problema.

Aquí está mi código fuente para el siguiente formulario:

procedure TForm3.Button1Click(Sender: TObject); 
var r : tresourcestream; png : tpngimage; 
begin 
    r := tresourcestream.CreateFromID(hinstance,34,'cardimage'); 
    png := tpngimage.Create; 
    png.LoadFromStream(r); 
    png.AssignTo(image1.Picture.bitmap); 
    png.AssignTo(speedbutton1.glyph); 
    png.Free; 
    r.Free; 
end; 

34 es la imagen del tipo 'cardimage' que se relaciona con la imagen que se muestra en la imagen si no lo ha adivinado.

Answer 1

La cuestión es claramente que el canal alfa se ignora en la imagen izquierda. Ahora, la propiedad TSpeedButton.Glyph es TBitmap, por lo que podría ser problemático conservar el canal alfa PNG. Por ejemplo,

var 
    png: TPNGImage; 
begin 
    png := TPngImage.Create; 
    png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png'); 
    SpeedButton1.Glyph.Assign(png); // or png.AssignTo(SpeedButton1.Glyph); 

produce

http://privat.rejbrand.se/speedbuttonalpha.png

Una solución parcial es pre-mezclar la imagen PNG:

var 
    png: TPNGImage; 
    bm: TBitmap; 
begin 
    png := TPngImage.Create; 
    png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png'); 
    bm := TBitmap.Create; 
    bm.SetSize(png.Width, png.Height); 
    bm.Canvas.Brush.Color := Self.Color; 
    bm.Canvas.FillRect(Rect(0, 0, bm.Width, bm.Height)); 
    bm.Canvas.Draw(0, 0, png); 
    SpeedButton1.Glyph.Assign(bm); 

http://privat.rejbrand.se/speedbuttonalpha2.png