Desactivar Barra Vertical del TwBrowse()

[jacgsoft]

Es posible desactivar la barra Vertical de desplazamiento del Twbrowse()
para que no me permita moverme en Grupos de registros, Solo quiero moverme de 1 en 1 nada mas.

Gracias de antemano


Jaime

[Antonio Linares]

Jaime,

Si estás creando el browse desde recursos, no uses el estilo WS_VSCROLL en el recurso

Si lo estas creando desde código fuente, prueba a hacer:

oBrowse:oVScroll:SetRange( 0, 0 )

[jacgsoft]

@ 01,01 ListBox oBrwb Fields H1->Fh01_his,H1->Fh01_pap, ;
H1->Fh01_pam,H1->Fh01_pnm,Str(H1->Fh01_carne,10) ;
Header 'Historia','Apellido Paterno','Apellido Materno', ;
'Nombre','Nro.Multicl' ;
Size 292,130 On DblClick Get_data(oDlgb,@_Jhis,@_Sva_)

oBrwb:oVScroll:SetRange(0,0)


Lo probe y salio error:

Error description: Error BASE/1004 No exported
method: SETRANGE

Called from: => SETRANGE(0)

[Antonio Linares]

Comprueba que no sea nil:

Code: Select all  Expand view

if oBrwb:oVScroll != nil
   oBrwb:oVScroll:SetRange(0,0)
endif


[jacgsoft]

Pues probe

@ 01,01 ListBox oBrwb Fields H1->Fh01_his,H1->Fh01_pap, ;
H1->Fh01_pam,H1->Fh01_pnm,Str(H1->Fh01_carne,10) ;
Header 'Historia','Apellido Paterno','Apellido Materno', ;
'Nombre','Nro.Multicl' ;
Size 292,130 On DblClick Get_data(oDlgb,@_Jhis,@_Sva_)

if oBrwb:oVScroll != nil
oBrwb:oVScroll:SetRange(0,0)
endif



y oBrwb:oVscroll retorna NIL