FiveTech Software tech support forums

... vertical. I added a Dummy-button to the sample, to test LOSTFOCUS. I noticed a Function-change old : c_path := CURDRIVE() + ":\" + GETCURDIR() new ( Function includes Drive ) c_path := GETCURDIR() http://www.pflegeplus.com/pictures/radtest4.jpg My new GROUPTESTER ...

Antonio,

Now combos are working fine.

Regaring getcurdir, why FWH does not use Harbour´s curdir()?. What´s the difference?.

Thanks.

Hello,

GetCurDir() is missing.

Thanks

Gracias Karinha, La función lchdir() es la que buscaba (nunca hasta ahora había tenido necesidad de utilizarla). Pero insisto en que cgetfile() no debería cambiar el path (también cambia el SET DEFAULT), en su lugar me he hecho una functión llamada Getfile(), para sustiruirla: function Getfile(cFile...

Creo sea esto: FUNCTION XBLITE()  //->MAIN()    MEMVAR cPRGPATH, cFILEPATH    cPRGPATH := cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))    XBACKUPLITE()    lCHDIR(cPRGPATH) //-> aca vuelve al directorio ...

Bueno, gracias por contestar, pero no se si me he explicado bien. No se trata de obtener el path de la aplicación, de lo que se trara es de que curdir() devuelva lo mismo antes y después de llamar a cgetfile(), o si no hay más remedio, alguna función para que curdir() devuelva el path de la aplicaci...

Para obtener el directorio de la aplicacion deberias acerlo así:

Code: Select all  Expand view

Msgalert('Paso2: ' + cFilePath( GetModuleFileName( GetInstance() ) ) )
 

talbéz:

Code: Select all  Expand view

     cPath := CURDRIVE() + ":\" + GETCURDIR()

Hola a todos, el siguiente código: Msgalert('Paso1: ' + getcurdir() ) cdesti := cGetFile('Archivos Excel (*.xls) | *.xls','Guardar libro',,,.t.,.t.,2,cname) Msgalert('Paso2: ' + getcurdir() ) En el paso 1 me muestra el directorio de la aplicación, pero ...

... : convert a Screencapture ( BMP ) to a new File ( JPG ) // Your Application-path // --------------------- c_path := CURDRIVE() + ":\" + GETCURDIR() // Screencapture-name // ------------------ cScreen := c_path + "\Screen1.BMP" oDlg:SaveToBmp( cScreen ) // change Screencapture-format ...

... wrong Backslash-direction. Using : "." + "\" works fine. 1. Get Your Main-directory : c_path := CURDRIVE() + ":\" + GETCURDIR() 2. the complete Path ( can be the Result from Image-selection ) : cFile := c_path + "\Bitmaps\Olga.jpg" Msgalert ( c_path + "\Bitmaps\Olga.jpg" ...

... aGet[3] LOCAL cTabCodice := SPACE(10) LOCAL cTabDesc := SPACE(10) LOCAL cTabImage := SPACE(10) LOCAL oBmp c_path := CURDRIVE() + ":\" + GETCURDIR() cImgname := c_path + "\Bitmaps\Help.bmp" cWidth := "16" cHeight := "16" DEFINE DIALOG oDlg FROM 100, 100 TO ...

... A Question : The Function cGetDir( "Select a directory", CurDrive() + ":\" + GetCurDir() ) + "\" opens the Dialog just somewhere on Screen. Is it possible to define a fixed Position ? http://www.pflegeplus.com/pictures/xbview2.jpg ...

... of Path-defines, sometimes I got Problems to find BMP's I don't use .\ or ..\ anymore. Instead I use : c_path := CURDRIVE() + ":\" + GETCURDIR() and the BMP-call with c_Path + "\bitmaps\" + cBmp1 or c_Path + "\Images\16x16\" + cBmp1 where cBmp1 = "LOGO.BMP" ...

... DIRAPPLI() + "BMP\CPOSTAL.BMP" > ? The BMP-File not found, or wrong Display ? I'm using : c_path := CURDRIVE() + ":\" + GETCURDIR() IF !FILE( c_path + "\System\textedit.bmp" ) MsgAlert( "BMP not found !", "Attention" ) ENDIF REDEFINE BTNBMP ...