Menu en Mdi

[Antonio Linares]

Carlos,

He localizado una conversación en Delphi hablando de las ventanas mdichild y he aprovechado para preguntar ahi, por si acaso alguno nos echa una mano:
https://stackoverflow.com/a/73877375/1247270

[karinha]

FiveWid, ¿podría decirnos cuál es el problema con este ejemplo o mostrarnos una captura de pantalla?

Gracias.

Code: Select all  Expand view

// C:\FWH..\SAMPLES\FIVEWID1.PRG - kapiabafwh@gmail.com

#Include "FiveWin.ch"

STATIC oWnd, nContador := 0

FUNCTION Main()

   LOCAL cTitle

   HB_GCALL( .F. )

   cTitle := "Prueba de MDI con FiveWin The Best"

   // Ejemplo 1
   // DEFINE WINDOW oWnd TITLE cTitle MENU MenuMain() MENUINFO 3

   // Ejemplo 2
   DEFINE WINDOW oWnd TITLE cTitle MDI STYLE nOr( WS_POPUP, WS_MAXIMIZE )   ;
      COLOR CLR_WHITE, CLR_GREEN MENU MenuMain() // MENUINFO 3

   SET MESSAGE OF oWnd TO "Prueba MDI" CENTERED CLOCK DATE KEYBOARD NOINSET ;
     COLOR CLR_HBLUE, CLR_WHITE 2007

   oWnd:oMsgBar:KeybOn()
   oWnd:oMsgBar:DateOn()
   oWnd:oMsgBar:ClockOn()
   oWnd:oMsgBar:Refresh()

   WndCenter( oWnd:hWnd )

   ACTIVATE WINDOW oWnd MAXIMIZED

   nContador := 0

   // DbCommitAll()
   // DbUnLockAll()
   // DbCloseAll()
   // FreeResources()

   Release All
   SysRefresh()
   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL
// Fin de la funció d'arrancada.
FUNCTION MenuMain()

   LOCAL oMenu

   MENU oMenu 2007

   MENUITEM "1ro."

      MENU

         MENUITEM "Ventanita, ventanita" ACTION MdiChild()

         MENUITEM "Cambia a menu 10" ACTION Menu10()

         MENUITEM "Cambia a menu > 10" ACTION MenuMas10()

         MENUITEM "&Sortir/Salir 1" ACTION( oWnd:End() )

      ENDMENU

   ENDMENU

RETURN( oMenu )

FUNCTION MdiChild()

   LOCAL oWndChild, oFont

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -30 BOLD

   DEFINE WINDOW oWndChild MDICHILD FROM 0, 0 TO 520, 804 NOZOOM PIXEL  ;
      TITLE "Ventanita, ventanita.." + Str( ++nContador, 3, 0 ) OF oWnd  
     
   @ 300, 015 SAY "Aquí estamos MDI: " + Str( nContador ) OF oWndChild  ;
      COLORS CLR_YELLOW, CLR_BLACK CENTERED PIXEL SIZE 750, 40 UPDATE   ;
      FONT oFont // TRANSPARENT

   ACTIVATE WINDOW oWndChild

   oFont:End()

RETURN NIL

FUNCTION Menu10()

   LOCAL oMenu10

   MENU oMenu10 2007

      MENUITEM "Opcion 1"

         MENU

            MENUITEM "Ventanita, ventanita" ;
               ACTION MdiChild( nContador := nContador + 1 )

            MENUITEM "Cambia a menu 10" ACTION Menu10()

            MENUITEM "Cambia a menu > 10" ACTION MenuMas10()

            MENUITEM "&Sortir/Salir1" ACTION( oWnd: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

   oWnd:Setmenu( oMenu10 )

RETURN( oMenu10 )

FUNCTION MenuMas10()

   LOCAL oMenuMas10

   MENU oMenuMas10 2007

   MENUITEM "Opcion 1"

      MENU

         MENUITEM "Ventanita, ventanita 2" ;
            ACTION MdiChild( nContador := nContador + 1 )

         MENUITEM "Cambia a menu 10" ACTION Menu10()

         MENUITEM "Cambia a menu > 10" ACTION MenuMas10()

         MENUITEM "&Sortir/Salir 2" ACTION( oWnd: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

   oWnd:Setmenu( oMenuMas10 )

RETURN( oMenuMas10 )

// Fin
 

Regards, saludos.