
If (Form:C1466.selectedPicture#Null:C1517)
	//エリアの表示位置を確認
	$picturesize:=600
	OBJECT GET SCROLL POSITION:C1114(*; "Input"; $scrollv; $scrollh)
	PICTURE PROPERTIES:C457(Form:C1466.selectedPicture.Picture; $width; $height)
	
	Case of 
		: (($scrollh+$picturesize+1)>=$width) & (($scrollv+$picturesize+1)>=$height)
			//右下まで到達していたら何もしない
			$parameter:=New object:C1471("mode"; 0)
		: (($scrollh+$picturesize+1)>=$width)  //右下ではない右端に到達していたら
			//スクロール位置を50下にして左に戻す
			OBJECT SET SCROLL POSITION:C906(*; "Input"; $scrollv+50; 0; *)
			$parameter:=New object:C1471("mode"; 1)
		Else   //右下でも右端でもなければ
			//スクロール位置をピクチャーエリアより少し小さい分だけ右に移動
			OBJECT SET SCROLL POSITION:C906(*; "Input"; $scrollv; $scrollh+450; *)
			$parameter:=New object:C1471("mode"; 2)
	End case 
	
	ShiftRectangle($parameter)
Else 
	//ピクチャーが選択されていない
End if 
