Página 1 de 1

TpopUpMenu

Publicado: Mar Jul 24, 2012 8:47 am
por sinazio
Hola a todos:
Sigo con el aprendizaje de Xailer. Ahora estoy con los menús.
Como me gusta más utilizar menús hechos con ToolButon y PopUpMenu, me gustarí­a si alguien me podrí­a indicar con algún ejemplo cómo puedo hacer ese tipo de menús con sus correspondientes iconos. Por mucho que miro en la documentación, no encuentro, o mejor dicho, no entiendo.
Un saludo.

TpopUpMenu

Publicado: Mié Jul 25, 2012 6:03 am
por Carlos Ortiz
Medio rápido por que es tarde espero sirva de ayuda.
1. Poné un objeto popupmenu en el form
2. Poné la toolbar y agregas el botón, dentro de las propiedades del
boton hay un objeto oMenu (creo que es la última) y elegis el popup que
creaste antes.
3. Luego por código en el inicialize usa algo como esto para asignarle
lo que quieras a dicho elementos del menu.
// opciones a mostrar
aOpcionesPopUp := {"Un í­tem","Por nombre similar"}
FOR nFor := 1 to len( aOpcionesPopUp )
WITH OBJECT TMenuItem():New( ::oPopupAgregar )
:cText := aOpcionesPopUp[ nFor ] // texto a mostrar
:Cargo := nFor
IF nFor = 1
:cMessage := "Agrega un í­tem a la grilla" // mensaje
:OnClick := {|o| ::AgregarUno(o:Cargo)) } // ejecutar
ELSEIF nFor = 2
:cMessage := "Agrega según el nombre"
:OnClick := {|o| ::CargarPorNombre(o:Cargo) }
ENDIF
:Create()
END WITH
NEXT
Saludos.
Carlos Ortiz.

TpopUpMenu

Publicado: Mié Jul 25, 2012 7:48 am
por sinazio
Gracias Carlos, lo voy a probar.
Saludos, Inazio.