Pessoal
Já pesquisei encontrei nada que de certo...
Para eu Habilitar (ativar) o mouse uso
SET( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
Porem em determinado momento do sistema preciso DESABILITAR o Mouse
alguém saberia me informar a função ???
Desabilitar mouse harbour 3.2.0
Moderador: Moderadores
8 Mensagens • Página 1 de 1
Desabilitar mouse harbour 3.2.0
por caputo » 16 Jul 2019 21:59
-
caputo Usuário NÃvel 1 
- Mensagens: 20
- Data de registro: 29 Out 2007 07:39
- Cidade/Estado: OlÃmpia/SP
- Curtiu: 1 vez
- Mens.Curtidas: 0 vez
Desabilitar mouse harbour 3.2.0
por JoséQuintas » 16 Jul 2019 22:11
caputo escreveu:Porem em determinado momento do sistema preciso DESABILITAR o Mouse
alguém saberia me informar a função ???
Por acaso é nos GETs?
Alterar a GETSYS limitando a um único campo...
Ou.... depende exatamente do que quer fazer.
Pode ser SET KEY, pode ser com o auxÃlio de InkeyFilter, pode ser trocando por rotina própria aonde precisa desabibilitar o mouse, pode ser o próprio _SET_EVENTMASK usando umas das opções que são apresentadas no inkey.ch.
Vai ter que analisar seu problema, e qual solução se encaixaria melhor.
E testar se resolve.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master 
- Mensagens: 18161
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
Desabilitar mouse harbour 3.2.0
por JoséQuintas » 16 Jul 2019 23:37
só pra "ilustrar", mas o ideal é olhar mesmo o arquivo inkey.ch, porque pode variar com o tempo, ou com a versão.
À primeira vista, seria o INKEY_KEYBOARD
À primeira vista, seria o INKEY_KEYBOARD
#define INKEY_MOVE 1
#define INKEY_LDOWN 2
#define INKEY_LUP 4
#define INKEY_RDOWN 8
#define INKEY_RUP 16
#define INKEY_MMIDDLE 32 /* Harbour extension middle button mask */
#define INKEY_MWHEEL 64 /* Harbour extension mouse wheel mask */
#define INKEY_KEYBOARD 128
#define INKEY_ALL ( INKEY_KEYBOARD + INKEY_MOVE + INKEY_LDOWN + INKEY_LUP + INKEY_RDOWN + INKEY_RUP + INKEY_MMIDDLE + INKEY_MWHEEL )
#define HB_INKEY_RAW 256 /* Harbour extension */
#define HB_INKEY_GTEVENT 1024 /* Harbour extension */
#define HB_INKEY_EXT 2048 /* Harbour extension */
#define HB_INKEY_ALL ( INKEY_ALL + HB_INKEY_GTEVENT )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master - Mensagens: 18161
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
Desabilitar mouse harbour 3.2.0
por caputo » 17 Jul 2019 17:39
Opa Maravilha,
José Quintas, muito obrigado pelas dicas acima, estão sendo muito uteis !
É possÃvel eu colocar o ponteiro do mouse em uma determinada posição através de um comando ???
Tentei desta forma mais não deu certo
MSetPos(0,0)
Oque preciso seria que o Ponteiro do Mouse fosse para esta posição Linha 0 Coluna 0
outra detalhe
após o Click tenho o retorno do MRow() e MCol()
ai executo a opção correspondente OK
ai seria possÃvel eu mudar o valor de MRow() e Mcol() por exemplo para MRow(0) e Mcol(0) (zerar os dois)
José Quintas, muito obrigado pelas dicas acima, estão sendo muito uteis !
É possÃvel eu colocar o ponteiro do mouse em uma determinada posição através de um comando ???
Tentei desta forma mais não deu certo
MSetPos(0,0)
Oque preciso seria que o Ponteiro do Mouse fosse para esta posição Linha 0 Coluna 0
outra detalhe
após o Click tenho o retorno do MRow() e MCol()
ai executo a opção correspondente OK
ai seria possÃvel eu mudar o valor de MRow() e Mcol() por exemplo para MRow(0) e Mcol(0) (zerar os dois)
-
caputo Usuário NÃvel 1 - Mensagens: 20
- Data de registro: 29 Out 2007 07:39
- Cidade/Estado: OlÃmpia/SP
- Curtiu: 1 vez
- Mens.Curtidas: 0 vez
Desabilitar mouse harbour 3.2.0
por JoséQuintas » 17 Jul 2019 17:47
caputo escreveu:Tentei desta forma mais não deu certoMSetPos(0,0)
Esqueceu que o Windows tem total controle do mouse?
Por mais que faça milagres... o Windows precisa do mouse funcionando, e na posição que ele quiser.
Fico até confuso porque poderia precisar uma coisa dessas.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
JoséQuintas Membro Master - Mensagens: 18161
- Data de registro: 26 Fev 2007 11:59
- Cidade/Estado: São Paulo-SP
- Curtiu: 15 vezes
- Mens.Curtidas: 1215 vezes
Desabilitar mouse harbour 3.2.0
por caputo » 17 Jul 2019 18:43
JoséQuintas escreveu:
Esqueceu que o Windows tem total controle do mouse?
Por mais que faça milagres... o Windows precisa do mouse funcionando, e na posição que ele quiser.
Fico até confuso porque poderia precisar uma coisa dessas.
Você esta correto amigo !!!!
Acabei de resolver meus problemas com as primeiras dicas que vc passou :)) :)) :)) :))
Agora vou poder voltar a dormir melhor #-) #-)
Obrigaduuuuuuu de coração mesmo !!!!
-
caputo Usuário NÃvel 1 - Mensagens: 20
- Data de registro: 29 Out 2007 07:39
- Cidade/Estado: OlÃmpia/SP
- Curtiu: 1 vez
- Mens.Curtidas: 0 vez
Desabilitar mouse harbour 3.2.0
por carlaoonline » 01 Mar 2021 10:24
Para posicionar o mouse em um local especÃfico o comando msetpos() não funcionou comigo. Passei a usar esse comando e aà funciona perfeitamente:
/* Force mouse pointer right below the Harbour label */
Wvt_SetMousePos( 2, 40 ) // Linha,coluna da tela do programa.
Peguei esse comendo no fonte abaixo, está na linha 124
C:\hmg.3.4.4\HARBOUR\contrib\gtwvg\tests\demowvg.prg
/* Force mouse pointer right below the Harbour label */
Wvt_SetMousePos( 2, 40 ) // Linha,coluna da tela do programa.
Peguei esse comendo no fonte abaixo, está na linha 124
C:\hmg.3.4.4\HARBOUR\contrib\gtwvg\tests\demowvg.prg
-
carlaoonline Usuário NÃvel 3 
- Mensagens: 190
- Data de registro: 24 Ago 2014 22:38
- Cidade/Estado: Porto Alegre-RS
- Curtiu: 73 vezes
- Mens.Curtidas: 22 vezes
Desabilitar mouse harbour 3.2.0
por Kapiaba » 01 Mar 2021 21:34
-
Kapiaba Colaborador 
- Mensagens: 1766
- Data de registro: 07 Dez 2012 15:14
- Cidade/Estado: São Paulo
- Curtiu: 311 vezes
- Mens.Curtidas: 119 vezes
Ver tópicos ativos •
8 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
