PC Toledo

Caros colegas...

Estou tendo um probleminha...

O freeze do Tbrowse simplesmente não funciona quando usando a Visual Lib. Alguém já esbarrou neste problema?

uso o seguinte:

aEvento := WaitState() // nessa linha eh aguardado qual evento eh
acionado ou pressinamento de uma tecla ou
clique do mouse
Do Case
Case aEvento:wsType == WAIT_KEYPRESS // se o evento for o
pressionamento de uma
tecla vamos ver q tecla
sera e o q fazer
*** oTbr --> e o objeto do tbrowse
Do Case
Case aEvento:wsKey == 24
oTbr:down() // seta para baixo
Case aEvento:wsKey == 05
Otbr:up() // seta para cima
....
.....
......
Case aEvento:aTecla == K_RIGHT
oTbr:right() ; Otbr:Freeze:=(N) --> aqui o numero de
colunas a congelar
Endcase
....
...
.....
Endcase


espero ter ajudado

aEvento := WaitState() // nessa linha eh aguardado qual evento eh acionado ou pressinamento de uma tecla ou clique do mouse
Do Case
Case aEvento:wsType == WAIT_KEYPRESS // se o evento for o pressionamento de uma tecla vamos ver q tecla sera e o q fazer
*** oTbr --> e o objeto do tbrowse
Do Case
Case aEvento:wsKey == 24
oTbr:down() // seta para baixo
Case aEvento:wsKey == 05
Otbr:up() // seta para cima
....
.....
......
Case aEvento:aTecla == K_RIGHT
oTbr:right() ; Otbr:Freeze:= 3 // aqui o numero de
colunas a congelar
Endcase
....
...
.....
Endcase

Caro Clauber...

Obrigado pelo seu empenho, mas eu sei como usar o comando Freeze do Tbrowse... O que eu perguntei é se alguém já tinha esbarrado no problema do mesmo com a biblioteca Visual Lib, que pelo que pude constatar, não funciona.
Tenho dois trechos de programa, um com e um sem a Visual Lib. Quando compilo com a Visual Lib, não funciona o Freeze, quando compilo sem, funciona.

Entendeu?

Por isso perguntei se alguém teve esse problema (Alguém que use também a Visual Lib, pois se não usar não adianta nada...)

Grato assim mesmo.

Um Clip Abraço