能否移除 TSpeedButton 图标周围的丑陋轮廓？

Question

能否移除 TSpeedButton 图标周围的丑陋轮廓？

delphiglyph

21

遇到了一个小问题，是我自己的问题还是你们也不能将资源中的图像分配给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”的图像。

在此输入图片描述

- Felix de Souza

问题显然是左图中忽略了 alpha 通道。 - Andreas Rejbrand

2

通常情况下，您应该调用 X.Assign(Y)，而不是 Y.AssignTo(X)。如果 TX 不知道如何从 TY 获取属性，则会自动调用 Y.AssignTo(X) 来委托给 TY。但是，如果 TY 不知道如何将自己分配给 TX，则不会委托给目标对象。 - Rob Kennedy

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Andreas Rejbrand · Accepted Answer

很明显问题出在左边的图片忽略了alpha通道。现在，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);

生成

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

这段文字没有需要翻译的内容，它是一个包含图像标记的HTML代码。