romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

158
Meniuri/contorice.mn2 Normal file
View File

@@ -0,0 +1,158 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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>