FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Implementando una Clase TExplorerBar propia de FWH
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sun Jun 20, 2010 01:42 PM
Hello silvio

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


the class already support all control

Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sun Jun 20, 2010 01:45 PM

good !!!!!!!!!!

Best Regards, Saludos



Falconi Silvio
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sun Jun 20, 2010 02:18 PM
Impresionante !!!!!!!! :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sat Jun 26, 2010 10:23 AM

Estupendo.

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

Gracias :D

Saludos,



Eduardo
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sat Jun 26, 2010 10:37 AM

Es completamente configurable :-)

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 40
Joined: Fri Jan 10, 2014 10:38 AM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 11:29 AM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 02:58 PM
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 (fw): Select all Collapse
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 40
Joined: Fri Jan 10, 2014 10:38 AM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 04:50 PM

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

Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 08:22 PM
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 (fw): Select all Collapse
oPanel4:nTopMargin      := 0  //no funciona
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 09:46 PM

Leandro,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 11:08 PM
Leandro, prueba asi

Code (fw): Select all Collapse
   oPanel3:nTop  -= 16
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Apr 14, 2020 11:35 PM

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

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Apr 15, 2020 12:32 AM
Leandro, en el caso del primero, tienes que definirlo inmediatamente después de definir el primer panel, y antes de definir el segundo
Code (fw): Select all Collapse
   oPanel1:nTop -= 10
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 40
Joined: Fri Jan 10, 2014 10:38 AM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Apr 15, 2020 07:01 AM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Apr 15, 2020 02:13 PM

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

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com