Implementando una Clase TExplorerBar propia de FWH

[Daniel Garcia-Gil]

Hello silvio

you think you can found a solution to insert these control on the texplorerbar class ?

the class already support all control

[Silvio]

good !!!!!!!!!!

[AIDA]

Impresionante !!!!!!!!

[mgsoft]

Estupendo.

¿Y soporta el aspecto Windows 7, pues XP ya está bastante visto?.

Gracias

[Antonio Linares]

Es completamente configurable

Se le puede cambiar todo: colores, gradientes, bitmaps de paneles abiertos y cerrados, etc

[pacotre]

Hola:
Alguien me puede decir como indicar que Texplorer, de inicio, me los muestre cerrados?
Gracias

[Antonio Linares]

Paco,

Tienes que añadir este método a la Clase TExplorerBar. La próxima versión de FWH lo incluye.

oExplorerBar:CloseAll( 0 ) // cierra todos

oExplorerBar:CloseAll( 1 ) // cierra todos menos el primero

Code: Select all  Expand view  RUN

METHOD CloseAll( nOpen ) CLASS TExplorerBar

   local nPanel, nItem

   DEFAULT nOpen := 1

   for nPanel := nOpen + 1 to Len( ::aPanels )
      with object ::aPanels[ nPanel ]
         :lCollapsed   = .T.
         :nTopMargin   = 1
         :nLeftMargin  = ::aPanels[ 1 ]:nLeftMargin
         :nRightMargin = ::aPanels[ 1 ]:nRightMargin
         :nLeft        = :nLeftMargin
         :nRight       = ::oWnd:nWidth - :nRightMargin
         :nHeight      = :nTitleHeight
      end      
      for nItem := nPanel + 1 To Len( ::aPanels )
         ::aPanels[ nItem ]:nTop -= ( ::aPanels[ nPanel ]:nBodyHeight )
      next
   next

return nil

[pacotre]

Gracias Antonio.
Estoy muy satisfecho con la nueva versión FWH adquirida en Diciembre. Me queda mucho que aprender, pero todo se andará.
Un abrazo

[leandro]

Aprovechando el desorden, podrías ayudarnos a solucionar el bug de la clase, para cuando se requiere que algunos de los paneles, (no todos al tiempo), se muestren colapsados por defecto.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38700&start=0&hilit=TTaskPanel+Collapsed

De paso que se pueda cambiar la distancia que hay entre los paneles. Ya que al intentar definiría de manera manual, este no hace caso. jejejejeje.

Code: Select all  Expand view  RUN

oPanel4:nTopMargin      := 0  //no funciona

[Antonio Linares]

Leandro,

Estamos revisando la clase para mejorarla. Iremos comentando las mejoras.

[cnavarro]

Leandro, prueba asi

Code: Select all  Expand view  RUN

   oPanel3:nTop  -= 16
 

[leandro]

Super Cristobal, funciona bien..... Pero no para el primer panel. Como hago para que el primer panel quede sin espacio en la parte superior?

[cnavarro]

Leandro, en el caso del primero, tienes que definirlo inmediatamente después de definir el primer panel, y antes de definir el segundo

Code: Select all  Expand view  RUN

   oPanel1:nTop -= 10
 

[pacotre]

Buenos dias Antonio:
He añadido el nuevo Method en la Clase Texplorer y funciona correctamente, pero tiene un par de fallitos que no consigo arreglar. He intentado modificar el margen izquierdo, pero no lo consigo.
El problema consiste en que al abrir cerrados, la pantalla que limpia es más corta por la izquierda y quedan rastros de la original y a la nueva refrescada le corta un trozo por la izquierda.
No sé si me explico.
Estoy intentando modificar el tamaño de: :nLeftMargin = ::aPanels[ 3 ]:nLeftMargin-5 (con ese -5), queda mejor, pero no perfecto. Alguna sugerencia?

Gracias

[Antonio Linares]

Puedes proporcionar un PRG ejemplo pequeño y autocontenido de como lo estás haciendo ?

gracias