Menu en Mdi

[FiveWiDi]

Hola a todos,

Estoy trabajando con ventanas MDI.

Se trata de una aplicación antigua y la estoy actualizando, con lo que no sé si la cuestión está en el propio código, yo no lo encuentro.

El caso es que al abrir una nueva ventana MdiChild, en la última opción del menú se añade una linea (como un MENUITEM más) con el nombre de la ventana, de manera que en teoría al seleccionar esta nueva opción del menú se le da el foco a la ventana correspondiente.

Pero es que además si altero el menú eliminando o añadiendo opciones, esto no sucede.

Me estoy volviendo un poco loco, ya no sé qué mirar, no encuentro el código correspondiente que hace eso.

¿Cómo se puede desactivar esta funcionalidad?
¿Dónde está?

Muchas gracias

[leandro]

Puedes personalizar el menu el inicio de la aplicación, nosotros lo hacemos de la siguiente manera:

Code: Select all  Expand view  RUN

**********************************
*MENU PARA CONTROL DE VENTANAS MDI
**********************************
function BuildMenu2()
   local oMenu
   MENU oMenu COLORPNEL oLamcla:nClrTxtMenu, oLamcla:nClrMenu
      MENUITEM "&Organizar Ventanas"
      MENU
         MENUITEM "&Salir" RESOURCE oLamcla:cIcoCer ACTION ( oWnd:closeall(),oWnd:End())
         SEPARATOR
         MENUITEM "&Ventanas"
         MENU
           MENUITEM "Mosaico" RESOURCE oLamcla:cIcoMos action( oWnd:Tile() )
           MENUITEM "Cascada" RESOURCE oLamcla:cIcoCas action( oWnd:Cascade() )
           MENUITEM "Minimizar" RESOURCE oLamcla:cIcoMin action( oWnd:iconizeall() )
           MENUITEM "Cerrar Todas" RESOURCE oLamcla:cIcoTod action( oWnd:Closeall() )
         ENDMENU
      ENDMENU
   ENDMENU
return oMenu

...
...

DEFINE WINDOW oWnd MDI TITLE ttitu ICON "#8001" BRUSH oBrsh

...
...

  oWnd:bPainted := {|hDC| FW_DrawImage( hDC, ".\res\fondo-logo.png", { 0,0, 668, 668 } ),;
            oRBar:CalcPos(), oWnd:SetMenu( BuildMenu2() )}

...
...

ACTIVATE WINDOW oWnd

 

[FranciscoA]

Hola, Si entendí bien, y lo que quieres es desactivar que se agregue el menuitem al abrir la ventana MdiChild, puedes intentar con:

Code: Select all  Expand view  RUN

  DEFINE WINDOW oWnd MDI TITLE "MI VENTANA MDI"   ;
             MENUINFO 0    //<-- esto
 

[Antonio Linares]

Carlos,

Puedes construir FWH\samples\testmdi2.prg y comprobar si todo va bien ?

gracias

[FiveWiDi]

Hola, Si entendí bien, y lo que quieres es desactivar que se agregue el menuitem al abrir la ventana MdiChild, puedes intentar con:

Code: Select all  Expand view  RUN

  DEFINE WINDOW oWnd MDI TITLE "MI VENTANA MDI"   ;
             MENUINFO 0    //<-- esto
 

Hola Francisco,

Parece que funciona.

Muchas gracias,

[FiveWiDi]

Carlos,

Puedes construir FWH\samples\testmdi2.prg y comprobar si todo va bien ?

gracias

Lo curioso es que a veces aparecen estas opciones (opciones de menú con el nombre de la ventana), y a veces no.

Voy a ver si construyo el ejemplo.

[karinha]

Carlos, ¿podrías mostrar una foto por favor? Es un poco confuso. Gracias.

Regards, saludos.

[FiveWiDi]

Carlos, ¿podrías mostrar una foto por favor? Es un poco confuso. Gracias.

Regards, saludos.

No sé como poner una foto aquí. La tengo en mi disco duro.

Aprovecho y explico.

Indicando la cláusula "MENUINFO 0" se resuelve:

DEFINE WINDOW AMPAArra[1][1][2][1][1] MDI ; // Definimos la ventana
FROM 2,2 TO 30,80; // Coordenadas
TITLE "El titulin" ; // Título
MENU MenuMain( AMPAArra ) ; // Menú
MENUINFO 0

Cómo reproduzco el error (sin indicar MENUINFO 0) ?

a-abro ventana MDI con el menú definido MenuMain( AMPAArra )
b-abro ventana MDICHID
c-realizo un AMPAArra[1][1][2][1][1]:Setmenu( nuevomenu( AMPAARRA) )
Ahora el menú 'principal/horizontal' tiene 10 opciones; funciona correctamente, la opción 'Ayuda' es correcta.
d-realizo un nuevo AMPAArra[1][1][2][1][1]:Setmenu( masnuevomenu( AMPAARRA) )
Ahora el menú 'principal/horizontal' tiene MÁS de 10 opciones; se muestra en la última opción 'Ayuda' un menú tipo MRU con tantas opciones como ventanas MDI tenga abiertas.

Es algo muy raro, puedo realizar las acciones b, c y d las veces que quiera, y en un menú no aparecen estas opciones tipo MRU y en el otro si.

Gracias,

[Antonio Linares]

Carlos,

Puedes proporcionar el PRG completo para probarlo aqui ?

gracias

[karinha]

Carlos,

http://imgur.com/?

Simples.

Regards, saludos.

[FiveWiDi]

Carlos,

http://imgur.com/?

Simples.

Regards, saludos.

Gracias Karinha, sigo haciendo pruebas.

[FiveWiDi]

Carlos,

Puedes proporcionar el PRG completo para probarlo aqui ?

gracias

Hola Antonio,

No puedo proporcionarlo porque forma parte de un entramado de ventanas y de una arquitectura propia del programa que me impide desvincular el código sin modificarlo mucho.

Si que he conseguido compilar testmdi2.prg, en él se crean de manera automática los menús Child, Window y Help, del menú Window se cuelgan MRU con los nombres de las ventanas que se van creando y permite acceder a cada ventana pulsando sobre el MRU correspondiente.

En mi caso el menu MRU lo crea en la última opción del menu, "Ajuda", però no funciona el acceder mediante el MRU a la ventana escogida; debe ser cosa de como están relacionadas las propias ventanas en esa arquitectura, el programa siempre tiene una MDI Hide(), quizás esto perjudique el funcionamiento de los accesos MRU, o la difinición propia del ACTION del MRU con un Handle de ventana erróneo (porque esa ventana oculta aparece en el MRU y no debería), no sé.

Si que he creado un prova.prg para jugar con las MDI; cuando lo ejecuto, el menu MRU se cuelga de la primera opción de menú, no tengo ni idea de por que se cuelga de esa opción y no de la última que se llama "Ayuda".

La cuestión es que indicando la cláusula "MENUINFO 0" el MRU no se crea, que es lo que quería.

Agradezco el interés pero lo dejaré aquí, estoy agotado estos días y el problema lo tengo resuelto... supongo.

El prova.prg:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

STATIC oMdi := Nil
STATIC nContador := 0

/* Aquí empieza el program principal.
   ----------------------------------*/
FUNCTION MAIN()


/* Se define la ventana principal
---------------------------------*/
DEFINE WINDOW oMdi MDI ;             // Definimos la ventana
    FROM 2,2 TO 30,80;                                  // Coordenadas
    TITLE "Prova." ;  // Título
    MENU MenuMain() ; // Menú
    MENUINFO 0

/* Se define la barra de mensajes
---------------------------------*/
SET MESSAGE OF oMdi ;
    TO "aa " ;
    CENTERED ;
    CLOCK ;
    DATE ;
    KEYBOARD ;
    NOINSET


/* Se activa la ventana principal
---------------------------------*/
ACTIVATE WINDOW oMdi ;
    MAXIMIZED ;
    ON INIT ( .T. )  ;
    VALID (  MsgNoYes("Vol sortir del programa?", "Atenció!" ) )

Return Nil
// Fi de la funció d'arrancada.
/* *************************************************** */
/* *************************************************** */
FUNCTION MenuMain()

Local oMenumain := Nil

    MENU oMenumain

        MENUITEM "1ro."
            MENU
                MENUITEM "Ventanita, ventanita" ACTION mdichild()
                MENUITEM "Cambia a menu 10" ACTION Menu10()
                MENUITEM "Cambia a menu > 10" ACTION MenuMas10()
                MENUITEM "&Sortir" ACTION oMdi:End()
            ENDMENU


    ENDMENU

Return oMenumain
/* *************************************************** */
/* *************************************************** */
FUNCTION MdiChild()

Local oLaMdiChid


DEFINE WINDOW oLaMdiChid MDICHILD FROM 0,0 TO 520,804 TITLE ;
    "Ventanita, ventanita.." + Str( ++nContador,3,0) OF oMdi ;
    NOZOOM PIXEL //FIVEWIDI

@ 408,721 SAY "Aquí estamos.." + Str( ++nContador,3,0) OF oLaMdiChid COLORS CLR_HBLUE,CLR_HRED ;
    CENTER PIXEL SIZE 15,15 UPDATE //FIVEWIDI

ACTIVATE WINDOW oLaMdiChid

Return Nil
/* *************************************************** */
/* *************************************************** */
FUNCTION Menu10()
Local oMenu10 := Nil

    MENU oMenu10

        MENUITEM "Opcion 1"
            MENU
                MENUITEM "Ventanita, ventanita" ACTION mdichild()
                MENUITEM "Cambia a menu 10" ACTION Menu10()
                MENUITEM "Cambia a menu > 10" ACTION MenuMas10()
                MENUITEM "&Sortir" ACTION oMdi:End()
            ENDMENU
        MENUITEM "Opcion 2"
        MENUITEM "Opcion 3"
        MENUITEM "Opcion 4"
        MENUITEM "Opcion 5"
        MENUITEM "Opcion 6"
        MENUITEM "Opcion 7"
        MENUITEM "Opcion 8"
        MENUITEM "Opcion 9"
        MENUITEM "Ayuda"
            MENU
                MENUITEM "Ayuda 1"
                MENUITEM "Ayuda 2"
            ENDMENU        

    ENDMENU

oMdi:Setmenu(oMenu10)

Return oMenu10
/* *************************************************** */
/* *************************************************** */
FUNCTION MenuMas10()
Local oMenuMas10 := Nil

    MENU oMenuMas10

        MENUITEM "Opcion 1"
            MENU
                MENUITEM "Ventanita, ventanita" ACTION mdichild()
                MENUITEM "Cambia a menu 10" ACTION Menu10()
                MENUITEM "Cambia a menu > 10" ACTION MenuMas10()
                MENUITEM "&Sortir" ACTION oMdi:End()
            ENDMENU
        MENUITEM "Opcion 2"
        MENUITEM "Opcion 3"
        MENUITEM "Opcion 4"
        MENUITEM "Opcion 5"
        MENUITEM "Opcion 6"
        MENUITEM "Opcion 7"
        MENUITEM "Opcion 8"
        MENUITEM "Opcion 9"
        MENUITEM "Opcion 10"
        MENUITEM "Opcion 11"
        MENUITEM "Opcion 12"
        MENUITEM "Opcion 13"
        MENUITEM "Opcion 14"
        MENUITEM "Opcion 15"
        MENUITEM "Ayuda"
            MENU
                MENUITEM "Ayuda 1"
                MENUITEM "Ayuda 2"
            ENDMENU        

    ENDMENU

oMdi:Setmenu(oMenuMas10)

Return oMenuMas10
/* *************************************************** */
/* *************************************************** */
// Fi de la funció d'arrancada.
*eof: prova.PRG
 

Muchas gracias

[Antonio Linares]

Carlos,

Pues si te funciona asi y te soluciona el problema, genial!

Hay algo que tengamos que arreglar ?

[FiveWiDi]

Carlos,

Pues si te funciona asi y te soluciona el problema, genial!

Hay algo que tengamos que arreglar ?

Hola Antonio,

Yo creo que si.

Si una MDICHILD està oculta ( Hide() ) no debería aparecer en el menú MRU de las MDICHILD definidas y disponibles; si está oculta es para que el usuario no la vea y no acceda a ella, entiendo.

Muchas gracias

[Antonio Linares]

Carlos,

buscaremos documentación y a ver que se puede hacer