Browse - Minigui

[Alessandro]

Como faço para controlar as teclas do browse, como se fazia no clipper.
Para evitar de se fazer um filtro.

[Hasse]

Boa tarde Alessandro.

Pelo que entendo do teu post você deseja "navegar" com TBrowse pelo arquivo DBF, é isto ?

Se positivo, veja os comandos abaixo:

Código: Selecionar todos

   IF nTecla == 5                         && Seta para cima.
      OTB:up()
   ENDIF
   IF nTecla == 24                       && Seta para baixo.
      OTB:down()
   ENDIF
   IF nTecla == 19                    && Seta para esquerda.
      IF OTB:colPos > 1
         OTB:left()
      ENDIF
   ENDIF
   IF nTecla == 4                      && Seta para direita.
      IF OTB:colPos < OTB:colCount
         OTB:right()
      ENDIF
   ENDIF
   IF nTecla == 18                   && Movimenta tela p/cima.
      OTB:pageup()
   ENDIF
   IF nTecla == 31                    && Movimenta para o
      OTB:goTop()                      && início do arquivo.
   ENDIF
   IF nTecla == 3                   && Movimenta tela p/baixo.
      OTB:pagedown()
   ENDIF
   IF nTecla == 30                     && Movimeta para o fim
      OTB:goBottom()                  && do arquivo.
   ENDIF
   IF nTecla == 2 .OR. nTecla == 23    && Movimeta bem
      OTB:panEnd()                        && para a direita.
   ENDIF
   IF nTecla == 26 .OR. nTecla == 29  && Movimeta bem
      OTB:panHome()                     && para esquerda.
   ENDIF

)

[Alessandro]

Valeu Hasse, obrigado

Outra coisa estou fazendo um programinha de teste com o xHarbour e minigui, e como deve ter visto em outra postagem, estou com problemas nos relatórios.

Será que poderia me ajudar....