romfast/roapreturi
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18058

Browse Source
This commit is contained in:
Marius Mutu
2026-08-26 12:49:21 +03:00
commit f0d5151c24
46 changed files with 13195 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
Meniuri/roapreturi.mn2 Normal file
View File

@@ -0,0 +1,106 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roapreturi.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 _000000001 OF _msysmenu PROMPT "\<Utile" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+U, "ALT+U"
ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile
*----------------------------------
DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Utile PROMPT "\<Intrare"
ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P
DEFINE BAR 2 OF Utile PROMPT "\-"
ON BAR 2 OF Utile ACTIVATE POPUP _1kl0q65s4
*----------------------------------
DEFINE POPUP _1kl0q65s4 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Utile PROMPT "\<Calculator"
ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P
DEFINE BAR 4 OF Utile PROMPT "\<Notepad"
ON SELECTION BAR 4 OF Utile DO BAR_4_OF_Utile_FB2P
DEFINE BAR 5 OF Utile PROMPT "\-"
ON BAR 5 OF Utile ACTIVATE POPUP _0310yhezd
*----------------------------------
DEFINE POPUP _0310yhezd MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 6 OF Utile PROMPT "\<Iesire" ;
KEY F2, "F2" ;
MESSAGE "Quits Visual FoxPro"
ON SELECTION BAR 6 OF Utile DO BAR_6_OF_Utile_FB2P
DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
KEY ALT+A, "ALT+A"
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Ajutor
*----------------------------------
DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Ajutor PROMPT "\Instructiuni de utilizare"
ON SELECTION BAR 1 OF Ajutor lansare_help_meniu()
DEFINE BAR 2 OF Ajutor PROMPT "\-"
ON BAR 2 OF Ajutor ACTIVATE POPUP _1gf0kwo4s
*----------------------------------
DEFINE POPUP _1gf0kwo4s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 3 OF Ajutor PROMPT "\<Jurnal modificari"
ON SELECTION BAR 3 OF Ajutor do form frm_changelog
DEFINE BAR 4 OF Ajutor PROMPT "\<Despre program..."
ON SELECTION BAR 4 OF Ajutor DO BAR_4_OF_Ajutor_FB2P
*</MenuCode>
*<Procedures>
PROCEDURE BAR_1_OF_Utile_FB2P
Do start_firma In ostartfirma.prg
verifica_drepturi('oprinc','pagefr1')
ENDPROC && BAR_1_OF_Utile_FB2P
PROCEDURE BAR_3_OF_Utile_FB2P
Do Case
Case File('C:\WINDOWS\CALC.EXE')
Run /N C:\Windows\Calc.Exe
Case File('C:\WINDOWS\SYSTEM32\CALC.EXE')
Run /N C:\Windows\SYSTEM32\Calc.Exe
Case File('C:\WINnt\system32\CALC.EXE')
Run /N C:\WINnt\SYSTEM32\Calc.Exe
Otherwise
lcMesaj='Aplicatia "Calculator" nu este instalata pe acest sistem!'
aMessagebox(lcMesaj,0+48,"ROA PRETURI")
Endcase
ENDPROC && BAR_3_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Utile_FB2P
Do Case
Case File('C:\WINDOWS\NOTEPAD.EXE')
Run /N C:\Windows\NOTEPAD.Exe
Case File('C:\WINnt\system32\NOTEPAD.EXE')
Run /N C:\WINnt\system32\NOTEPAD.Exe
Otherwise
lcMesaj='Aplicatia "Notepad" nu este instalata pe acest sistem!'
aMessagebox(lcMesaj,0+48,"ROA PRETURI")
Endcase
ENDPROC && BAR_4_OF_Utile_FB2P
PROCEDURE BAR_6_OF_Utile_FB2P
QUIT
ENDPROC && BAR_6_OF_Utile_FB2P
PROCEDURE BAR_4_OF_Ajutor_FB2P
DO FORM frm_about
ENDPROC && BAR_4_OF_Ajutor_FB2P
*</Procedures>