Leandro, Cristobal
Parece que es un bug en la clase TTaskPanel
El proceso de expandir/contraer el panel se da en el Method LButtonUp
Code: Select all
METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TTaskPanel
local n, hWndFocus
if nRow < ::nTitleHeight
// En la siguiente línea se produce el problema, pues no importa si le indicas lCollapsed .T. o .F., prevalecerá
// el resultado de ::nHeight > ::nTitleHeight , ignorando el valor que le hayas dado a lCollapsed
if ( ::lCollapsed := ::nHeight > ::nTitleHeight )
::nHeight = ::nTitleHeight
for n = ::nIndex + 1 to Len( ::oWnd:aPanels )
::oWnd:aPanels[ n ]:nTop -= ::nBodyHeight
next
....
Una solución temporal y a medio pelo, es que luego de crear el panel que quieres monstrar contraído escribas:
Code: Select all
oPanel1:nHeight := oPanel1:nTitleHeight
De esta manera lo pondrá como quieres. El problema..... es que al expandirlo nuevamente no controla bien el alto total del objeto panel.
Te toca ir probando, pero creo que por ahi van los tiros, mientras los gurús de FW nos dan la pauta para una correcta solución.