Cristobal,
Que ejemplo estas probando ?
Yo estoy probando FWH\samples\explbar.prg
METHOD AddLink( cPrompt, bAction, cBitmap ) CLASS TTaskPanel
.../...
AAdd( ::aLinks, oUrlLink ) // Add
return nil
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()
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()
//----------------------------------------------------------------------------//
03/19/15 22:09:09: C:\Fwh\Fwh1501\samples\explbar.exe --
METHOD Destroy()
METHOD Destroy() CLASS TURLLink
DeleteObject( ::hBmp )
RETURN ::Super:Destroy()
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 31 guests