讨论:bmp转ico的问题

lihuimin622 2006-04-19 09:03:17
谁知道BMP或者其他图片怎么转为ICO???
...全文
93 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
bluesky23 2006-04-19
MARK
  • 打赏
  • 举报
回复
老之 2006-04-19
procedure bmp2ico(Image: TImage; FileName: TFilename);
var Bmp: TBitmap;
Icon: TIcon;
ImageList: TImageList;
begin
Bmp := TBitmap.Create;
Icon := TIcon.Create;
try
Bmp.Assign(Image.Picture);
ImageList := TImageList.CreateSize(Bmp.Width, Bmp.Height);
try
ImageList.AddMasked(Bmp, Bmp.TransparentColor);
ImageList.GetIcon(0, Icon);
// Save it to a file C
Icon.SaveToFile(FileName);
finally
ImageList.Free;
end;
finally
Bmp.Free;
Icon.Free;
end;
end;

http://www.0470a.net/cgi-bin/topic.cgi?forum=2&topic=286&show=0
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库相关
加入

2462

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2006-04-19 09:03
社区公告
暂无公告