TpopUpMenu

[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.

[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.

[sinazio]

Gracias Carlos, lo voy a probar.
Saludos, Inazio.