OpenEuphoria

Re: Bitmap clearing

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Jan 24, 2003
• 513 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