Explorer Bar de Andres Reyes

[hmpaquito]

Hola,

Estoy buscando la ultima version de la clase Explorer Bar de Andres Reyes, que creo que venía suministrada en formato .lib.

Realmente lo que necesito es una clase explorer bar que tenga scroll que funcione correctamente.

Alguien me apuntaría, por favor, un link.

Saludos.

[Antonio Linares]

Paco,

Has probado la que proporciona FWH ?

Le falla la barra de scroll ? Puedes proporcionar un ejemplo ?

gracias

[hmpaquito]

Buenos días Antonio,

.\samples\explbar4.prg es un ejemplo de que falla el scrollbar

Saludos

[Antonio Linares]

Paco,

Que es lo que falla en ese ejemplo ?

Observa que siempre se muestra hasta diciembre que es el final de cada grupo

[Antonio Linares]

Si quieres que se muestre un poco del control más abajo del grupo modifica esta línea en:

METHOD CheckScroll() CLASS TExplorerBar

...

nLastRow = ::nVirtualTop + oLastItem:nTop + ;
If( ! oLastItem:lCollapsed, oLastItem:nTotalHeight,;
oLastItem:nTitleHeight ) + 10 // añadimos 10 pixeles

[hmpaquito]

Antonio,


Lo que falla es esto:

Code: Select all  Expand view

  ::oVScroll:bPageUp   = {|| ::VScrollSkip( - ::oVScroll:nPgStep ) }
   ::oVScroll:bPageDown = {|| ::VScrollSkip( ::oVScroll:nPgStep ) }
 

Que con un workaround lo he solucionado con esto:

Code: Select all  Expand view

  ::oVScroll:bPageUp   = {|| ::VScrollSkip( -10) }
   ::oVScroll:bPageDown = {|| ::VScrollSkip( 10 ) }

El problema es que al ejecutarse hacia que los paneles se perdieran de vista y definitivamente se perdieran.

Saludos

[Antonio Linares]

Paco,

Y en ese ejemplo como consigues que se pierdan los paneles ?

Aqui parece funcionar bien

[hmpaquito]

No arrastres el thumb, sino que pincha en el track del scroll para que se ejecuten esos dos codeblocks que he parcheado. Eso hace desaparecer los panels y finalmente, después de varios pinchazos, no queda ni uno visible.