FiveTech Software tech support forums

Amigos del foro: En base al ejemplo xBrwDisk.prg construí una funcion similar a cGetDir() Ejemplo con cGetDir() http://www.sauro-sys.com/Source/cGetDir.JPG Ejemplo con cFWGetDir() http://www.sauro-sys.com/Source/cFWGetDir.JPG ...

... * nPB )     ENDCASE  ENDIFRETURN ALLTRIM(TRANSFORM(nValue,"999,999,999,999.99")) + cTmp en la caprte samples tambien hay ejemplos, checa xbrwdisk.prg, treeview.prg, treelst.prg.tambien puedes armar la estructura del disco con lasclases Treeview y ListView, pero no me convencieron para ...

... :wink: :wink: Necesito de su valiosa asesoria, tengo un detallito que no puedo solucionar con XBrowse y SetTree(), tomando como ejemplo el archivo xbrwdisk.prg para tener un árbol de directorios, lo pase a mi proyecto, el scroll vertical sube y baja con forme abro la estructura del disco, funciona ...

Reinaldo,
See if \FWH\SAMPLES\XBRWDISK.PRG can help.
Regards, Euclides

... Usage: IfNil( p1, ... pN ) or IfNil( { a1. ..., aN } ) --> first non-nil value. * Enhancement: Improved sample xbrwdisk.prg. * Enhancement: functions CallDll() and CallDll32() have been renamed as FWCallDll() and FWCallDll32() to avoid symbols clash with Harbour. ...

Dear Mr. NagesWaraRao,
Thank you very much for your help. Now I have all the functionality I need.
Best regards,
Otto

Dear Mr. NagesWaraRao, I would like to use this code to select a certain letter. I change local aDrives := aDrives( 2 ) // Hard disks to local aDrives := { "c:\xwinhotel"} This way I see the folder where the letters are. Now I would like to start with the treeview in open status and then ...

Dear Mr. NagesWaraRao, thank you so much. Now all is working as suspected. May I ask you two more questions? I would like to use this code to select a certain letter. I change local aDrives := aDrives( 2 ) // Hard disks to local aDrives := { "c:\xwinhotel"} This way I see the folder where ...

Dear Mr. NageswaraRao, Your changes solved the problem. Now if a folder is empty you don’t get an error anymore. Thank you very much. Could you please have a look why ENTER key only works on folders you have once opened first with the mouse, too. Thanks in advance Otto Please add this after oBrw:Se...

Dear Mr. NageswaraRao, do you think it should be possible if directory is empty to insert a pseudo item to get more a windows explorer like feeling. Best regards, Otto Please use this modified function. static function SubTree( oParent )   local oTree, n, oItem, nLevel, nItems := 0   local ...

Dear Mr. NageswaraRao,
do you think it should be possible if directory is empty to insert a pseudo item to get more a windows explorer like feeling.
Best regards,
Otto

Dear Mr. NageswaraRao,
Your changes solved the problem. Now if a folder is empty you don’t get an error anymore.
Thank you very much.
Could you please have a look why ENTER key only works on folders you have once opened first with the mouse, too.

Thanks in advance
Otto

Please change the static function SetSubTree to check for empty subtree; Modified code static function SetSubTree( oItem, oTree )   if oTree:nCount() > 0   // now inserted      oTree:oFirst:oPrev   := oItem      oTree:oLast:SetNext...

I did some tests with xbrwdisk.prg. I noticed: 1) ENTER and ESC only work if you first have clicked on that folder. 2) I get an error if I click on an empty folder . Best regards, Otto Application =========== Path and name: C:\FWH\samples\xbrwdisk.exe ...

... xbrabln.prg xbradt.prg xbrarag.prg xbrbckg1.prg xbrbtn.prg xbrchild.prg xbrgrad.prg xbrimag1.prg xbrmemo.prg xbrprogb.prg xbrstru.prg xbrwalia.prg xbrwdisk.prg xbrwedit.prg xbrwrows.prg xbrwtree.prg xbwser.prg