OpenEuphoria

stretchBlt

• Posted by Patrick.Barnes at transgrid.com.au Jan 24, 2003
• 471 views

I have this procedure:
global constant xSetStretchBltMode = registerw32Function
(gdi32,"SetStretchBltMode", {C_LONG, C_INT}, C_INT)
global procedure stretchBlt( atom dst, integer dstX, integer dstY, 
							atom src, integer srcX, integer srcY, 
							integer destWide, integer destHigh,
							integer srcWide, integer srcHigh, 	 
							integer rop )
	atom srcDC, dstDC
	srcDC = getDC( src )
	dstDC = getDC( dst )
	if w32Func (xSetStretchBltMode, {
		dstDC, 4 }) = 0 then
		if message_box ("SetStretchBltMode failed", "", 0) then end if
	end if
if not w32Func( xStretchBlt, {dstDC, dstX, dstY, destWide, destHigh, srcDC,
srcX, srcY, srcWide, srcHigh, rop} ) then
	  warnErr( "stretchBlt:StretchBlt failed." )
	end if
	releaseDC( dst )
	releaseDC( src )
end procedure

If I stretchBlt to a Window, it works fine, but if I stretchBlt to a bitmap it
fails.

Any ideas why?

=======================
Patrick Barnes
Information Systems Group
201 Elizabeth St, Sydney
Patrick.Barnes at transgrid.com.au
Ext: 91-3583
Ph:(02) 9284-3583
Mob: 0410 751 044


***********************************************************************




***********************************************************************