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 :=
0FUNCTION 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 ENDMENURETURN( 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 NILFUNCTION 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.