SubMenu Checked

[fgondi]

Estoy probando las posibilidades de oMenuItem:SetCheck() y me surge una duda.

Tengo el siguente menu:

Code: Select all  Expand view

Abrir
Borrar
Modificar
     Codigo
     Nombre
Imprimir
Salir


Para activar el check en alguno de los items sólo hay que llamar al método SetCheck
oMenuItem:SetCheck(.T.)

Pero el Item Modificar, llama a su vez a otro menu y no consiguo activar el check en él, o sea que el Item "Modificar" pueda verse con el check.

Por mas que llamo la función "SetCheck(.T.)" no se activa

Existe alguna forma de poder hacerlo

Gracias por vuestro tiempo

[fgondi]

Antonio,

Se puede poner el check en las opciones de menu que llevan a su vez otro menu?

Por ejemplo:



Poder activar el check en la opción de menú "O - Tipo de asiento" igual que está en las opciones de menú "J - Fch. Modi." y "L - Opr. Modi."

[dobfivewin]

Pregun tonta

soy nuevo con este tipo de menu.....

para que sirve y como funciona oMenuItem:SetCheck() ?

[fgondi]

dobfivewin,

La clase que utilizo es la que proporciona fivewin

Code: Select all  Expand view

MENU
MENUITEM oMenuItem1 Prompt 'Opción 1' MESSAGE 'Texto opción 1' Action tt1()
MENUITEM oMenuItem2 Prompt 'Opción 2' MESSAGE 'Texto opción 2' Action tt2()
SEPARATOR
MENUITEM oMenuItem3 Prompt 'Opción 3' MESSAGE 'Texto opción 3' Action tt3()
ENDMENU


En cada una de las opciones del menu se puede mostar un check a su izquierda. (Fijate en la imagen que hay en la anterior respuesta).

Para activar el check hay que llamar al método SetCheck() de la clase tMenuItem. Este método tiene un parametro para indicar si se activa o se desactiva el check

Code: Select all  Expand view

// Activa check en la opción de menú 1
oMenuItem1:SetCheck( .T. )


Code: Select all  Expand view

// Desactiva check en la opción de menú 1
oMenuItem1:SetCheck( .F. )


En mi caso, cada opción del menú llama a una ventana mdi y activo check para ver que opciones del menú se han pulsado y se mantienen abiertas.

Espero haberte ayudado

[fgondi]

En cuanto a lo que yo preguntaba,

No existen ninguna posibilidad? Si es así me gustaría saberlo

[dobfivewin]

Fernando

muchas gracias por la explicación, me quedó muy claro

salu2

david
argentina