在报表中加入印章，怎么做？

[pukerno3]

就是报表内有一个印章的图片，但是印章的图片必须盖在报表上面，而且印章是透明的。我试了，RQIMAGE没有透明的设置。如果用IMAGE则没有任何图片可以预览到。
应该怎么做呢？

[LKJ99]

我看到了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已经被我搞乱了，好在我很少用它做事情）

[pukerno3]

问题就在于TQRImage没有透明的属性，怎么可以实现这个目的就可以解决了啊！

[pukerno3]

我这里不能打开Qrctrls单元，怎么打开啊？

[LKJ99]

在这个目录，
D:\Program Files\Borland\Delphi5\quickrpt

[pukerno3]

我的是D6，好象是编译过的，打不开。

[LKJ99]

除非自己画报表：
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或打印机画布中

[pukerno3]

LKJ99:首先谢谢呢的关注：

首先我的报表已经出了，而且排版已经完成，都是通过QReport来实现的。我现在只要在上面加个印章，印章的BMP也有了。
可不可以直接把印章加画在printer上但又和报表内容同时打印出来的办法，就是在不用改动以前的程序的基础上实现。

[LKJ99]

To: pukerno3(飞天) 新年好！
做好了不要忘了跟大家一起分享你的成果哦！

[pukerno3]

最终还是没有解决QRIMAGE的透明问题，好象它就不可以通过程序重画达到透明的效果，最多是可以看到他的背景色。
但是针对我的问题，我还是解决了。嘻嘻！稍微变通一下就可以了：
原本我想文字在下面，章在上面盖下去，但是走不通。现在我反过来，章在下面，字在上面（QRLable是支持透明的），这样达到了预想的目的。

再次感谢： LKJ99(阳江in深圳,路在何方...) 的关注。