delphi 2010 ListImage动态添加png图片
delphi2010，虽然支持了png格式，但是imagelist的add方法也只支持添加bitmap类型，在编译期可以直接将png加入imagelist，但在程序的运行...
delphi2010，虽然支持了png格式，但是imagelist的add方法也只支持添加bitmap类型，在编译期可以直接将png加入imagelist，但在程序的运行期呢？这个该如何解决呢？请大家帮我看看，谢谢
展开
2个回答
展开全部
uses ...PngImage;
procedure PNGtoBMP(png,bmp:string);
var
png:Tpngobject;
bmp:Tbitmap;
begein
png:=Tpngobject.create;
png.loadFile(png);
bmp:=Tbitmap.create;
Bmp.width:=png.Width;
Bmp.height:=png.Height;
png.draw(bmp,bmp.canvas.ClipRect);
bmp.savefile(bmp);
FreeAndNil(png);
FreeAndNil(bmp);
end;
做一个转换处理。
procedure PNGtoBMP(png,bmp:string);
var
png:Tpngobject;
bmp:Tbitmap;
begein
png:=Tpngobject.create;
png.loadFile(png);
bmp:=Tbitmap.create;
Bmp.width:=png.Width;
Bmp.height:=png.Height;
png.draw(bmp,bmp.canvas.ClipRect);
bmp.savefile(bmp);
FreeAndNil(png);
FreeAndNil(bmp);
end;
做一个转换处理。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
