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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Desactivar Barra Vertical del TwBrowse()
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 )
@ 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) 
Comprueba que no sea nil:
if oBrwb:oVScroll != nil
oBrwb:oVScroll:SetRange(0,0)
endifPues 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