137 lines
4.7 KiB
Plaintext
137 lines
4.7 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="roaimob.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 "Editare" COLOR SCHEME 3 ;
|
|
KEY ALT+E, "ALT+E"
|
|
|
|
ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
|
|
KEY CTRL+C, "Ctrl+C" ;
|
|
MESSAGE "Copies the selection onto the Clipboard"
|
|
|
|
DEFINE BAR _med_paste OF Editare PROMPT "\<Reda" ;
|
|
KEY CTRL+V, "Ctrl+V" ;
|
|
MESSAGE "Pastes the contents of the Clipboard"
|
|
|
|
DEFINE PAD _000000003 OF _msysmenu PROMPT "\<Initializare" COLOR SCHEME 3 ;
|
|
KEY ALT+I, "ALT+I"
|
|
|
|
ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Initializa
|
|
|
|
*----------------------------------
|
|
DEFINE POPUP Initializa MARGIN RELATIVE SHADOW COLOR SCHEME 4
|
|
DEFINE BAR 1 OF Initializa PROMPT "\<Serii"
|
|
ON SELECTION BAR 1 OF Initializa DO viz_config_serii_complet with 18 IN oserii_numere.prg
|
|
|
|
DEFINE PAD _000000004 OF _msysmenu PROMPT "\<Ajutor" COLOR SCHEME 3 ;
|
|
KEY ALT+A, "ALT+A"
|
|
|
|
ON PAD _000000004 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 DO BAR_1_OF_Ajutor_FB2P
|
|
|
|
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 "\<Despre program..."
|
|
ON SELECTION BAR 3 OF Ajutor DO BAR_3_OF_Ajutor_FB2P
|
|
|
|
DEFINE BAR 4 OF Ajutor PROMPT "\<Jurnal Modificari"
|
|
ON SELECTION BAR 4 OF Ajutor do form frm_changelog
|
|
ON SELECTION MENU _msysmenu *:Locale=Yes
|
|
|
|
*</MenuCode>
|
|
|
|
*<Procedures>
|
|
PROCEDURE BAR_1_OF_Utile_FB2P
|
|
DO start_firma IN ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
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 IMOB")
|
|
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 IMOB")
|
|
Endcase
|
|
ENDPROC && BAR_4_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_6_OF_Utile_FB2P
|
|
quit
|
|
ENDPROC && BAR_6_OF_Utile_FB2P
|
|
|
|
PROCEDURE BAR_1_OF_Ajutor_FB2P
|
|
lansare_help_meniu() &&oproceduri_comune.prg
|
|
ENDPROC && BAR_1_OF_Ajutor_FB2P
|
|
|
|
PROCEDURE BAR_3_OF_Ajutor_FB2P
|
|
DO FORM frm_about
|
|
ENDPROC && BAR_3_OF_Ajutor_FB2P
|
|
|
|
*</Procedures>
|