Scroll horizontal en Listbox

Scroll horizontal en Listbox

Postby Manuel Valdenebro » 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?
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Postby quique » Mon Jun 16, 2008 3:29 pm

solo heredando o modificando la clase para cambiar nStyle
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby Manuel Valdenebro » Mon Jun 16, 2008 8:27 pm

Gracias Quique
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Re: Scroll horizontal en Listbox

Postby mmercado » 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  Expand view  RUN
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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby csincuir » Tue Jun 17, 2008 1:36 am

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

Code: Select all  Expand view  RUN
//        TWBrowse():lVScroll:= .F.       //Suprime la barra vertical
        TWBrowse():lHScroll:= .F.          //Suprime la barra horizontal
         @ 29,130 LISTBOX oLbx ;....
         ...


Saludos.

Carlos.
csincuir
 
Posts: 409
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Re: Scroll horizontal en Listbox

Postby Manuel Valdenebro » Tue Jun 17, 2008 4:44 am

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


D.Manuel,

Ha funcionado perfectamente. Muchas gracias.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Postby Manuel Valdenebro » 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.
Un saludo

Manuel
User avatar
Manuel Valdenebro
 
Posts: 706
Joined: Thu Oct 06, 2005 9:57 pm
Location: Málaga-España

Postby ARCC » 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
Saludos,

Antonio Castro
Maracaibo - Venezuela
ant_cas@yahoo.com
ARCC
 
Posts: 86
Joined: Sat Jun 24, 2006 4:27 pm
Location: Maracaibo - Zulia - Venezuela

Postby csincuir » 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
csincuir
 
Posts: 409
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 37 guests