如何在delphi中将图标转换为具有alpha透明度的png？

发布时间：2020-12-15 09:37:27 所属栏目：大数据来源：网络整理

导读：下面的代码将从文件中提取图标并将其转换为png但没有alpha透明度？ var IconIndex : word; icon:TIcon; png:TPngImage; bmp:TBitmap;begin IconIndex := 0; icon := TIcon.Create; icon.Handle := ExtractAssociatedIcon(hInstance,pChar(Edit1.Text),IconIn

下面的代码将从文件中提取图标并将其转换为png但没有alpha透明度？

var
   IconIndex : word;
   icon:TIcon;
   png:TPngImage;
   bmp:TBitmap;
begin
  IconIndex := 0;
  icon := TIcon.Create;
  icon.Handle := ExtractAssociatedIcon(hInstance,pChar(Edit1.Text),IconIndex) ;
  bmp:= TBitmap.Create;
  bmp.LoadFromFile('blank.bmp');
  DrawIcon(bmp.Canvas.Handle,icon.Handle) ;
  png := TPngImage.Create();
  png.Assign(bmp);
  png.SaveToFile('icon.png');
end;

解决方法

PngComponents包含一个单位PngFunctions.pas,您可以在其中查看

procedure ConvertToPNG(来源：TGraphic; out Dest：TPngImage);

在那里,您可以找到将TIcon转换为TPngImage的代码 – 或者只是使用该过程.

（编辑：李大同）

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