FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Explorer Bar de Andres Reyes
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Explorer Bar de Andres Reyes
Posted: Wed Sep 05, 2018 10:09 PM

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.

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 05:43 AM

Paco,

Has probado la que proporciona FWH ?

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

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 07:29 AM

Buenos días Antonio,

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

Saludos

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 10:44 AM

Paco,

Que es lo que falla en ese ejemplo ?

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 10:49 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 10:55 AM
Antonio,


Lo que falla es esto:

Code (fw): Select all Collapse
   ::oVScroll:bPageUp   = {|| ::VScrollSkip( - ::oVScroll:nPgStep ) }
   ::oVScroll:bPageDown = {|| ::VScrollSkip( ::oVScroll:nPgStep ) }


Que con un workaround lo he solucionado con esto:
Code (fw): Select all Collapse
   ::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
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 11:18 AM

Paco,

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

Aqui parece funcionar bien

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Explorer Bar de Andres Reyes
Posted: Thu Sep 06, 2018 11:31 AM

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.

Continue the discussion