groll によるスクロールについて

作成したBitMap オブジェクトを SelectObject 関数で
操作先ウィンドウに指定して使用しています。

下のスクリプトでは、「表示」「groll による、画面のスクロール」は可能なのですが
gmode 0 以外での、コピーの際にエラーが出るようです。どなたか解決策をご存じではないでしょうか？




#const 透明色を有効にする 0

#include "gdi32.as"

#enum WID_MAIN = 0
#enum wid_box
#const WNDSIZEX 640
#const WNDSIZEY 480
#const BITMAPSIZEX 5000
#const BITMAPSIZEY 5000
#const v 50
#const speed 3
	
screen wid_box,200,200
	color 255:boxf 
	color:mes "コピー元"

screen WID_MAIN,WNDSIZEX,WNDSIZEY,,,,WNDSIZEX,WNDSIZEY

	CreateCompatibleBitmap hdc , BITMAPSIZEX , BITMAPSIZEY
	SelectObject hdc,stat
	DeleteObject stat
	mref bms,67
	bms.1	= BITMAPSIZEX,BITMAPSIZEY	// sx,sy
//	bms.33	= BITMAPSIZEX,BITMAPSIZEY	// gx,gy

	color:boxf
	repeat BITMAPSIZEX/v : x=cnt
	repeat BITMAPSIZEY/v
		hsvcolor i,120,255
		pos x*v,cnt*v
		mes strf("%d,%d",x,cnt)
		i+=5
	loop
	loop
*@
	stick key,0b1111
	if(key&0b0001):x-speed
	if(key&0b0010):y-speed
	if(key&0b0100):x+speed
	if(key&0b1000):y+speed
	redraw 0
	groll x,y
	x=ginfo_vx
	y=ginfo_vy
	pos x-1,y
	#if 透明色を有効にする
		gmode 2,200,200
	#endif
	gcopy wid_box,0,0,200,200
	redraw
	await 30
goto*@b

HSPTV!掲示板