mouse ativar/desativar

por **paiva_dbdc** » 25 Out 2018 16:55

Boa

o mouse esta ativo no sistema.

quando vou INcluir um registro, desativo o mouse com set(39,xxx) pelo que vi qq valor de xx ele desativa o mouse

apos incluir uso set(39,159) para ATIVAR o mouse ++++ ele NAo esta sendo ativado

qual seria o comando correto para ativar... ???

INTERESSANTE se saio do prg e chamo ele de novo (SEM sair do sistema) o Mouse volta a ser ATIVO

ja esquentei a cabeça para entender e nada

alguem teria um comando que funcione para ATIVAR o mouse ?

uso XHB + wvw

desde ja agradeco

PAiva

por **Toledo** » 25 Out 2018 17:05

Paiva, tenta este comando:

SET(39,128) //Desativa o Mouse

SET(39,255) //Ativa o Mouse

Abraços,

por **alxsts** » 25 Out 2018 17:39

Olá!

Existem funções próprias para tratamento do mouse. Estas abaixo existem desde o Clipper 5.3 e funcionam tanto no Harbour quanto no xHarbour:

MPresent() --> Retorna verdadeiro se existir um mouse instalado ou falso em caso contrário

MShow() --> Exibe o ponteiro do mouse

MHide() --> Oculta o ponteiro do mouse

por **JoséQuintas** » 25 Out 2018 17:51

Eu nem mexo com mouse, prefiro ele sempre ativo.
Isso se refere a apenas esconder o desenho do cursor, ou algo mais?
Lembre-se que o Windows usa o mouse, então o default é aparecendo.

Se for referente a travar a janela ao clicar com o mouse, a solução é outra, acabei de postar sobre isso, por coincidência.

por **paiva_dbdc** » 25 Out 2018 17:52

MUITO obrigado

SET(39,255) //Ativa o Mouse

funcionou

Obrigado

por **alxsts** » 25 Out 2018 18:15

Olá!

JoséQuintas escreveu:Lembre-se que o Windows usa o mouse, então o default é aparecendo.

É... o Windows comanda. Estas funções devem funcionar apenas na antiga tela cheia do DOS. Não sei como se comportariam com alguma GT. Nem o comando Set(...) funcionou na janela do CMD.

#include "box.ch"
Proc Main

   SetMode(25,80)
   CLS

   DispBox( 0,0,MaxRow(), MaxCol(), B_SINGLE, + " " )

   If MPresent()
      Wait "Mouse instalado. Pressione algo..."
   Endif

   Wait " Pressione algo para esconder o ponteiro do mouse"
   MHide()

   Wait " Pressione algo para mostrar o ponteiro do mouse"
   MShow()

   SET(39,255) //Ativa o Mouse
   Wait " Pressione algo "

   __Quit()

paiva_dbdc escreveu:SET(39,255) //Ativa o Mouse
funcionou

Como você fez? Está usando GT?

por **JoséQuintas** » 25 Out 2018 19:30

No primeiro post ele mencionou xHarbour + gtwvw.
gtwvw acaba sendo janela Windows.

Quem está online