Vertical Scroll Bar da Twbrowse fica louca

[AOKISANTOS]

Amigos, usando a TWBROWSE com ARRAY, quando eu DELETO, um elemento da ARRAY, e atualizo a LISTBOX, a SCROLLBAR FICA louca.
O que devo fazer para a VERTICAL SCROLLBAR, entender a nova quantidade de elementos na array?


EX:
fdados :={{"","","","","","","","","",""}}
fheader:= {"","","","","","","","","",""}

redefine listBox oBfsu Fields Of oDld id 101 SIZES 50,40,220,80,80,100,100,100,100,100 COLORS CLR_BLACK,CLR_LGREEN
fHeader[1] := "Número"
fHeader[2] := "Ano"
fHeader[3] := "Origem"
fHeader[4] := "Recebimento"
fHeader[5] := "Remessa"
fHeader[6] := "Procedimento"
fHeader[7] := "Natureza do Delito"
fHeader[8] := "Indiciado"
fHeader[9] := "Vítima"
fHeader[10]:= "Cartório"

obfsu:aJustify := {2,2,0,2,2,0,0,0,0,0}
obfsu:aHJustify := {2,2,0,2,2,0,0,0,0,0}
obfsu:nHeaderStyle := 3
obfsu:nLineStyle := 3
obfsu:nclrbackfocus:= {|| CLR_HBLUE}
obfsu:nHeaderHeight:= 24
obfsu:nLineHeight := 22
obfsu:nfreeze := 2
obfsu:aHeaders := fHeader
obfsu:bLine := {|| { fDados[obfsu:nAt,1],fDados[obfsu:nAt,2],fDados[obfsu:nAt,3],fDados[obfsu:nAt,4],fDados[obfsu:nAt,5],fDados[obfsu:nAt,6],fDados[obfsu:nAt,7],fDados[obfsu:nAt,8],fDados[obfsu:nAt,9],fDados[obfsu:nAt,10]}}
obfsu:Refresh()
obfsu:setArray(fDados)
oDld :lHelpicon:=.F.

**********************************
static function CARREGARRAY()
**********************************
LOCAL CelAnt:=select(),COrderAnt:=ORDSETFOCUS()

fdados :={}
Select prerecebidas
dbsetorder(1)
dbseek(strzero(ofanos,4))
do while OFANOS==prerecebidas->pr_anos .and. ! eof()
aadd(fdados ,{prerecebidas->pr_nume,;
prerecebidas->pr_anos,;
prerecebidas->pr_rece,;
prerecebidas->pr_reme,;
prerecebidas->pr_cart})

dbskip()
enddo
IF LEN(FDADOS)=0
fdados :={{"","","","","","","","","",""}}
ENDIF
obfsu:SetArray(fdados)
obfsu:nAt:=(len(fdados))
obfsu:refresh()
obfsu:DEFAULT() //DEVO USAR?
SELECT(CELANT)
ORDSETFOCUS(CORDERANT)
RETURN(.T.)


FIQUEM COM DEUS
AOKISANTOS

[Antonio Linares]

Prueba con

obfsu:SetArray(fdados)
obfsu:oVScroll:SetRange( 1, Len( fdados ) )

[AOKISANTOS]

Antonio, fiz como você pediu, mais assim o FOCO volta para o primeiro elemento. eu preciso sempre mostrar o ultimo elemento da ARRAY.

Para posicionar no ultimo elemento estou fazendo assim:

obfsu:nAt:=(len(fdados))

Devo fazer assim mesmo?