Por lo que veo en la clase hay un data en el TTaskpanel que es lCollapsed, así que intento realizar un :
Code: Select all
oExBar:aPanels[1]:lCollapsed:=.T.
oExBar:Refresh()
Gracias
Angel Salom
FWH10.11 - Harbour - BCC582
Code: Select all
oExBar:aPanels[1]:lCollapsed:=.T.
oExBar:Refresh()
Code: Select all
// Cierro 1 panel
nCerrar:=3
oExBar:aPanels[nCerrar]:nHeight = oExBar:aPanels[nCerrar]:nTitleHeight
For nC:=nCerrar+1 To Len (oExBar:aPanels)
oExBar:aPanels[nC]:nTop -= oExBar:aPanels[nCerrar]:nBodyHeight
Next
oExBar:aPanels[nCerrar]:lCollapsed:=.T.