33 lines
1.7 KiB
Plaintext
33 lines
1.7 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_comments_procedure.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" && Setup some very effective error handling
|
|
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
|
|
*</MenuCode> |