Files
foxbin2prg/TESTS/DATOS_READONLY/Menu_LineBreak.mn2
Lutz fea3596fbc Binaries to 1.20
transfered all files to 1.20
added code to create recreate FoxBin2Prg
2023-08-27 20:04:11 +02:00

38 lines
1.9 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.20" SourceFile="menu_linebreak.mnx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*<MenuType>1</MenuType>
*<MenuLocation>REPLACE</MenuLocation>
*<MenuCode>
DEFINE MENU _MSYSMENU BAR
DEFINE PAD "_40O0YW62F" OF _MSYSMENU PROMPT "A first Entry" COLOR SCHEME 3
ON PAD _40O0YW62F OF _MSYSMENU ACTIVATE POPUP AfirstEntr
*----------------------------------
DEFINE POPUP AfirstEntr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF AfirstEntr PROMPT "Item 1" ;
KEY ALT+1, "ALT+1" && Do something depending on App version
ON SELECTION BAR 1 OF AfirstEntr iif(oApp.Version()=="v1.0",oApp.Run(1), oApp.Run(2))
DEFINE BAR 2 OF AfirstEntr PROMPT "Hide Errors"
ON SELECTION BAR 2 OF AfirstEntr DO BAR_2_OF_AfirstEntr_FB2P
DEFINE PAD "_40O0YW62G" OF _MSYSMENU PROMPT "E\<dit" COLOR SCHEME 3 ;
KEY ALT+D, "ALT+D" ;
SKIP FOR oApp.Database() == "Production" && Don't show this option when rendering menu item on production
ON PAD _40O0YW62G OF _MSYSMENU ACTIVATE POPUP Edit
*----------------------------------
DEFINE POPUP Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE PAD "_40O101BHZ" OF _MSYSMENU PROMPT "Skip For" COLOR SCHEME 3 ;
SKIP FOR iif(type("oMenu")=="O",oMenu.GetAccess(),.t.) && This comment line has<CR>a line break in it
ON SELECTION PAD _40O101BHZ OF _MSYSMENU messageb("Hello!")
*</MenuCode>