Migrei p/ Harbour 2.1 e quero usar o mouse

[ricardo-barros]

Ao compilar meu sistema no Harbour 2.1 modo console vi que o ponteiro do mouse se move mas os cliques estão inoperantes. Como eu uso o mouse numa tela com vários @ say ... get para mudar o foco para qualquer um deles? E porque o mouse não aciona os menus?

[Itamar M. Lins Jr.]

Ola!
Coloca um PEQUENO exemplo demonstrando o problema, para que todos possam ajudar.

Saudações,
Itamar M. Lins Jr.

[ricardo-barros]

Código: Selecionar todos

Proc Main 
X := Y := 0
Cls
Do While .T.
   @ 0,0 Prompt " MOSTRAR DADOS "
   @ 1,0 Prompt " ALTERAR DADOS "
   @ 2,0 Prompt " SAIR          "
   Menu to Op
   If Op = 1
      @ 10, 0 Say X
      @ 12, 0 Say Y
   ElseIf Op = 2
      @ 10, 0 Get X
      @ 12, 0 Get Y
      Read
   Else
      @ 14, 0 Say "TCHAU!"
      Exit
   Endif
Enddo

Eu consigo mover o mouse para as opções do menu mas quando clico nelas nada acontece.
Aí eu uso as setas, seleciono a opção 2, vejo os gets mas o único jeito de navegar entre eles é usando o teclado.
O que eu faço para o mouse obedecer?

[Itamar M. Lins Jr.]

Tenta ai...

Código: Selecionar todos

#include "inkey.ch" 
Function Main
   X := Y := 0
   Cls
   SET EVENTMASK TO INKEY_ALL
   Do While .T.
      @ 0,0 Prompt " MOSTRAR DADOS "
      @ 1,0 Prompt " ALTERAR DADOS "
      @ 2,0 Prompt " SAIR          "
      Menu to Op
      If Op = 1
         @ 10, 0 Say X
         @ 12, 0 Say Y
      ElseIf Op = 2
         @ 10, 0 Get X
         @ 12, 0 Get Y
         Read
      Else
         @ 14, 0 Say "TCHAU!"
         Exit
      Endif
   Enddo

Saudações,
Itamar M. Lins Jr.

[ricardo-barros]

Uau, como é simples!

Muito obrigado Itamar !

[ricardo-barros]

Isto pode ser util a quem usa o mouse no modo console:

A tela pisca levemente quando movemos o mouse, especialmente quando se usa tela cheia em Windows 7. Para evitar isso nao usem o INKEY_ALL. Façam assim:

Set Eventmask to K_LBUTTONDOWN

Ou:

Set Eventmask to 1002

(é a mesma coisa).

[Netavin]

Olá amigos do fórum!

Incluí a linha "SET EVENTMASK TO INKEY_ALL para habilitar o uso do mouse. Deu certo.
Porém, ao fazer uma consulta, por exemplo, no campo de entrada de dados aparece o caractere "ù".
Haveria algo a ser acrescentado ao comando citado?
Grato.

Netavin

[lugab]

Ricardo Barros, meu prog. melhorou com o "1002"

Agora, tem como mudar o ponteiro daquele quadradão pra algum outro estilo ?

[Netavin]

Ok.
Problema resolvido tambem com o "1002".

Abraço a todos.

Netavin

[ricardo-barros]

Mesmo usando o modo console é possível trabalhar em tela gráfica. Assim o ponteiro do mouse fica em forma de seta. Para isso siga as instruções que eu dei como resposta na página 2 do seguinte tópico:
https://pctoledo.org/forum/viewto ... 5&start=15

[lugab]

Obrigado, Ricardo Barros. pela Ótima dica que hei de experimentar..

Se tiver mais embelezamentos desse tipo, manda pra nós, pq são muito feios e com cara de atrasados, esses "exe" de programas compilado no modo janela ...

Grato,