Qt multi platform environment at http://www.qtsoftware.com ,Used in google Earth!!! Qt look more cool but Afaik is not present any kind of wrapper library For Harbour this is point of view of google trend http://www.google.com/trends?q=Qt,gtk http://theunixgeek.blogspot.com/2007/10/gtk-vs-qt.html
2009/2/23 Vailton Renato <vail...@gmail.com>: > Maybe, if using GTK ... but I like how Qt multi platform environment. > I have not decided about this. > > 2009/2/23 Massimo Belgrano <mbelgr...@deltain.it>: >> 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 >> > > > > -- > Vailton Renato > SQL LIB, MyMake & xDev Developer > _______________________________________________ > Harbour mailing list > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > -- Massimo Belgrano Albo Nazionale Informatici Professionisti 2620 Socio 2843 Associazione Informatici prof. Analisi e sviluppo software per Lan e Web Consulenza informatica - Formazione Delta Informatica S.r.l. http://www.deltain.it Via Torelli,31 - 28100 Novara - Tel: 0321/30281 _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
