#include "llmod.as"
#include "scrollbar.as"


//画像を読み込む
dialog "bmp;*.jpg",16,"" : if stat!1 : end
buffer 2 : picload refstr


	//画像の表示開始位置
	imgx=0
	imgy=0

	//画像のサイズ
	imgw=winx
	imgh=winy

	//画像を表示するサイズ
	sw=200
	sh=200

screen 0,320,320

	//横スクロールバーを表示
	pos 20, 20+sh : scroll_set 0,sw,S_WIDTH ,imgx,imgw

	//縦スクロールバーを表示
	pos 20+sw, 20 : scroll_set 1,sh,S_HEIGHT,imgy,imgh

	//画像を表示
	pos 20, 20 : gcopy 2,imgx,imgy,sw,sh

	onclick *mouse_click
	stop


//マウスがクリックされた時の処理
*mouse_click

	check=0

	//スクロールバーのクリック・チェック
	scroll_check 0,imgx : if stat>0 : check=stat
	scroll_check 1,imgy : if stat>0 : check=stat

	//クリックされていた場合
	if check>0 {
		//画像を表示
		pos 20, 20 : gcopy 2,imgx,imgy,sw,sh

		//繰り返し
		wait 1 : goto *mouse_click
	}
	stop