106 lines
4.1 KiB
Plaintext
106 lines
4.1 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.19" SourceFile="menu1.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*<MenuType>1</MenuType>
|
|
*<MenuLocation>APPEND</MenuLocation>
|
|
|
|
*<SetupCode>
|
|
*-- Setup code
|
|
|
|
*</SetupCode>
|
|
|
|
*<MenuCode>
|
|
DEFINE MENU _MSYSMENU BAR
|
|
DEFINE PAD _42I10MLX9 OF _MSYSMENU PROMPT "Opción A con submenú" COLOR SCHEME 3 ;
|
|
NEGOTIATE NONE, LEFT ;
|
|
KEY DEL, "Pulsar <DEL>" ;
|
|
SKIP FOR SKIP_FOR() ;
|
|
MESSAGE "Mensaje para Opción A con submenú" && Comentario
|
|
|
|
ON PAD _42I10MLX9 OF _MSYSMENU ACTIVATE POPUP OpciónA_CS
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP OpciónA_CS MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF OpciónA_CS PROMPT "Opción A-1" ;
|
|
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
|
|
ON BAR 1 OF OpciónA_CS ACTIVATE POPUP OpciónA1
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP OpciónA1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR Shortcut_Menu_Title OF OpciónA1 PROMPT "OpciónA-1-Sub" ;
|
|
PICTURE "..\..\foxunit\fxuacknowledgements.bmp"
|
|
ON SELECTION BAR Shortcut_Menu_Title OF OpciónA1 wait window "Ejecuta Comando o función para Opción A-1"
|
|
|
|
DEFINE BAR 2 OF OpciónA_CS PROMPT "Opción A-2"
|
|
ON BAR 2 OF OpciónA_CS ACTIVATE POPUP OpciónA2Su
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP OpciónA2Su MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF OpciónA2Su PROMPT "Opción A-2-Sub.1" ;
|
|
MESSAGE "Message para Opción A-2-Sub.1 (Tipo Procedure)"
|
|
ON SELECTION BAR 1 OF OpciónA2Su DO Menu1_Opción_A_2_Sub_SNIPPET
|
|
|
|
DEFINE BAR 2 OF OpciónA2Su PROMPT "O\<pción A-2-Sub.2" ;
|
|
KEY CTRL+E, "Pulsar CTRL+E" ;
|
|
SKIP FOR NOT glEnabled_Opc_A_2_Sub_2 ;
|
|
MESSAGE "Mensaje para _Opc_A_2_Sub_2 (Tipo Command y con Bar # 2)" && Comentario para Opción A-2-Sub.2 (Tipo Command y con Bar # 2)
|
|
ON SELECTION BAR 2 OF OpciónA2Su wait window "Ejecuta Comando o función para Opción A-2-Sub.2"
|
|
|
|
DEFINE BAR 3 OF OpciónA2Su PROMPT "Opción A-2-Sub.4" ;
|
|
MESSAGE "Message para Opción A-2-Sub.4 (Tipo Submenu)"
|
|
ON BAR 3 OF OpciónA2Su ACTIVATE POPUP _3yl0d68e0
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP _3yl0d68e0 MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF _3yl0d68e0 PROMPT "FIN!" ;
|
|
MESSAGE "Message para FIN! (Tipo Command)"
|
|
ON SELECTION BAR 1 OF _3yl0d68e0 QUIT
|
|
ON SELECTION POPUP _3yl0d68e0 *-- Sin procedure, pero podria ir aquí
|
|
|
|
DEFINE BAR _MFI_SYSPRINT OF OpciónA2Su PROMPT "Opción A-2-Sub.3" ;
|
|
KEY CTRL+R, "CTRL+R" ;
|
|
SKIP FOR NOT glEnabled_Opc_A_2_Sub_3 ;
|
|
PICTRES _mfi_sysprint ;
|
|
MESSAGE "Message para Opción A-2-Sub.3 (Tipo Bar#)" && Comentarios para Opción A-2-Sub.3
|
|
ON SELECTION POPUP OpciónA_CS *-- PROCEDURE Le cambié el nombre!
|
|
|
|
DEFINE PAD opc_b OF _MSYSMENU PROMPT "Opción B con comando" COLOR SCHEME 3 ;
|
|
KEY CTRL+B, "Pulse CTRL+B" ;
|
|
SKIP FOR NOT glEnabled_Opc_B ;
|
|
MESSAGE "Mensaje para Opción B con Command" && Comentario de la Opción b
|
|
|
|
ON SELECTION PAD opc_b OF _MSYSMENU WAIT WINDOW "Opción B"
|
|
ON SELECTION POPUP ALL DO MenuBarProc
|
|
ON SELECTION MENU _MSYSMENU DO SELECTION_MENU__MSYSMENU_FB2P
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE Menu1_Opción_A_2_Sub_SNIPPET
|
|
#NAME Menu1_Opción_A_2_Sub_SNIPPET
|
|
*PROCEDURE Menu1_Opción_A_2_Sub
|
|
*-- Mi procedure!
|
|
*ENDPROC
|
|
ENDPROC && Menu1_Opción_A_2_Sub_SNIPPET
|
|
|
|
PROCEDURE MenuBarProc
|
|
#NAME MenuBarProc
|
|
WAIT WINDOW "Menu Bar Procedure"
|
|
WAIT WINDOW "Y ahora??"
|
|
ENDPROC && MenuBarProc
|
|
|
|
PROCEDURE SELECTION_MENU__MSYSMENU_FB2P
|
|
*-- Menu Procedure
|
|
wait window "Y ahora es Procedure!"
|
|
ENDPROC && SELECTION_MENU__MSYSMENU_FB2P
|
|
|
|
*</Procedures>
|
|
|
|
|
|
*<CleanupCode>
|
|
*-- Cleanup code
|
|
|
|
*</CleanupCode> |