mouse ativar/desativar

[paiva_dbdc]

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

[Toledo]

Paiva, tenta este comando:

Código: Selecionar todos

SET(39,128) //Desativa o Mouse

SET(39,255) //Ativa o Mouse

Abraços,

[alxsts]

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

[JoséQuintas]

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.

[paiva_dbdc]

MUITO obrigado

SET(39,255) //Ativa o Mouse


funcionou


Obrigado

[alxsts]

Olá!

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.

Código: Selecionar todos

#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()

SET(39,255) //Ativa o Mouse
funcionou

Como você fez? Está usando GT?

[JoséQuintas]

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