浅谈如何利用PB实现图片透明叠加（改编）

作者：BALLOONMAN2002  2004年6月26日

本文拟结合POWERBUILDER语言，简述如何实现图片透明叠加效果，本例参考并改编了以前流传甚广的一篇VB文章，由于时间太久，源出处已无从查找，在此向原作者致意。程序效果图见：

http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/r_PIC_OVERLAP.JPG

一、基本思路

程序的原理是先创建两个用于起屏蔽作用的模板DC（装载单色掩码位图，且这二者正好是相反的关系，通过NotSrcCopy实现），分别与源DC和目标DC进行与操作（SrcAnd），这时就能将源DC和目标DC中要透明的区域和不要透明的区域正好各自划分成黑色部分（即象素颜色为0）（具体为源DC中透明区域为黑色，目标DC中不要透明区域为黑色），最后将“操作后”的源DC和目标DC二者再进行“异或”（SrcXor）操作即可实现二者的透明叠加。这里面关键的就是利用0和无论其他什么值（0、1）进行“异或”操作的结果都仍是原值（即仍是0、1），这样就可以保证象素最后XOR的结果是保留了叠加的效果。类似的我们还可以1和其他任何值相“与”的结果仍是原值来实现同样的效果。

这里面关键是创建的起屏蔽作用的模板DC，其就是利用CREATEBITMAP、SETBKCOLOR、BITBLT结合创建的。详见下述代码。

二、具体实现

（一）基本工作

创建一个WINDOW窗口和三个PICTURE控件，分别用于显示源图片、目标图片、合成结果图片。

声明本地外部函数：

Function ulong CreateCompatibleDC(ulong hdc) LIBRARY "gdi32.dll"

Function ulong CreateBitmap(ulong nWidth,ulong nHeight,ulong nPlanes,ulong nBitCount,ulong lpBits) LIBRARY "gdi32.dll"

Function ulong CreateCompatibleBitmap(ulong hdc,ulong nWidth,ulong nHeight) LIBRARY "gdi32.dll"

Function ulong SelectObject(ulong hdc,ulong hObject) LIBRARY "gdi32.dll"

Function ulong SetBkColor(ulong hdc,ulong crColor) LIBRARY "gdi32.dll"

Function ulong BitBlt(ulong hDestDC,ulong x,ulong y,ulong nWidth,ulong nHeight,ulong hSrcDC,ulong xSrc,ulong ySrc,ulong dwRop) LIBRARY "gdi32.dll"

Function ulong DeleteObject(ulong hObject) LIBRARY "gdi32.dll"

Function ulong DeleteDC(ulong hdc) LIBRARY "gdi32.dll"

Fu