xButton a modo menu

[rafaxplayer]

El xbutton es una gran novedad que nos trae AMS8 , sus posibilidades son tantas como imaginación tengamos , una de ellas es esta que he estado trasteando para un proyecto que tengo, utilizarlos como menu con enlaces o las acciones que queramos.




Descarga:

Código: Seleccionar todo

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

[con_e]

Enhorabuena ya veo que tengo mucho más que aprender aqui..se agradece xButton a modo menu y quedo a la espera del proyecto para la descarga..

un saludo /con_e

[ThunderBolt]

Hola rafaxplayer ¿tendrás aún este ejemplo para descarga? gracias

[rafaxplayer]

si puedes bajarlo de aqui

Os recuerdo que mientras se pone en marcha AmsFiles! podéis usar la antigua aplicación ApzDownloader

[ThunderBolt]

Gracias Rafaxplayer, no he logrado visualizar el ejemplo me salta el siguiente error



Gracias por tu valiosa ayuda

[rafaxplayer]

Pega esta función en global functions y ya te funcionara.

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

[ThunderBolt]

¡Es una pasada!

Gracias Rafax

[lazybones]

yoguurttt