;scrlsmp.as スクロールバーモジュールのサンプル
#include "scrollbar.as"

	bw=BTN_WID@scrlbarmod	;スクロールバーの幅
	sdim file,260
	file="oniinfo.jpg"
	buffer 2: picload file
	gw=winx: gh=winy		;画像の幅と高さ
	w=gw-20/2: h=gh-20/2	;スクロール領域の幅と高さ
	screen 0,w+bw,h+bw: gsel 0,1
	title ""+w+"×"+h+"("+gw+"×"+gh+")"
	gcopy 2,0,0,w,h			;スクロール領域の初期描画
	sbmake 0,0,w,0,h,gh,10	;垂直スクロールバーの作成
	sbmake 1,1,0,h,w,gw,10	;水平スクロールバーの作成
	repeat: wait 1
		oldy=y: sbget y,0	;垂直スクロールバーの制御
		oldx=x: sbget x,1	;水平スクロールバーの制御
		if (x!=oldx)|(y!=oldy): pos 0,0: gcopy 2,x,y,w,h	;スクロール領域の描画
	loop