// sample03.hsp HSPウィンドウ内で再生(リサイズ対応)
#include "hspdsp.as"

	dsp_Init	; 初期化
	gsel 0,-2
	screen 1,ginfo_dispx,ginfo_dispy,0,,,640,480

	dialog "*",16,"メディアファイル"
	if stat=0:end

	// システム標準のレンダラーで開く
	dsp_Open refstr,OPEN_DEFAULT_RENDERER,0,0,0
	
	onexit *exit	; 終了時開放するため
	oncmd gosub *event_resize, 0x05	;ウィンドウのリサイズ
	
	title "ウィンドウの大きさを変えられるよ♪"

	dsp_Play hwnd,0,0,640,480		; 0,0 座標に 640x480 の大きさで表示
	
	stop

*exit
	
	dsp_Close	; メディアファイルを閉じる
	dsp_Exit	; 開放
	end

*event_resize
	
	//リサイズ時にこちらに飛びます
	dsp_Resize hwnd,0,0,ginfo(12),ginfo(13)
	
	return