AMSSpecialist

Código: Seleccionar todo

http://www.multiupload.com/0V5K3RBD0N

function Page.OverObject(strObject)
	mObjType = Page.GetObjectType(strObject)
	if mObjType == OBJECT_BUTTON then
		m_tblPos = Button.GetPos(strObject)	
		m_tblSize = Button.GetSize(strObject)
	elseif mObjType == OBJECT_FLASH then
		m_tblPos = Flash.GetPos(strObject)
		m_tblSize = Flash.GetSize(strObject)
	elseif mObjType == OBJECT_HOTSPOT then
		m_tblPos = Hotspot.GetPos(strObject)
		m_tblSize = Hotspot.GetSize(strObject)
	elseif mObjType == OBJECT_IMAGE then
		m_tblPos = Image.GetPos(strObject)
		m_tblSize = Image.GetSize(strObject)
	elseif mObjType == OBJECT_INPUT then
		m_tblPos = Input.GetPos(strObject)
		m_tblSize = Input.GetSize(strObject)
	elseif mObjType == OBJECT_LABEL then
		m_tblPos = Label.GetPos(strObject)
		m_tblSize = Label.GetSize(strObject)
	elseif mObjType == OBJECT_LISTBOX then
		m_tblPos = ListBox.GetPos(strObject)
		m_tblSize = ListBox.GetSize(strObject)
	elseif mObjType == OBJECT_PARAGRAPH then
		m_tblPos = Paragraph.GetPos(strObject)
		m_tblSize = Paragraph.GetSize(strObject)
	elseif mObjType == OBJECT_PLUGIN then
		m_tblPos = Plugin.GetPos(strObject)
		m_tblSize = Plugin.GetSize(strObject)
	elseif mObjType == OBJECT_VIDEO then
		m_tblPos = Video.GetPos(strObject)
		m_tblSize = Video.GetSize(strObject)
	elseif mObjType == OBJECT_WEB then
		m_tblPos = Web.GetPos(strObject)
		m_tblSize = Web.GetSize(strObject)
	elseif mObjType == OBJECT_RADIOBUTTON then
		m_tblPos = RadioButton.GetPos(strObject)
		m_tblSize = RadioButton.GetSize(strObject)
	elseif mObjType == OBJECT_RICHTEXT then
		m_tblPos = RichText.GetPos(strObject)
		m_tblSize = RichText.GetSize(strObject)
	elseif mObjType == OBJECT_CHECKBOX then
		m_tblPos = CheckBox.GetPos(strObject)
		m_tblSize = CheckBox.GetSize(strObject)
	elseif mObjType == OBJECT_SLIDESHOW then
		m_tblPos = SlideShow.GetPos(strObject)
		m_tblSize = SlideShow.GetSize(strObject)
	elseif mObjType == OBJECT_GRID then
		m_tblPos = Grid.GetPos(strObject)
		m_tblSize = Grid.GetSize(strObject)
	-- Añadidos: xButton, QuickTime, PDF, ComboBox, Tree y Progress	
	elseif mObjType == OBJECT_XBUTTON then
		m_tblPos = xButton.GetPos(strObject)	
		m_tblSize = xButton.GetSize(strObject)	
	elseif mObjType == OBJECT_QUICKTIME then
		m_tblPos = QuickTime.GetPos(strObject)	
		m_tblSize = QuickTime.GetSize(strObject)
	elseif mObjType == OBJECT_PDF then
		m_tblPos = PDF.GetPos(strObject)	
		m_tblSize = PDF.GetSize(strObject)
	elseif mObjType == OBJECT_COMBOBOX then
		m_tblPos = ComboBox.GetPos(strObject)	
		m_tblSize = ComboBox.GetSize(strObject)
	elseif mObjType == OBJECT_TREE then
		m_tblPos = Tree.GetPos(strObject)	
		m_tblSize = Tree.GetSize(strObject)
	elseif mObjType == OBJECT_PROGRESS then
		m_tblPos = Progress.GetPos(strObject)	
		m_tblSize = Progress.GetSize(strObject)
	end
	local tMouse=System.GetMousePosition(true);
	local m_nX=tMouse.X
	local m_nY=tMouse.Y
	local bReturn = false;
	if (m_nX >= m_tblPos.X) and (m_nX <= m_tblPos.X + m_tblSize.Width) then
		if (m_nY >= m_tblPos.Y) and (m_nY <= m_tblPos.Y + m_tblSize.Height) then
			bReturn = true;
		end
	end
	return bReturn;
end