Page 1 of 1
Desactivar Barra Vertical del TwBrowse()
Posted: Tue Jun 19, 2007 4:11 pm
by 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
Posted: Tue Jun 19, 2007 5:52 pm
by 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 )
Posted: Tue Jun 19, 2007 6:32 pm
by 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)
Posted: Tue Jun 19, 2007 6:45 pm
by Antonio Linares
Comprueba que no sea nil:
Code: Select all
if oBrwb:oVScroll != nil
oBrwb:oVScroll:SetRange(0,0)
endif
Posted: Wed Jun 20, 2007 3:22 pm
by 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