HScroll de XBrowse en 1 Columna

[cuatecatl82]

Saludos y Buenas tardes al foro..

Necesito de su valiosa asesoria, tengo un detallito que no puedo solucionar con XBrowse y SetTree(), tomando como ejemplo el archivo xbrwdisk.prg para tener un árbol de directorios, lo pase a mi proyecto, el scroll vertical sube y baja con forme abro la estructura del disco, funciona excelente, más no así el Scroll Horizontal, ya que no puedo desplazarme con el para poder ver lo demás del árbol de direcorios que esta oculto delimitado por el tamaño del browse, más no de la columna: creo que la imagen que les doy les dará una idea de lo que falla:



En el ejemplo xbrwdisk.prg si se puede pero solo entre columnas "Bytes", "Date","Time" y "Attrib", en mi caso quite estas 4 columnas pues no las necesito, mi duda es como hacer que el scroll funcione pero para recorrer el ancho de la columna, sigo investigando y probando, si alguien tiene una idea se lo voy a agradecer bastante..

Gracias..

[cuatecatl82]

Alguna sugerencia no doy ??.

[cuatecatl82]

Maestro Antonio o Daniel Garcia-Gil, perdón que insista, es posible desde xbrowse..?

En este ultimo proyecto mi dolor decabeza han sido los scrolls..

Saludos..

[nageswaragunupudi]

#1. Purpose of Horizontal scroll is to move from column to column but not slide the contents of the column.
Note: Horizontal scroll bar does not serve any purpose in a single column browse and is unnecessary.

#2. Programmer needs to specify enough width for the browse (and column) to display the contents fully.

[cuatecatl82]

Saludos a todos:

He probado de varias maneras sin resultado:

integrando una barra de scroll para "Mover el browse"

Code: Select all  Expand view  RUN

@ 471, 00 SCROLLBAR oVScr  Pixel OF oBrw HORIZONTAL SIZE 190, 20 RANGE 0,10 ON up(oBrw:Goleft()) ON down(oBrw:GoRight())

tambien he intentado detectar si la tecla VK_LEFT o VK_RIGHT han sido presionadas, pero no las detecta

Code: Select all  Expand view  RUN

oBrw:bKeyDown   = { |nKey| MSGInfo( nKey ) }

Yo pienso e insisto que si se puede, teniendo el codigo fuente de la clase xbrowse, pero no doy por donde, ojala alguien que haya solucionado esto me heche una mano, esto le daria más potencia a la clase XBrowse..

Maestro Antonio, alguna sugerencia... Se me agotaron las ideas..

Sin resultados,

[Marcelo Roggeri]

Hola proba de dejar las columnas que borraste y ocultalas

Code: Select all  Expand view  RUN

  oBrw:aCols[2]:lHide = .T.
   oBrw:aCols[3]:lHide = .T.
   oBrw:aCols[4]:lHide = .T.
   oBrw:aCols[5]:lHide = .T.
 

Saludos
Marcelo

[cuatecatl82]

Marcelo:

Gracias por la idea , ya la habia probado y aún así no funciona, de hecho lo unico que logre es que la barra del vscroll se mueva a los ladoscon las flechas demovimiento, más no así el contenido del xbrowse, estoy tratando de entender la clase y de talvez modificar un poco, ya que no veo otra opción...

Saludos..