159 lines
5.2 KiB
Plaintext
159 lines
5.2 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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>
|