FoxPro/Visual FoxPro - Menu Ventanas

   
Vista:

Menu Ventanas

Publicado por Carlos L (40 intervenciones) el 01/03/2011 04:09:07
Hola a todos, la idea es la siguiente:
Como hago para crear un menu ventana y que me vaya cargando los formularios que tengo abiertos, como en excel 2003 que muestras los archivos que tiene abiertos en el menu ventana, etc.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Menu Ventanas

Publicado por Ghabriel Sánchez gabriel_lince@hotmail.com (112 intervenciones) el 06/03/2011 22:39:31
Hola Carlos.

Si es posible hacerlo. Para ello debes seguir con los siguentes pasos.

* Este es un ejemplo práctico. Creamos un menu con la siguiente estructura.

Nombre: menu_prueba.mnx

*--------------------------------------------------------
Archivo
Abrir (comand)
Cerrar (command)
Procesos
Apertura (comand)
Ventana
Lista de ventanas activas (sub menu)
*----------------------------------------------------------------

* Guardas y generas el menu_prueba.mpr

* Luego abres el menu en modo prg.

modi command menu_prueba.mpr

*--------------------------------TEDRAS ALGO COMO ESTO
SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _35y0y27vp OF _MSYSMENU PROMPT "Archivo" COLOR SCHEME 3 ;
KEY ALT+A, ""
DEFINE PAD _35y0y27vq OF _MSYSMENU PROMPT "Procesos" COLOR SCHEME 3 ;
KEY ALT+P, ""
DEFINE PAD _35y0y27vr OF _MSYSMENU PROMPT "Ventana" COLOR SCHEME 3 ;
KEY ALT+V, ""
ON PAD _35y0y27vp OF _MSYSMENU ACTIVATE POPUP archivo
ON PAD _35y0y27vq OF _MSYSMENU ACTIVATE POPUP procesos
ON PAD _35y0y27vr OF _MSYSMENU ACTIVATE POPUP ventana

DEFINE POPUP archivo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF archivo PROMPT "Abrir"
DEFINE BAR 2 OF archivo PROMPT "Cerrar"

DEFINE POPUP procesos MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF procesos PROMPT "Apertura"

DEFINE POPUP ventana MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF ventana PROMPT "Lista de ventanas activas"
*-----------------------------------------------------------------------------------------------------------------

* Guardas este codigo completo como crea_menu.prg
* Luego pasamos a realizar algunas modificaciones(Solo en la opcion Ventanas y su sub menú)

- En el código anterior: El texto "ventana" lo cambiamos por "_mwindow "
ON PAD _35y0y27vr OF _MSYSMENU ACTIVATE POPUP ventana

* Quedaría así!
ON PAD _35y0y27vr OF _MSYSMENU ACTIVATE POPUP _mwindow

Luego, todas las referencias hacia "ventana" la cambiamos también por "_mwindow ".

* Guardamos el prg y listo!!!!!!

* En tu programa, cambias el:

DO menu_prueba.mpr

* Por
DO crea_menu


**********************************
** El prg debería quedar así:
*********************************

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _35y0y27vp OF _MSYSMENU PROMPT "Archivo" COLOR SCHEME 3 ;
KEY ALT+A, ""
DEFINE PAD _35y0y27vq OF _MSYSMENU PROMPT "Procesos" COLOR SCHEME 3 ;
KEY ALT+P, ""
DEFINE PAD _35y0y27vr OF _MSYSMENU PROMPT "Ventana" COLOR SCHEME 3 ;
KEY ALT+V, ""
ON PAD _35y0y27vp OF _MSYSMENU ACTIVATE POPUP archivo
ON PAD _35y0y27vq OF _MSYSMENU ACTIVATE POPUP procesos
ON PAD _35y0y27vr OF _MSYSMENU ACTIVATE POPUP _mwindow && Aquí se cambió ventana por _mwindow

DEFINE POPUP archivo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF archivo PROMPT "Abrir"
DEFINE BAR 2 OF archivo PROMPT "Cerrar"

DEFINE POPUP procesos MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF procesos PROMPT "Apertura"

&& Aquí se cambió ventana por _mwindow
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mwindow PROMPT "Lista de ventanas activas"


**********************************



Suerte amigo.

Si tienes dudas me escribes a: gabriel_lince@hotmail.com. Estamos para ayudarnos.

Nota. Cada que modifiques el menú y despues de generarlo, deberás hacer el mismo procedimiento.


Saludos desde Lima Perú.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar