那有图片转换工具呀?例如 (将bmp 图片转换成 ico 图片)

xinyu2008 2002-06-04 06:19:06

那有图片转换工具呀?例如 (将bmp 图片转换成 ico 图片)?

...全文

112 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

newnewworm 2002-06-04

打赏
举报

image editor 确实不错哦！

netlib 2002-06-04

打赏
举报

delphi自己带的image editor就可以转换

hongfengbeauty 2002-06-04

打赏
举报

去delphi天下下载一个控件，很方便
http://go4.163.com/cy8848

Billy_Chen28 2002-06-04

打赏
举报

bmp to ico
procedure Bmp2Ico(bmp, ico: string); //bmp和ico是文件名
var
IconSizeX : integer;
IconSizeY : integer;
myBmp : TBitmap;
AndMask : TBitmap;
XOrMask : TBitmap;
IconInfo : TIconInfo;
Icon : TIcon;
begin
IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);

myBmp := TBitmap.Create;
myBmp.LoadFromFile(bmp);

AndMask := TBitmap.Create;
AndMask.Width := IconSizeX;
AndMask.Height := IconSizeY;
AndMask.Canvas.Brush.Color := clBlack;
AndMask.Canvas.Rectangle(0, 0, IconSizeX, IconSizeY);

XOrMask := TBitmap.Create;
XOrMask.Width := IconSizeX;
XOrMask.Height := IconSizeY;
StretchBlt(XorMask.Canvas.Handle, 0, 0, IconSizeX, IconSizeY,
myBmp.Canvas.Handle, 0, 0, myBmp.Width, myBmp.Height, SRCCOPY);

Icon := TIcon.Create;
IconInfo.fIcon := true;
IconInfo.xHotspot := 0;
IconInfo.yHotspot := 0;
IconInfo.hbmMask := AndMask.Handle;
IconInfo.hbmColor := XOrMask.Handle;
Icon.Handle := CreateIconIndirect(IconInfo);

AndMask.Free;
XOrMask.Free;
myBmp.Free;

Icon.SaveToFile(ico);
Icon.Free;
end;