*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="menu2.mnx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>5</MenuType>
*<MenuLocation>APPEND</MenuLocation>

*<SetupCode>
*-- Setup code

*</SetupCode>

*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD _40Q0H1MMN 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<CR>multilínea<CR>rompetodo

ON PAD _40Q0H1MMN 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" && Comentario<CR>multilínea<CR>rompetodo
	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" && Comentario<CR>multilínea<CR>rompetodo
		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

	DEFINE BAR 3 OF OpciónA_CS PROMPT "Opción A-3" ;
		SKIP FOR valor de skip() ;
		MESSAGE "un mensaje de texto" && Y este es<CR>el nuevo comando<CR>dentro de un PROC!
	ON SELECTION BAR 3 OF OpciónA_CS ON ERROR ****

	DEFINE BAR 4 OF OpciónA_CS PROMPT ""About " + oApp.AppName()"
	ON BAR 4 OF OpciónA_CS ACTIVATE POPUP NewItem

		*----------------------------------
		DEFINE POPUP NewItem MARGIN RELATIVE SHADOW COLOR SCHEME 4	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"

DEFINE PAD _43302YWHK OF _MSYSMENU PROMPT "\<About ] + alltrim(oApp.GetPProp([icAppTitle]))+"..." + [" COLOR SCHEME 3

ON PAD _43302YWHK OF _MSYSMENU ACTIVATE POPUP _40t0aif1j

	*----------------------------------
	DEFINE POPUP _40t0aif1j MARGIN RELATIVE SHADOW COLOR SCHEME 4ON SELECTION POPUP ALL DO ALL_FB2P
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 ALL_FB2P
	*- Menu bar procedure
	multilínea
	rompetodo
	<Menu Options>
ENDPROC && ALL_FB2P

PROCEDURE SELECTION_MENU__MSYSMENU_FB2P
	*-- Menu Procedure
	multilínea
	rompetodo
	<General Options>
ENDPROC && SELECTION_MENU__MSYSMENU_FB2P

*</Procedures>


*<CleanupCode>
*-- Cleanup code

*</CleanupCode>