delphi – 是否可以删除围绕TSpeedButton字形的可怕轮廓？

发布时间：2020-12-15 10:17:24 所属栏目：大数据来源：网络整理

导读：我遇到了一个陷阱，只是我，或者你不能将一个资源的图像分配给TSpeedButton的字形，没有如下所示的可怕的黑色轮廓：我已经为TImage组件分配了完全一样的方式，我得到了所需的结果。我一直在寻找一段时间，但没有人似乎有这个奇怪和烦人的问题。以下是我的

我遇到了一个陷阱，只是我，或者你不能将一个资源的图像分配给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”类型的图像，如果您还没有猜到。

解决方法

这个问题显然是在左图中忽略了Alpha通道。现在，TSpeedButton.Glyph属性是TBitmap，因此保留PNG alpha通道可能是有问题的。例如，

var
  png: TPNGImage;
begin
  png := TPngImage.Create;
  png.LoadFromFile('C:UsersAndreas RejbrandPicturesalpha.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:UsersAndreas RejbrandPicturesalpha.png');
  bm := TBitmap.Create;
  bm.SetSize(png.Width,png.Height);
  bm.Canvas.Brush.Color := Self.Color;
  bm.Canvas.FillRect(Rect(0,bm.Width,bm.Height));
  bm.Canvas.Draw(0,png);
  SpeedButton1.Glyph.Assign(bm);

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!