Look very good Wich path do you think is possible for made simular tool in harbour in multiplatform?
2009/2/23 Vailton Renato <vail...@gmail.com>: > About GUI Wrapper, look at mymake and see if he can inspire you or > even help in some part on screenshots, options, etc. > > This tool was developed in Delphi and supports Harbor & xHarbour with > BCC. Has translated into Portuguese, English, Spanish and Italian... > The download link is http://sqllib.com.br/v4/index.php?artigo=MyMake > > 2009/2/22 Massimo Belgrano <mbelgr...@deltain.it>: >> Here is my first template for a UI version console >> Select one on more prg with enter and compile and run with f5 >> Particular useful running in harbour\test >> It Generate also project file for xmate >> now i want : >> -support also hrb >> -Manage also -GUI,-MT >> -Give Capability to edit source selected with parametrised editor >> -support more than 15 character in file name >> - try linux >> -Not exit but remain in memory after running the sample >> - Give capability compile a source from clibpoard useful for compile >> sample found in web >> >> >> >> Can my little work be part of harbour (example)? >> This use on old path based on achoice emulating norton commanter look and >> feel >> Have any other multiplatform suggestion for make a Multiple FIle >> Select on a file system? >> >> >> >> /* >> * $Id: hbm.prg >> */ >> >> /* >> * xHarbour Project source code: >> * xHarbour Template for hbmk 2 >> * >> * Copyright 2000 Massimo Belgrano >> * www - http://www.xharbour.org >> */ >> #include 'DIRECTRY.CH' >> #include "INKEY.CH" >> >> function main >> LOCAL qualedir ,QUALEPROG:=1 >> LOCAL FILECHOICE:={} >> set func 2 to CHR(K_CTRL_W) >> SET func 5 TO CHR(K_LEFT) >> CLS >> QUALEDIR="\"+CURDIR() >> DO WHILE .T. >> @ 0,54 CLEAR TO 23,79 >> @ 0,54 TO 23,79 >> FOR A=1 TO LEN(FILECHOICE) >> @ 0+A,55 SAY RIGHT(FILECHOICE[A],20) >> NEXT A >> QUALEPROG=SELECT_FILE(filechoice,@QUALEDIR,"*.PRG",1,1,22,50) >> @ 4,5 say qualedir >> IF EMPTY(QUALEPROG) >> IF LASTKEY()=K_RIGHT >> SELECT_ELEMENT(FILECHOICE,1,55,22,78) >> ELSE >> EXIT >> ENDIF >> ENDIF >> AADD(FILECHOICE,CURDRIVE()+":"+QUALEDIR+"\"+QUALEPROG) >> ENDDO >> if lastkey()<>27 >> IF LEN(FILECHOICE)>0 >> cls >> CREA_XMATE(filechoice) >> X_SHELL="HBMK2 " >> FOR A=1 TO LEN(FILECHOICE) >> X_SHELL=X_SHELL+FILECHOICE[A] +" " >> NEXT A >> X_SHELL=X_SHELL+"-RUN" >> RUN(X_SHELL) >> ENDIF >> ENDIF >> return >> >> FUNCTION SELECT_ELEMENT(FILECHOICE,X_ALTO,X_SINISTRA,X_BASSO,X_DESTRA) >> LOCAL X_POS >> if len(filechoice)=0 >> return >> endif >> do while .t. >> @ x_BASSO+2,1 SAY "Press enter to remove element to list" >> @ X_ALTO-1, X_SINISTRA -1 CLEAR to X_BASSO +1, X_DESTRA +1 >> @ X_ALTO-1, X_SINISTRA -1 to X_BASSO +1, X_DESTRA +1 >> X_POS=ACHOICE(X_ALTO,X_SINISTRA,X_BASSO,X_DESTRA,FILECHOICE,.T.) >> IF X_POS>1 >> ADEL(FILECHOICE,X_POS) >> else >> exit >> ENDIF >> enddo >> RETURN >> >> FUNCTION >> SELECT_FILE(filechoice,X_DIRSPEC,X_WILCARD,X_ALTO,X_SINISTRA,X_BASSO,X_DESTRA) >> LOCAL ADIRECTORY := {}, NITEM := 0, X_RET_VAL := .T. >> LOCAL NUM_ARGOMENTI := 0, CFILESTRING := "" >> LOCAL WIN_SELEZ >> LOCAL X_ELEM_SEL:=0 >> SAVE SCREEN TO WIN_SELEZ >> X_DIRSPEC=IIF(VALTYPE(X_DIRSPEC)="C",X_DIRSPEC,"\"+CURDIR()) >> X_ALTO=IIF(VALTYPE(X_ALTO)="N",X_ALTO,5) >> X_SINISTRA=IIF(VALTYPE(X_SINISTRA)="N",X_SINISTRA,5) >> X_BASSO=IIF(VALTYPE(X_BASSO)="N",X_BASSO,22) >> X_DESTRA=IIF(VALTYPE(X_DESTRA)="N",X_DESTRA,40) >> DO WHILE .T. >> @ X_BASSO+2,1 say "Press Enter add program to compile >> "+iif(len(filechoice)>0,"F5 compile and run Left Modify ","") +"Esc >> to Exit" >> @ X_ALTO-1, X_SINISTRA -1 CLEAR to X_BASSO +1, X_DESTRA +1 >> @ X_ALTO-1, X_SINISTRA -1 to X_BASSO +1, X_DESTRA +1 >> X_DIRECTORY=X_DIRSPEC+"\*.*" >> // carica una file list con le informazioni della directory >> ADIRECTORY := DIRECTORY( x_directory, "D" ) >> NUM_ARGOMENTI := IF( VALTYPE( aDirectory ) != "A", 0, LEN( aDirectory ) >> ) >> aFileList := {} // Cancella la vecchia lista >> ASORT( aDirectory,,, { | x, y | X[F_NAME] < Y[F_NAME] } ) >> // ORDINO LA DIRECTORY >> // X[F_NAME],"B"+X[F_NAME]) < >> IIF(Y[F_ATTR]="D","A"+Y[F_NAME],"B"+Y[F_NAME]) } ) >> // COMPONGO LA STRINGA CHE VERRA VISUALIZZATA NELLA ACHOICE >> FOR NITEM := 1 TO NUM_ARGOMENTI >> IF ADIRECTORY[NITEM,F_ATTR ]=="D" >> AADD( AFILELIST, PADR( ADIRECTORY[ NITEM, F_NAME ], 15 ) + ; >> " <dir>"+ " " + ; >> DTOC( aDirectory[ nItem, F_DATE ] ) + " " + ; >> SUBSTR( aDirectory[ nItem, F_TIME ], 1, 5) + " " + ; >> SUBSTR( aDirectory[ nItem, F_ATTR ], 1, 4 ) + " " ) >> ENDIF >> NEXT >> X_DIRECTORY=X_DIRSPEC+"\"+X_WILCARD >> ADIRECTORY := DIRECTORY( x_directory, "D" ) >> NUM_ARGOMENTI := IF( VALTYPE( aDirectory ) != "A", 0, LEN( aDirectory ) ) >> ASORT( aDirectory,,, { | x, y | X[F_NAME] < Y[F_NAME] } ) >> // COMPONGO LA STRINGA CHE VERRA VISUALIZZATA NELLA ACHOICE >> FOR NITEM := 1 TO NUM_ARGOMENTI >> IF ADIRECTORY[NITEM,F_ATTR ]<>"D" >> AADD( AFILELIST, PADR( ADIRECTORY[ NITEM, F_NAME ], 15 ) + ; >> STR( aDirectory[ nItem, F_SIZE ], 8 )+ " " + ; >> DTOC( aDirectory[ nItem, F_DATE ] ) + " " + ; >> SUBSTR( aDirectory[ nItem, F_TIME ], 1, 5) + " " + ; >> SUBSTR( aDirectory[ nItem, F_ATTR ], 1, 4 ) + " " ) >> ENDIF >> NEXT >> >> X_ELEM_SEL=ACHOICE(X_ALTO,X_SINISTRA,X_BASSO,X_DESTRA,AFILELIST,.T.,,X_ELEM_SEL) >> IF X_ELEM_SEL=0 >> X_RET_VAL="" >> EXIT >> ENDIF >> X_FILE_SEL=AFILELIST[X_ELEM_SEL] >> IF SUBSTR(X_FILE_SEL,16,8)<>" <dir>" >> X_RET_VAL=SUBSTR(X_FILE_SEL,1,15) >> EXIT >> ELSE >> IF SUBSTR(X_FILE_SEL,1,1)="." && SALGO DI UNA DIRECTORY >> X_DIRSPEC=SUBSTR(X_DIRSPEC,1,RAT("\",X_DIRSPEC)-1) >> ELSE >> X_DIRSPEC=X_DIRSPEC+"\"+ALLTRIM(SUBSTR(X_FILE_SEL,1,15)) >> ENDIF >> ENDIF >> ENDDO >> RESTORE SCREEN FROM WIN_SELEZ >> RETURN(X_RET_VAL) >> >> FUNCTION CREA_XMATE(filechoice) >> local a_xmate:={},A >> LOCAL X_LOG,X_MATE >> AADD(A_XMATE,"[Version]") >> AADD(A_XMATE,"Type=xMate") >> AADD(A_XMATE,"Number=1.15") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[Info]") >> AADD(A_XMATE,"Type=Executable") >> AADD(A_XMATE,"Architecture=harbour") >> AADD(A_XMATE,"Include=") >> AADD(A_XMATE,"Define=") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[xMate]") >> AADD(A_XMATE,"Create Map/List File=No") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[Project]") >> AADD(A_XMATE,"Run=") >> AADD(A_XMATE,"Params=") >> AADD(A_XMATE,"Final Path=%HOME%") >> AADD(A_XMATE,"Maintain LNK=Yes") >> AADD(A_XMATE,"Default Type=1") >> AADD(A_XMATE,"Error log=") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[Data Path]") >> AADD(A_XMATE,"Dbf=") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[Editor]") >> FOR A=1 TO LEN(FILECHOICE) >> AADD(A_XMATE,ALLTRIM(FILECHOICE[A])+"="+STR(A)+",N,N") >> NEXT >> AADD(A_XMATE,"") >> AADD(A_XMATE,"") >> AADD(A_XMATE,"[Files]") >> FOR A=1 TO LEN(FILECHOICE) >> AADD(A_XMATE,ALLTRIM(FILECHOICE[A])+"="+STR(A)+",.F.,0,0,") >> NEXT >> xprjmate=aLltrim(filechoice[1]) >> xprjmate=substr(XPRJMATE,1,len(xPRJmate)-4) +".xhp" >> if .not. file(XPRJMATE) >> X_LOG=FCREATE(XPRJMATE) >> FOR a=1 to len(A_XMATE) >> FWRITE(X_LOG,A_XMATE[a]+CHR(13)+CHR(10)) >> NEXT >> >> FCLOSE(X_LOG) >> ENDIF >> * returm >> >> */ >> >> >> >> 2009/2/16 Viktor Szakáts <harbour...@syenar.hu>: >>>> I have still one suggestion >>>> Having a simple interactive mode >>>> launching hbmk without parameter see a list of prg,hbp,c,rc >>>> select with space one or more and press button compile >>>> Simple and easy but will be a bridge between people command line >>>> driven and gui driven >>> >>> Nope sorry, I've meant this is a pure command line tool. >>> In fact all our supplied tools are command line only, and >>> this shouldn't be an exception. >>> If you want CUI/GUI, a wrapper program is the best solution. This >>> could simply create a hbmk command line after presenting >>> all the options on the screen for the user and either launch it >>> or save it as .hbm (similar to hbmake). Can be independently >>> developed from hbmk, and if it's good and portable (which now >>> means CUI), we can also include it as part of the Harbour package. >>> >> _______________________________________________ >> Harbour mailing list >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour >> > > > > -- > Vailton Renato > SQL LIB, MyMake & xDev Developer > _______________________________________________ > Harbour mailing list > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > -- Massimo Belgrano _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
