Cerrar o 'colapsar' paneles en TExplorerBar (SOLUCIONADO)

[AngelSalom]

Hola, una nueva consulta. Estoy implementando las TExplorerBar en mi aplicación y están funcionando bastante bien, aunque no consigo cerrar los paneles vía código.
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()

donde oExbar es el objeto TExplorerBar previamente creado y en funcionamiento, pero nada ocurre, ¿alguna sugerencia?

Gracias
Angel Salom
FWH10.11 - Harbour - BCC582

[AngelSalom]

Yo mismo :

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.
 

Donde oExBar es la tExplorerBar y nCerrar es el panel que se quiere cerrar.

Angel Salom

[pablovidal]

Angel,

Gracias funciona 100%

[Manuel Aranda]

Angel,
igualmente muchas gracias, es lo que necesitaba.

[Silvio]

If you want search on english forum
I made some modify on TexplorerBar and Add new methods
to collapse and expand panels, watermak and other methods
but linares never add these methods on new releases

[Manuel Aranda]

Silvio,
gracias por la información. Lo voy a mirar. Estoy echando en falta funcionalidades tales como desactivar link en los panel o poder usar bitmap en los títulos de los panel desde recursos.

[Silvio]

I ASKED TO LINARES TO CREATE A MENU SYSTEM FOR THIS CLASS BUT IT SEEMS NOT INTEREST FOR ALL
THE DANIEL MADE LISTBAR CLASS
but the explorer not is modified
Now I use another class ( of Mr P a c o)

[AngelSalom]

Silvio, ¿puedes aportar información sobre la clase que estás usando actualmente?

Gracias,

Angel Salom
FWH10.11 - Harbour - BCC582