Página 2 de 2
AJUDA - Estou apanhando do TBrowse
Enviado: 22 Mai 2016 11:04
por JoséQuintas
O fonte acima é insuficiente pra saber.
Se for Clipper 5.2, não tem mouse mesmo, a não ser com lib externa.
Se for Clipper 5.3, ele já possui o tratamento de mouse, mas é necessário algo mais na linha acima, ou antes dela.
Uma vez detectado o mouse, o click do mouse vai ser igual a apertar uma tecla.
Lógico... vai depender da posição do click, mas a primeira coisa é conseguir detectar o click.
AJUDA - Estou apanhando do TBrowse
Enviado: 22 Mai 2016 11:11
por JoséQuintas
Outro comentário sobre o fonte, pra "despoluir" o tbrowse:
Código: Selecionar todos
DO WHILE .T.
...
Case nKey == K_ESC
DbCloseArea()
RestScreen(00, 00, 24, 79, mTelaCheia)
Exit
...
ENDDO
Fechar arquivo e restaurar tela não faz parte da rotina de tbrowse, então deixe fora dela
Código: Selecionar todos
DO WHILE .T.
...
Case nKey == K_ESC
Exit
...
ENDDO
DbCloseArea()
RestScreen(00, 00, 24, 79, mTelaCheia)
Esses detalhes vão ajudando a deixar o fonte mais simples e fácil de enxergar.