delphi7的pngimage组建打印透明png图片为黑底色

wuchangxin 2007-11-09 05:00:41
delphi7的pngimage组建打印透明png图片为黑底色。
怎样打印透明的png图片.
...全文
954 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
wuchangxin 2007-12-07
  • 打赏
  • 举报
回复
真的没人解决阿
wuchangxin 2007-11-16
  • 打赏
  • 举报
回复
高手呢?
唉,delphi论坛人越来越少了阿!
wuchangxin 2007-11-13
  • 打赏
  • 举报
回复

为了抛砖引玉,下面是一个简单的打印程序:
var
i: integer;
Img: TImage;
begin
Printer.BeginDoc; // **
for i := 0 to componentcount - 1 do
if components[i] is TImage then
begin
Img := TImage(components[i]);
Printer.CANVAS.stretchDraw(
Rect(Img.left, Img.top,
Img.left + img.Picture.Graphic.Width,
Img.Top + img.Picture.Graphic.Height
),
img.Picture.Graphic)
end;
Printer.EndDoc; // **
end;
---要保证这段代码可以运行,请先保证你机子正常连接打印机(或装个虚拟打印机,如SmartPrinter),然后建一工程,form上放两个Image,两Image互相重叠,一大一小。并分别load不同图片,在上面的image装载透明png图片,下面的随便装什么图片均可。
再放一个Button。点击事件就用上面的代码即可。
请大家先测试看看。其实,引用TGifImage就能搞透明的,和上面的代码一样。
wuchangxin 2007-11-12
  • 打赏
  • 举报
回复
没有人能解决吗?

1,185

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧