FiveTech Software tech support forums

Posted: **Mon Jun 16, 2008 10:07 am**

¿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?

Posted: **Mon Jun 16, 2008 3:29 pm**

solo heredando o modificando la clase para cambiar nStyle

Posted: **Mon Jun 16, 2008 8:27 pm**

Gracias Quique

Posted: **Mon Jun 16, 2008 10:29 pm**

Manuel Valdenebro wrote:¿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

Posted: **Tue Jun 17, 2008 1:36 am**

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.

Posted: **Tue Jun 17, 2008 4:44 am**

mmercado wrote:Espero te funcione, un abrazo.Manuel Mercado

D.Manuel,

Ha funcionado perfectamente. Muchas gracias.

Posted: **Tue Jun 17, 2008 4:46 am**

csincuir wrote: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.

Posted: **Tue Jun 17, 2008 12:36 pm**

Buen día para todos...

Manuel Valdenebro wrote:
csincuir wrote: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

Posted: **Tue Jun 17, 2008 1:22 pm**

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

Saludos.

Carlos

FiveTech Software tech support forums

Scroll horizontal en Listbox

Scroll horizontal en Listbox

Re: Scroll horizontal en Listbox

Re: Scroll horizontal en Listbox