OpenEuphoria

Re: stretchBlt

• Posted by Martin Stachon <martin.stachon at worldonline.cz> Jan 24, 2003
• 549 views

----- Original Message ----- 
From: <Patrick.Barnes at transgrid.com.au>
To: "EUforum" <EUforum at topica.com>
Subject: stretchBlt


> I have this procedure:
<code snip> 
> If I stretchBlt to a Window, it works fine, but if I stretchBlt to a bitmap it
> fails.

I've just confirmed that StretchBlt() can output to a pixmap.
All you need is to use pixmap id (returned by create()) as destination. Eg in my
demo I did this :

 pixmap1 = create(Pixmap, "", 0, 0, 0, 640, 480, 0),

procedure drawIt ()
 sequence size1, size2
 size1 = getCtlSize(window1)
 size2 = getBitmapSize(hBitmap)
 stretchBlt(pixmap1, 0, 0, hBitmap, 0, 0, size1[1], size1[2],
  size2[1], size2[2], SRCCOPY)
 copyBlt(window1, 0, 0, pixmap1)
end procedure

Hope this helps,
    Martin