I'm trying to make scroll a portion of my screen, but all the screen is cleared when i call my function.
I use screen 19 in 32 bits depth.
Any idea ?
Code: Select all
' scrolling
Sub WB_Scroll(x1 As integer, y1 as integer, x2 as integer, y2 as integer, x3 As integer, y3 as integer)
Dim tempImg As fb.Image Ptr = ImageCreate(x2 - x1 + 1, y2 - y1 + 1, RGB(0, 0, 0), 32)
' get the image
Get (x1, y1)-(x2, y2), tempImg
' lock the screen and put it
ScreenLock
Cls
Put (x3, y3), tempImg
ScreenUnlock
' destroy the image
ImageDestroy(tempImg)
End Sub