option explicit
dim obj
set obj = CreateObject("SeraphyScriptTools.Instance")

'------------------
' 色と図形の管理
dim mode,sx,sy,col
mode = 0
col  = 0

'-----------------
' 初期化と実行
WScript.ConnectObject obj.mainframe , "event_"
with obj.mainframe
	with .canvas
		.layer(0).Color = "&H000000"
		.layer(1).Color = "&H0000FF"
		.layer(2).Color = "&H00FF00"
		.layer(3).Color = "&HFF0000"
	end with
	.SetMenu "/ファイル(&F),終了/図形(&D),円(&C),線(&L)/カラー(&C),黒(&B),赤(&R),緑(&G),青(&B)"
	.CheckMenu 300,true
	.open "マウスイベント、メニューとレイヤーのサンプル"
	.domodal
end with
WScript.DisconnectObject obj.mainframe

'----------------
' ハンドラ

sub event_OnClick
	with obj.mainframe
		dim x,y
		with .event
			x = .posx
			y = .posy
			select case mode
				case 0
					obj.mainframe.canvas.layer(col).circle x,y,3
				case 1
					sx = x
					sy = y
					mode = 2
			end select
		end with
		.draw
	end with
end sub

sub event_OnMouseMove
	with obj.mainframe
		dim x,y,dx,dy
		with .event
			x = .posx
			y = .posy
			dx = .dposx
			dy = .dposy
		end with
		with .canvas.layer(10)
			.clear
			.SetMappingMode 1
			.FontSize = 20
			.text 0, 0, "LOCAL " & x & " / " & y
			.text 0,20, "PIX " & dx & " / ," & dy
		end with
		select case mode
			case 2
				.canvas.layer(col).line sx,sy,x,y
				sx = x
				sy = y
		end select
		.draw
	end with
end sub

sub event_OnClickOut
	if(mode = 2) then
		mode = 1
	end if
end sub

sub event_OnCommand
	select case obj.mainframe.event.parameter
		case 200 mode = 0
		case 201 mode = 1
		case 300 col  = 0
		case 301 col  = 1
		case 302 col  = 2
		case 303 col  = 3
		case 100 obj.mainframe.close
	end select
	dim i
	for i = 0 to 3
		obj.mainframe.CheckMenu 300+i , false
	next
	obj.mainframe.CheckMenu 300+col,true
end sub