'//////////////////////////////////////////////////////////////////////////////////////////////////////
'// 작성자 : 강상환
'// 작성일 : 2003.11.11
'// 용  도 : Pop을 마우스로 이동 시키는 거
'// 사용법 : Body에 onmouseup="PopMouseUp(window.event)" onmousemove="PopMouseMove(window.event)" 추가.
'//          마우스다운부분 'onmousedown="PopMouseDown(window.event)" style="CURSOR: move" 추가.
'//////////////////////////////////////////////////////////////////////////////////////////////////////

dim g_Left, g_Top
g_Left = 0
g_Top = 0


panelName="PopPanel1"

function PopMouseDown1(e)

	g_Left = e.clientx
	g_Top = e.clienty

	panelName="PopPanel1"
	document.all.item(panelName).focus()

end function
function PopMouseDown2(e)

	g_Left = e.clientx
	g_Top = e.clienty

	panelName="PopPanel2"
	document.all.item(panelName).focus()

end function
function PopMouseDown3(e)

	g_Left = e.clientx
	g_Top = e.clienty

	panelName="PopPanel3"
	document.all.item(panelName).focus()
end function
function PopMouseDown4(e)

	g_Left = e.clientx
	g_Top = e.clienty

	panelName="PopPanel4"
	document.all.item(panelName).focus()
end function
function PopMouseDown5(e)

	g_Left = e.clientx
	g_Top = e.clienty

	panelName="PopPanel5"
	document.all.item(panelName).focus()
end function


function PopMouseMove(e)

	if g_Left < 1 or g_Top < 1 then exit function

	dim m_gap, m_Left, m_Top
	m_gap = g_Left - replace(document.all.item(panelName).style.left,"px","")
	m_Left =  e.clientx - m_gap

	m_gap = g_Top - replace(document.all.item(panelName).style.top,"px","")
	m_Top =  e.clienty - m_gap

	'왼쪽과 오른쪽에 자동 붙기
	if m_Left < 1 then m_Left = -20
	if m_Top < 20 then m_Top = 0

	document.all.item(panelName).style.left = m_Left & "px"
	document.all.item(panelName).style.top = m_Top & "px"

	g_Left = e.clientx
	g_Top = e.clienty

			document.all.item(panelName).focus()



end function

function PopMouseUp(e)
	if g_Left < 1 or g_Top < 1 then exit function

	dim m_gap, m_Left, m_Top
	m_gap = g_Left - replace(document.all.item(panelName).style.left,"px","")
	m_Left =  e.clientx - m_gap

	m_gap = g_Top - replace(document.all.item(panelName).style.top,"px","")
	m_Top =  e.clienty - m_gap

	'왼쪽과 오른쪽에 자동 붙기
	if m_Left < 1 then m_Left = -20
	if m_Top < 20 then m_Top = 0

	document.all.item(panelName).style.left = m_Left & "px"
	document.all.item(panelName).style.top = m_Top & "px"

	g_Left = 0
	g_Top = 0

	                document.all.item(panelName).focus()

end function