Cristobal,
Que ejemplo estas probando ?
Yo estoy probando FWH\samples\explbar.prg
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TExplorerBar Bitmaps
Page: 1 2 (20 posts)
Antonio, estoy probando el ejemplo explbar.prg de samples
Solucionado:
Editado (añadiendo la solucion de Daniel que aparece abajo)
Y tambien
CheckRes,txt
Solucionado:
Editado (añadiendo la solucion de Daniel que aparece abajo)
METHOD AddLink( cPrompt, bAction, cBitmap ) CLASS TTaskPanel
.../...
AAdd( ::aLinks, oUrlLink ) // Add
return nilMETHOD Destroy() CLASS TTaskPanel
AEval( ::aBitmaps,;
{ | aItem | DeleteObject( aItem[ BMP_HANDLE ] ),;
DeleteObject( aItem[ BMP_BRIGHT ] ) } )
// AEval( ::aLinks, { | oItem | DeleteObject( oItem:hBmp ) } ) // No hace falta
AEval( ::aLinks, { | oItem | oItem:End() } ) // Añadir
DeleteObject( ::hBmpPanel )
DeleteObject( ::hRegion )
return ::Super:Destroy()Y tambien
METHOD Destroy() CLASS TExplorerBar
Local x
AEval( ::aPanels,;
{ | oItem | oItem:End() } )
Return ::Super:Destroy()CLASS TURLLINK
.../...
METHOD End() INLINE ::Destroy()
METHOD Destroy()
ENDCLASS
//----------------------------------------------------------------------------//
METHOD Destroy() CLASS TURLLink
DeleteObject( ::hBmp )
RETURN ::Super:Destroy()
//----------------------------------------------------------------------------//CheckRes,txt
03/19/15 22:09:09: C:\Fwh\Fwh1501\samples\explbar.exe --
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Saludos
Si entra por el destroy, el problema parece que viende de la clase UrlLink
falta esto en la clase
la definicion
el metodo
Si entra por el destroy, el problema parece que viende de la clase UrlLink
falta esto en la clase
la definicion
METHOD Destroy()el metodo
METHOD Destroy() CLASS TURLLink
DeleteObject( ::hBmp )
RETURN ::Super:Destroy()our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Daniel,
Muchas gracias 
Estas en forma!
Antonio, Daniel, Cristobal
Probado sin modificar la clase tExplorerBar y adecuando la TUrlLink el metodo Destroy() y todo funciona de maravilla !!!
Gracias
____________________
Paco
Paco
Page: 1 2 (20 posts)