VScroll do browse não Esta mostrando a posição Real???

[Cezar]

Boa Noite,

Qual o modo correto de usar o VScroll do Browse??
( exemplo do codigo abaixo )

Na area do browse cabem 10 linhas.
O arquivo tem 16 registros ( indexados ).

1.)
Quando inicio a Dialog/Browse o botão do VScroll esta na linha 1
do browse!

2.)
Clicando na seta pra baixo até o fim do arquivo o botão do
Scroll fica posicionado na linha 10 indicando fim do arquivo.

3.)
Subindo de volta clicando na seta pra cima até o inicio do arquivo o Botão do Scroll Não volta para a linha 1 indicando que esta no inicio do arquivo !

Fica posicionado +/- na linha 5 do browse quando pela logica deveria estar na linha 1.

Grato,
v_cez@...


( Estou usando assim )

SELECT Clientes
Clientes->( OrdSetFocus('I02') )
Clientes->( DbGoTop() )

@ 005,005 BROWSE oBrowse DATABASE OF oDlg ;
SIZE 590,300 ;
FONT oFontBrw ;
STYLE WS_VSCROLL + WS_HSCROLL ;
ON CLICK {|o,key| BrowseKey(o,key) }

ADD COLUMN FieldBlock('CodCli') TO oBrowse HEADER 'Codigo'
EDITABLE
ADD COLUMN FieldBlock('Nome') TO oBrowse HEADER 'Nome'
EDITABLE LENGTH 30
ADD COLUMN FieldBlock('CNPJ') TO oBrowse HEADER 'CNPJ'
EDITABLE
ADD COLUMN FieldBlock('Endereco') TO oBrowse HEADER 'Endereco'
EDITABLE

oBrowse:Refresh(.T.)
oBrowse:bScrollPos := {|o,n,lEof,nPos|VScrollPos(o,n,lEof,nPos)}
oBrowse:lEsc := .T.[/size][/size]

++++++++++++++++++++++

[sygecom]

Olá cesar,
Conforme o Luiz lhe respondeu no grupo da Hwgui, isso já foi corrigido no CVS da HWGUI, caso tenha ulguma duvida em como baixar e compilar a HWGUI da CVS, é só postar.

[Cezar]

Boa noite,

O que estava acontecendo era que no browse cabia 10 linhas o arquivo 16 regs validos.

Só que no arquivo tinha 40 registros com 24 deletados dai, tirando o indice deixando na ordem natural funcionava beleza.
Dei um pack e ficou tudo normal, não voltei a testar.

Grato,
v_cez@yahoo.com.br

[Luciano Bonfim]

usa set delete on