操作先ウィンドウに指定して使用しています。
下のスクリプトでは、「表示」「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