Erro na hwgui (xhb 0.99.70)

[marcos.gurupi]

Quando uso as teclas para cima ou para baixo em um browse estah aparecendo o
seguinte erro:

*DETALHE: Se eu apenas teclo a seta (para ou para baixo) nao acontece o
erro, ele aparece quando eu pressiono o teclado causando uma repeticao.
********************************
Error BASE/1132 Bound error: array access
Called from hbrowse.prg->HBROWSE:LINEOUT(975)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(1011)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(973)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from lanval.prg->(b)LANVAL(143)
Called from hbrowse.prg->HBROWSE:LINEOUT(948)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(995)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from ->FLDSTR(1783)
Called from hbrowse.prg->HBROWSE:LINEOUT(995)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(155)
Called from ->LANVAL(168)
Called from ->FINI(50)
Called from ->INICIO(408)
Called from ->MAIN(370)

HwGUI 2.16 xHarbour build 0.99.70 Intl. (SimpLex)
Date:18/05/2008
Time:01:32:45
*********************************************

[marcos.gurupi]

Quando uso as teclas para cima ou para baixo em um browse estah aparecendo o
seguinte erro:

*DETALHE: Se eu apenas teclo a seta (para ou para baixo) nao acontece o
erro, ele aparece quando eu pressiono o teclado causando uma repeticao.
*OUTRO DETALHE IMPORTANTE: O erro soh ocorre com o sistema com gtwvt, gtwvw e hwgui junto, eu tenho um sistema somente com hwgui e o erro n ocorre.
********************************
Error BASE/1132 Bound error: array access
Called from hbrowse.prg->HBROWSE:LINEOUT(975)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(1011)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(973)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from lanval.prg->(b)LANVAL(143)
Called from hbrowse.prg->HBROWSE:LINEOUT(948)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from hbrowse.prg->HBROWSE:LINEOUT(995)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from ->FLDSTR(1783)
Called from hbrowse.prg->HBROWSE:LINEOUT(995)
Called from hbrowse.prg->HBROWSE:PAINT(718)
Called from hbrowse.prg->HBROWSE:ONEVENT(282)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from hdialog.prg->HDIALOG:ACTIVATE(155)
Called from ->LANVAL(168)
Called from ->FINI(50)
Called from ->INICIO(408)
Called from ->MAIN(370)

HwGUI 2.16 xHarbour build 0.99.70 Intl. (SimpLex)
Date:18/05/2008
Time:01:32:45
*********************************************

[sygecom]

Olá Marcos,
Eu tinha sempre esse mesmo problema quando uso GTWVT+HWGUI misturado, no meu caso resolvi colocando um pequeno travamento do teclado entre o inicio da rotina do browse até o momento que ela vai aparecer por completo na tela, isso as vez é frações do segundos, mas para os usuarios apresatinhos isso pode fazer que fica dando um série de Enter antes de abrir a tela.
Se quiser posto exemplos.

[marcos.gurupi]

Claro! Post o exemplo por gentileza.

[sygecom]

Desculpa a demora...

Segue abaixo o exemplo:

Código: Selecionar todos

******************
Function PESQBOL
******************
TRAVATEC(.T.)  // TRAVA TODO O TECLADO- NA VERSÃO 9970 TINHA QUE FAZER ISSO
USE entrada alias entrada READONLY
DBSETORDER(2)
ORDScope(0,1)
ORDScope(1,999999)
dbsetfilter( {|| ENTRADA->NUMBOL > 0 .AND. ENTRADA->VALORPG=0 .AND. ENTRADA->SITUACAO="A" .AND. ENTRADA->TPPSG="A" }, "ENTRADA->NUMBOL > 0 .AND. ENTRADA->VALORPG=0 .AND. ENTRADA->SITUACAO='A' .AND. ENTRADA->TPPSG='A'" )

DBGOBOTTOM()
DBSKIP(-30)

Pesq_Bol_Ent()
RETURN

******************************
Function Pesq_Bol_Ent
******************************
Local oFrm, oFont
Private gPes,vPes:="",keyAnt:=0
PRIVATE oIcon := HIcon():AddResource("ICON_1")

TRAVATEC(.F.)  // LIBERA O TECLADO

PREPARE FONT oFontBtn NAME "Arial" WIDTH 0 HEIGHT -14 charset 255
        INIT DIALOG oFrm TITLE "Pesquisa" CLIPPER FONT oFontBtn;
        AT 0,0;
        SIZE GETDESKTOPWIDTH(),GETDESKTOPHEIGHT()-28 ;
        ICON oIcon ;
        STYLE WS_DLGFRAME + WS_SYSMENU + DS_CENTER

@ 10,40 BROWSE oBrw DATABASE OF oFrm SIZE GETDESKTOPWIDTH()-30, GETDESKTOPHEIGHT()-250  ;
        STYLE  WS_VSCROLL + WS_HSCROLL;
        MULTISELECT;
        ON CLICK {|o,key| BrowseBolEnt(o, key ) } ;
        ON POSCHANGE {|| SetFocus(oBrw:handle ) } 

....RESTANTE DO BROWSE
....RESTANTE DO BROWSE
....RESTANTE DO BROWSE

Abraços
Leonardo Machado