FiveTech Software tech support forums

Leandro //----------------------------------------------------------------------------//////----------------------------------------------------------------------------//Function CreaDocks()   oDock1  := TDockPnel():New( oWindow )   WITH OBJECT oDock1...

Buenas tardes para todos En esta ocasión necesito poder cambiar algunos de los iconos que están en la cabecera del TDockPnel específicamente dos, los otros siempre van a ser fijos, las imágenes de momento las monto en el método SetImgsFiles(), pero quiero que al ...

También tuve que modificar la parte que muestra el ICONO en WINDOW MDICHILD. METHOD New( nTop, nLeft, nBottom, nRight, cTitle, nStyle, oMenu, oWnd,;            oIcon, lVScroll, nClrFore, nClrBack, oCursor, oBrush,;  ...

... el log en el fichero "stack.log". * Nuevo: Nueva función SetFolderIcon( cFolder, cFileIco, [cInfoTip] ) --> lSuccess Establece un icono a una carpeta, con el parámetro cInfoTip "Tooltip" como opcional. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41018&sid=5e2bd7012f40ab42c253bb2078c6a776 ...

Thanks Mr. Rao

acuellar wrote:Buenas estimados

Y la función cRelativePath donde la encuentro?

You need to upgrade FWH

acuellar wrote:Buenas estimados

Y la función cRelativePath donde la encuentro?

You need to upgrade FWH

Gracias Estimado

Tengo FWH 18.04

// \samples\CRELATIV.PRG#Include "FiveWin.ch"FUNCTION Main()   ? SetFolderIcon( "c:\FWH1905\icofolder", "c:\FWH1905\icons\fivetech.ico", ;      "FWH SetFolderIcon() function" )RETURN NILFUNCTION SetFolderIcon( cFolder, cFileIco, cInfoTip &...

Mira estimado:

http://forums.fivetechsoft.com/viewtopic.php?p=219133&sid=45f46e346cd14b3af0b2efd091e281f1#p219133

Regards, saludos.

Gracias estimado Joao

Pero no está en en la Lib Shell32

acuellar wrote:Buenas estimados

Y la función cRelativePath donde la encuentro?

Borland shell32.lib


regards, saludos

Buenas estimados

Y la función cRelativePath donde la encuentro?

Excelente Mr.Nages

Era lo que estaba buscando. Muchas gracias.

function SetFolderIcon( cFolder, cFileIco, cInfoTip )   local lSet  := .f.   local oIni, cIni, cSec := ".ShellClassInfo"   cFolder  := RemRight( cFolder, "\" )   DEFAULT cInfoTip := ""   if File( c...