tmenus

[Francisco Sanchez]

Tengo un menu de estos horizontales en el cual cada una de sus opciones
desplega a su vez un menu. Bueno pues tengo en el 3 opciones y quisiera
incluir una 4ª con su correspondiente menu. Cuando t engo en el menu de
linea todas creadas y simplemente tengo que incluir opciones a un menuitem o
un submenu a un menuitem lo pude hacer pero para un menu de linea ya me lie,
podriais ponerme un ejemplo de como hacerlo?
Un saludo

[Francisco Sanchez]

He probado con lo siguiente :
:oMenu_ACCIONES := XA_Menuitem( Trad_id( "Acci&ones", NIDIOMA ),,,.T.,.F.,;
.F.,.F.,.F., ::aImagenes[9],,Trad_id( "Acciones",
NIDIOMA ) )
:oMenu:Append( ::oMenu_ACCIONES )
siendo :oMenu el menu horizontal al que quiero incluir la opcion y despues
poder incluir a esta opcion el correspondiente menu con sus opciones.
para incluir la opcion, despues tengo que incluir el menu correpondiente a
esta opcion, pero todavia no llegue ahi, pues ya aqui me dio error de nType
Lo estoy haciendo mal.
Un saludo

[jfgimenez]

Paco,
> Tengo un menu de estos horizontales en el cual cada una de sus opciones
> desplega a su vez un menu. Bueno pues tengo en el 3 opciones y quisiera
> incluir una 4ª con su correspondiente menu. Cuando t engo en el menu de
> linea todas creadas y simplemente tengo que incluir opciones a un menuitem
> o un submenu a un menuitem lo pude hacer pero para un menu de linea ya me
> lie, podriais ponerme un ejemplo de como hacerlo?
es posible que lo que te falte sea llamar al final a DrawMenuBar() para que
windows repinte el menú:
DrawMenuBar( oForm:Handle )
--
Un saludo,
José F. Giménez

[jfgimenez]

Paco,
> He probado con lo siguiente :
>
> :oMenu_ACCIONES := XA_Menuitem( Trad_id( "Acci&ones",
> NIDIOMA ),,,.T.,.F.,;
> .F.,.F.,.F., ::aImagenes[9],,Trad_id( "Acciones",
> NIDIOMA ) )
>
> :oMenu:Append( ::oMenu_ACCIONES )
>
> siendo :oMenu el menu horizontal al que quiero incluir la opcion y despues
> poder incluir a esta opcion el correspondiente menu con sus opciones.
> para incluir la opcion, despues tengo que incluir el menu correpondiente a
> esta opcion, pero todavia no llegue ahi, pues ya aqui me dio error de
> nType
Dime exactamente el error.
Por otro lado, estoy revisando esas funciones auxiliares para los menues y
hace falta otra cosa... llama a XA_MenuAdd() antes de XA_MenuItem():
XA_MenuAdd( ::oMenu )
XA_MenuItem( ... )
XA_MenuEnd()
--
Un saludo,
José F. Giménez

[jfgimenez]

Paco,
> no si el caso es el siguiente tengo el codigo que puse antes pero me da
> este error al ejecutar el formulario, con o sin drawmenubar
>
> Ver imagen adjunta
No estoy seguro, pero es muy posible que se solucione con lo que he acabo de
comentar en el otro mensaje.
--
Un saludo,
José F. Giménez

[Francisco Sanchez]

Y dale francisco que si que la peseta y la burra para ti, el bueno de jose
Gimenez explicandote como solucionarlo y tu erre que erre.
Probe lo que comentas y funciona, mis disculpas, como siempre empiezo a leer
los mensajes pero a la 2ª linea ya he desconectado. A ver si me enseño un
dia de estos a leer vuestros mensajes - cargados de conocimientos -
despacito, y 2 veces antes de lanzarme como un poseso a escribir cosas con
el outlook express.
Rappel al lado vuestro se queda en mantillas, jejejeje.
Un saludo y disculpas disculpas disculpas, voy a procurar leeros mas
despacito y varias veces el mismo mensaje para ver si me entra en esta
cocorota.
Un saludo
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=42ebe4ff@ozsrvnegro.ozlan.local...]42ebe4ff@ozsrvnegro.ozlan.local...[/email]
> Paco,
>
>> no si el caso es el siguiente tengo el codigo que puse antes pero me da
>> este error al ejecutar el formulario, con o sin drawmenubar
>>
>> Ver imagen adjunta
>
> No estoy seguro, pero es muy posible que se solucione con lo que he acabo
> de comentar en el otro mensaje.
>
>
> --
> Un saludo,
>
> José F. Giménez
>