在报表中加入印章,怎么做? 就是报表内有一个印章的图片,但是印章的图片必须盖在报表上面,而且印章是透明的。我试了,RQIMAGE没有透明的设置。如果用IMAGE则没有任何图片可以预览到。应该怎么做呢? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 除非自己画报表:Bitblt(Image1.Picture.Bitmap.Canvas.Handle,50,50, Image5.Picture.Bitmap.width, Image5.Picture.Bitmap.Height, Image5.Picture.Bitmap.Canvas.Handle,0,0,SRCAND)采用SRCAND方式把Image5画到Image1或打印机画布中 LKJ99:首先谢谢呢的关注:首先我的报表已经出了,而且排版已经完成,都是通过QReport来实现的。我现在只要在上面加个印章,印章的BMP也有了。可不可以直接把印章加画在printer上但又和报表内容同时打印出来的办法,就是在不用改动以前的程序的基础上实现。 我看到了Qrctrls单元中实现TQRImage的打印是如下:with Info^.bmiHeader do StretchDIBits(aCanvas.Handle, Dest.Left, Dest.Top, Dest.RIght - Dest.Left, Dest.Bottom - Dest.Top, 0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS,SRCCOPY); //SRCAND 你试试 把SRCCOPY改为 SRCAND ,或找到类似方法。(我的QuickReport已经被我搞乱了,好在我很少用它做事情) 问题就在于TQRImage没有透明的属性,怎么可以实现这个目的就可以解决了啊! 我这里不能打开Qrctrls单元,怎么打开啊? 在这个目录,D:\Program Files\Borland\Delphi5\quickrpt To: pukerno3(飞天) 新年好! 做好了不要忘了跟大家一起分享你的成果哦! 最终还是没有解决QRIMAGE的透明问题,好象它就不可以通过程序重画达到透明的效果,最多是可以看到他的背景色。但是针对我的问题,我还是解决了。嘻嘻!稍微变通一下就可以了:原本我想文字在下面,章在上面盖下去,但是走不通。现在我反过来,章在下面,字在上面(QRLable是支持透明的),这样达到了预想的目的。再次感谢: LKJ99(阳江in深圳,路在何方...) 的关注。 access数据库用户输入数据对sql语句影响的问题 [版务贴] 导分投诉热线 delphi6下,ado连接excel问题 delphi6 or 7 怎样安装rxlib控件包 为广大编程爱好者提供软件发布平台 请教高手: 用winexec执行NET SEND 编聊天程序的问题 怎么将文件放入回收站? 怎么通过程序修改IE的安全设置!? 关于登陆窗体和主窗体的问题,急用~~~ 如何实现线程? 请问如何接收80端口数据 关于DELPHI7。0中的报表问题
Bitblt(Image1.Picture.Bitmap.Canvas.Handle,50,50,
Image5.Picture.Bitmap.width, Image5.Picture.Bitmap.Height,
Image5.Picture.Bitmap.Canvas.Handle,0,0,SRCAND)
采用SRCAND方式把Image5画到Image1或打印机画布中
可不可以直接把印章加画在printer上但又和报表内容同时打印出来的办法,就是在不用改动以前的程序的基础上实现。
StretchDIBits(aCanvas.Handle, Dest.Left, Dest.Top,
Dest.RIght - Dest.Left, Dest.Bottom - Dest.Top,
0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS,SRCCOPY); //SRCAND
你试试 把SRCCOPY改为 SRCAND ,或找到类似方法。(我的QuickReport已经被我搞乱了,好在我很少用它做事情)
D:\Program Files\Borland\Delphi5\quickrpt
做好了不要忘了跟大家一起分享你的成果哦!
但是针对我的问题,我还是解决了。嘻嘻!稍微变通一下就可以了:
原本我想文字在下面,章在上面盖下去,但是走不通。现在我反过来,章在下面,字在上面(QRLable是支持透明的),这样达到了预想的目的。再次感谢: LKJ99(阳江in深圳,路在何方...) 的关注。