O teste do tbrowse de novo.... com traços...
A rotina para os traços.
FOR nCont = nTop + 5 TO nBottom
oControl := wvgTstRectangle():New()
oControl:Create( , , { -nCont, 0 }, { 1, -MaxCol() - 1 } )
oControl:SetColorBG( WIN_RGB( 75, 75, 75 ) )
AAdd( aTraceList, oControl )
NEXT
Notem o seguinte:
São janelas sobre a janela WVG, só que as janelas tem o tamanho de um traço, 1 pixel.
Como são janelas, o aplicativo não perde tempo repintando nada, continua com a velocidade de sempre.
Isso é diferente dos exemplos da WVG, que tem o tbrowse usando WVT_Paint().
WVT_Paint() é uma rotina executada em loop pra ficar repintando a tela, portanto, o aplicativo precisa repintar, e tem mais processamento.
Certo... errado... sei lá... funciona.
Detalhe:
se no tbrowse der um ENTER pra abrir uma tela de digitação
Se essa tela for uma wvgCrt() ok, ai ser uma janela nova.
Se for a mesma janela do tbrowse, precisa esconder os traços... e provavelmente os botões também.
Por enquanto só fazendo testes, usei uma cor mais leve para os traços, para não ficar poluÃdo demais.