是否有可能去除TSpeedButton字形周圍的醜陋輪廓？

Question

我遇到了一點問題，難道只是我或者你不能將資源中的圖像分配給TSpeedButton的標誌符號而沒有可怕的黑色輪廓，如下所示？

我已經爲TImage組件分配了完全相同的方式，並且得到了所需的結果。

我一直在尋找相當長的一段時間，但沒有人似乎有這個奇怪和煩人的問題。

下面是下面的表格我的源代碼：

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是類型「cardimage」，其涉及圖像被顯示在畫面如果尚未猜到的圖像。

Answer 1

問題顯然是阿爾法通道在左畫面被忽略。現在，TSpeedButton.Glyph屬性是TBitmap，因此保留PNG Alpha通道可能會有問題。例如，

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); 

產生

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

一種部分解決方案是預先混合的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