TExplorerBar Bitmaps

[Antonio Linares]

Cristobal,

Que ejemplo estas probando ?

Yo estoy probando FWH\samples\explbar.prg

[cnavarro]

Antonio, estoy probando el ejemplo explbar.prg de samples

Solucionado:

Editado (añadiendo la solucion de Daniel que aparece abajo)

Code: Select all  Expand view

METHOD AddLink( cPrompt, bAction, cBitmap ) CLASS TTaskPanel

.../...

   AAdd( ::aLinks, oUrlLink )       // Add
   
return nil

 

Code: Select all  Expand view

METHOD 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

Code: Select all  Expand view

METHOD Destroy() CLASS TExplorerBar
Local x

   AEval( ::aPanels,;
          { | oItem | oItem:End() } )

Return ::Super:Destroy()

 

Code: Select all  Expand view

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 --

[Daniel Garcia-Gil]

Saludos


Si entra por el destroy, el problema parece que viende de la clase UrlLink

falta esto en la clase

la definicion

Code: Select all  Expand view

METHOD Destroy()

el metodo

Code: Select all  Expand view

METHOD Destroy() CLASS TURLLink

  DeleteObject( ::hBmp )

RETURN ::Super:Destroy()

[Antonio Linares]

Daniel,

Muchas gracias

Estas en forma!

[Francisco Horta]

Antonio, Daniel, Cristobal

Probado sin modificar la clase tExplorerBar y adecuando la TUrlLink el metodo Destroy() y todo funciona de maravilla !!!

Gracias