Re: Bitmap clearing
- Posted by Pete Lomax <petelomax at blueyonder.co.uk> Jan 24, 2003
- 375 views
On Fri, 24 Jan 2003 15:31:49 +1100, Patrick.Barnes at transgrid.com.au wrote: I know this is evidently similar to what you have, but I have not experienced any problems with this version, bitmap, or printer: procedure stretchBlt( atom dst, integer dstX, integer dstY,=20 atom src, integer srcX, integer srcY,=20 integer destWide, integer destHigh, integer srcWide, integer srcHigh, integer rop )=20 atom srcDC, dstDC -- get the DCs srcDC =3D getDC( src ) dstDC =3D getDC( dst ) -- copy area if not w32Func( xStretchBlt, {dstDC, dstX, dstY, destWide, destHigh, srcDC,=20 srcX, srcY, srcWide, srcHigh, rop} ) then=20 warnErr( "stretchBlt:StretchBlt failed." )=20 end if -- release the DCs =20 releaseDC( dst )=20 releaseDC( src ) end procedure HTH, Pete