Desaparece cuando se llama el menu
Hola, tengo problemas para que el menu.prg se sostenga en el programa
ejecutable; he usado el read events y nada; con los formularios no tengo problema
solamente con el programa de menu que se llama menu.prg, lo llamo desde un formulario después de validar contraseña, el ejecutable en vez de parar en el menu
de 5 pads se termina, o más bien no se ve nada en la pantalla, y lo tengo que terminar con fin de tarea.. Quisiera que me ayudaran en esto por favor
Gracias
ejecutable; he usado el read events y nada; con los formularios no tengo problema
solamente con el programa de menu que se llama menu.prg, lo llamo desde un formulario después de validar contraseña, el ejecutable en vez de parar en el menu
de 5 pads se termina, o más bien no se ve nada en la pantalla, y lo tengo que terminar con fin de tarea.. Quisiera que me ayudaran en esto por favor
Gracias
Respuesta de Cesar Enrique Yamunaque Baca
1
El menu al que te refieres es un menu que reemplaza al menu del sistema o se activa usando botón derecho del mouse.
Si reemplaza al menu del sistema verifica las siguientes lineas de tu prg según el ejemplo
Set Sysmenu to
Set Sysmenu Automatic
Define Pad _cat OF _msysmenu Prompt "\<Catalogos "
Define Pad _ext OF _msysmenu Prompt "\<Salir "
On Pad _cat OF _msysmenu Activate Popup cat1
On Pad _Ext OF _msysmenu Activate Popup ext1
Define Popup ext1 Shortcut Relative From MROW(), MCOL()
Define Bar 1 OF ext1 prompt '\<Salir del Sistema '
On Selection Bar 3 OF ext1 CLEAR EVENTS
Define Popup cat1 SHORTCUT RELATIVE FROM MROW(), MCOL()
Define Bar 1 OF cat1 prompt '\<1.- Articulos ' PICTURE "bmp\barcd00b.ico"
Define Bar 2 OF cat1 prompt '\<2.- Clientes ' PICTURE "bmp\161.ico"
Define Bar 3 OF cat1 prompt '\<3.- Proveedores '
Define Bar 4 OF cat1 prompt '\-'
Define Bar 5 OF cat1 prompt '\<Salir del Sistema ' PICTURE "bmp\163.ico"
ON SELECTION POPUP cat1 =_execat1(BAR(),PROMPT())
Function _execat1(mi_bar,mi_prompt)
DO CASE
CASE mi_bar=5&& Salir del Sistema
=_cmdEndProgram()
CASE mi_bar=1
=exe_form("ART100","")
CASE mi_bar=2
=exe_form("IDE100","")
OTHERWISE
MESSAGEBOX("Opcion '"+mi_prompt+"' en construccion",0+64,"AVISO")
Endcase
Endfunc
Si reemplaza al menu del sistema verifica las siguientes lineas de tu prg según el ejemplo
Set Sysmenu to
Set Sysmenu Automatic
Define Pad _cat OF _msysmenu Prompt "\<Catalogos "
Define Pad _ext OF _msysmenu Prompt "\<Salir "
On Pad _cat OF _msysmenu Activate Popup cat1
On Pad _Ext OF _msysmenu Activate Popup ext1
Define Popup ext1 Shortcut Relative From MROW(), MCOL()
Define Bar 1 OF ext1 prompt '\<Salir del Sistema '
On Selection Bar 3 OF ext1 CLEAR EVENTS
Define Popup cat1 SHORTCUT RELATIVE FROM MROW(), MCOL()
Define Bar 1 OF cat1 prompt '\<1.- Articulos ' PICTURE "bmp\barcd00b.ico"
Define Bar 2 OF cat1 prompt '\<2.- Clientes ' PICTURE "bmp\161.ico"
Define Bar 3 OF cat1 prompt '\<3.- Proveedores '
Define Bar 4 OF cat1 prompt '\-'
Define Bar 5 OF cat1 prompt '\<Salir del Sistema ' PICTURE "bmp\163.ico"
ON SELECTION POPUP cat1 =_execat1(BAR(),PROMPT())
Function _execat1(mi_bar,mi_prompt)
DO CASE
CASE mi_bar=5&& Salir del Sistema
=_cmdEndProgram()
CASE mi_bar=1
=exe_form("ART100","")
CASE mi_bar=2
=exe_form("IDE100","")
OTHERWISE
MESSAGEBOX("Opcion '"+mi_prompt+"' en construccion",0+64,"AVISO")
Endcase
Endfunc
