delphi - 是否可以删除 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

问题很明显，左图中的 Alpha channel 被忽略了。现在，TSpeedButton.Glyph 属性是一个 TBitmap，因此保留 PNG Alpha channel 可能会出现问题。例如，

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

产生

部分解决方案是预混合 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);