Scroll horizontal en Listbox

[Manuel Valdenebro]

¿Como puedo suprimir la barra de desplazamiento horizontal en un wBrowse, desde código?. Lo he intentado con oBrw:oHScroll:SetRange(0,0), pero no me funciona. Me dice "CLASS "NIL" has no exported method SetRange".

Desde recurso, no tengo problemas, pero si desde código.

¿Alguna ayudita?

[quique]

solo heredando o modificando la clase para cambiar nStyle

[Manuel Valdenebro]

Gracias Quique

[mmercado]

¿Como puedo suprimir la barra de desplazamiento horizontal en un wBrowse, desde código?. Lo he intentado con oBrw:oHScroll:SetRange(0,0), pero no me funciona.

Hola Manuel, prueba lo siguiente después de definir el wBrowse:

Code: Select all

nStyle := nOr( WS_CHILD, WS_VSCROLL, WS_BORDER, WS_VISIBLE, WS_TABSTOP)

// en dialogo
oLbx:nStyle := nStyle
// en window
#define GWL_STYLE -16
SetWindowLong( oLbx:hWnd, GWL_STYLE, nStyle )
 

Espero te funcione, un abrazo.

Manuel Mercado

[csincuir]

Manuel, tambien puedes probar haciendo esto antes de definir el wBrowse:

Code: Select all

//        TWBrowse():lVScroll:= .F.       //Suprime la barra vertical
        TWBrowse():lHScroll:= .F.          //Suprime la barra horizontal 
         @ 29,130 LISTBOX oLbx ;....
         ...

Saludos.

Carlos.

[Manuel Valdenebro]

Espero te funcione, un abrazo.Manuel Mercado

D.Manuel,

Ha funcionado perfectamente. Muchas gracias.

[Manuel Valdenebro]

TWBrowse():lHScroll:= .F. //Suprime la barra horizontal
@ 29,130 LISTBOX oLbx ;....
...

Carlos,

Esta solución que apriori parece mas sencilla, no me ha funcionado.
Compila bien, pero al ejecutar, la ventana no reconoce la clase y da error.

[ARCC]

Buen día para todos...

TWBrowse():lHScroll:= .F. //Suprime la barra horizontal
@ 29,130 LISTBOX oLbx ;....
...

Carlos,

Esta solución que apriori parece mas sencilla, no me ha funcionado.
Compila bien, pero al ejecutar, la ventana no reconoce la clase y da error.

Que tal Manuel y Carlos, si no recuerdo mal el lVScroll:= .F. y lHScroll:= .F. funcionan perfecto pero con el Browse de Hernan

[csincuir]

Antonio, tienes toda la razon, se me olvido mencionarle a Manuel que es para la TWBrowse de Hernan.

Saludos.

Carlos