Página 1 de 1
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 11 Jul 2011 04:26
por 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?
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 11 Jul 2011 09:29
por Itamar M. Lins Jr.
Ola!
Coloca um PEQUENO exemplo demonstrando o problema, para que todos possam ajudar.
Saudações,
Itamar M. Lins Jr.
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 11 Jul 2011 14:53
por 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?
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 11 Jul 2011 15:13
por 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.
Migrei p/ Harbour 2.1 e ESTOU USANDO O MOUSE!!!
Enviado: 11 Jul 2011 15:56
por ricardo-barros
Uau, como é simples!
Muito obrigado Itamar !
Para evitar que a tela pisque ao mover o mouse
Enviado: 19 Jul 2011 20:54
por 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).
Set Eventmask inkey_all
Enviado: 26 Out 2011 15:48
por 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
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 26 Out 2011 17:04
por lugab
Ricardo Barros, meu prog. melhorou com o "1002"
Agora, tem como mudar o ponteiro daquele quadradão pra algum outro estilo ?
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 27 Out 2011 12:51
por Netavin
Ok.
Problema resolvido tambem com o "1002".
Abraço a todos.
Netavin
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 27 Out 2011 20:49
por 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
Migrei p/ Harbour 2.1 e quero usar o mouse
Enviado: 28 Out 2011 01:06
por 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,