*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="contorice.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" ;
	MESSAGE 'Instrumente utile: calculator, calendar, bloc-notes; iesirea din program.'

ON PAD _000000001 OF _msysmenu ACTIVATE POPUP Utile

	*----------------------------------
	DEFINE POPUP Utile MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Utile PROMPT "\<Calculator" ;
		MESSAGE 'Deschide un calculator.'
	ON SELECTION BAR 1 OF Utile DO BAR_1_OF_Utile_FB2P

	DEFINE BAR 2 OF Utile PROMPT "C\<alendar" ;
		MESSAGE 'Deschide un calendar.'
	ON SELECTION BAR 2 OF Utile DO BAR_2_OF_Utile_FB2P

	DEFINE BAR 3 OF Utile PROMPT "\<Notepad" ;
		MESSAGE 'Deschide un carnetel.'
	ON SELECTION BAR 3 OF Utile DO BAR_3_OF_Utile_FB2P

	DEFINE BAR 4 OF Utile PROMPT "\-"
	ON BAR 4 OF Utile ACTIVATE POPUP _s9r16veuj

		*----------------------------------
		DEFINE POPUP _s9r16veuj MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 5 OF Utile PROMPT "\<Reindexare"
	ON BAR 5 OF Utile ACTIVATE POPUP Reindexare

		*----------------------------------
		DEFINE POPUP Reindexare MARGIN RELATIVE SHADOW COLOR SCHEME 4
		DEFINE BAR 1 OF Reindexare PROMPT "\<Fisiere locale si temporare"
		ON SELECTION BAR 1 OF Reindexare DO BAR_1_OF_Reindexare_FB2P

	DEFINE BAR 6 OF Utile PROMPT "\-"
	ON BAR 6 OF Utile ACTIVATE POPUP _rap18gw4b

		*----------------------------------
		DEFINE POPUP _rap18gw4b MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 7 OF Utile PROMPT "\<Iesire" ;
		KEY F2, "F2" ;
		MESSAGE 'Iesire din program.'
	ON SELECTION BAR 7 OF Utile DO BAR_7_OF_Utile_FB2P

DEFINE PAD _000000002 OF _msysmenu PROMPT "\<Editare" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	MESSAGE 'Comenzi de editare.'

ON PAD _000000002 OF _msysmenu ACTIVATE POPUP Editare

	*----------------------------------
	DEFINE POPUP Editare MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR _med_undo OF Editare PROMPT "\<Anuleaza" ;
		KEY CTRL+Z, "Ctrl+Z" ;
		MESSAGE 'Anuleaza ultima comanda de editare.'

	DEFINE BAR _med_redo OF Editare PROMPT "\<Refa" ;
		KEY CTRL+R, "Ctrl+R" ;
		MESSAGE 'Repeta ultima comanda anulata.'

	DEFINE BAR _med_sp100 OF Editare PROMPT "\-"

	DEFINE BAR _med_cut OF Editare PROMPT "\<Taie si retine" ;
		KEY CTRL+X, "Ctrl+X" ;
		MESSAGE 'Copiaza in memorie textul selectat si apoi il sterge din ecran.'

	DEFINE BAR _med_copy OF Editare PROMPT "\<Copiaza" ;
		KEY CTRL+C, "Ctrl+C" ;
		MESSAGE 'Copiaza in memorie textul  selectat.'

	DEFINE BAR _med_paste OF Editare PROMPT "Re\<da" ;
		KEY CTRL+V, "Ctrl+V" ;
		MESSAGE 'Reda din memorie textul retinut cu comanda <Copiaza>.'

	DEFINE BAR _med_sp200 OF Editare PROMPT "\-"

	DEFINE BAR _med_slcta OF Editare PROMPT "\<Selecteaza tot" ;
		KEY CTRL+A, "Ctrl+A" ;
		MESSAGE 'Selecteaza tot textul din celula activa.'

DEFINE PAD _000000003 OF _msysmenu PROMPT "A\<jutor" COLOR SCHEME 3 ;
	KEY ALT+J, "ALT+J" ;
	MESSAGE 'Instructiuni de utilizare, informatii despre acest program.'

ON PAD _000000003 OF _msysmenu ACTIVATE POPUP Ajutor

	*----------------------------------
	DEFINE POPUP Ajutor MARGIN RELATIVE SHADOW COLOR SCHEME 4
	DEFINE BAR 1 OF Ajutor PROMPT "\<Despre program..." ;
		MESSAGE 'Informatii despre program'
	ON SELECTION BAR 1 OF Ajutor DO BAR_1_OF_Ajutor_FB2P

*</MenuCode>

*<Procedures>
PROCEDURE BAR_1_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
			do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
	endcase
ENDPROC && BAR_1_OF_Utile_FB2P

PROCEDURE BAR_2_OF_Utile_FB2P
	od=createo('diary')
	od.show(1)
ENDPROC && BAR_2_OF_Utile_FB2P

PROCEDURE BAR_3_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
			do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
	endcase
			
ENDPROC && BAR_3_OF_Utile_FB2P

PROCEDURE BAR_1_OF_Reindexare_FB2P
	do reindexaretempo in reindexare.prg
ENDPROC && BAR_1_OF_Reindexare_FB2P

PROCEDURE BAR_7_OF_Utile_FB2P
	ies=.t.
	
	DO IESIRE
	
	*RELEASE OBJECTS_________________________-
	*ostart.release
	*OSETVIZ.RELEASE
	*OSETTULBAR.RELEASE
	*OSETINSTRUM.RELEASE
	
ENDPROC && BAR_7_OF_Utile_FB2P

PROCEDURE BAR_1_OF_Ajutor_FB2P
	OD=CREATEO('DESPRE')
	OD.SHOW(1)
ENDPROC && BAR_1_OF_Ajutor_FB2P

*</Procedures>