Mouse em Xharbour

[clebervn]

Gostaria de um exemplo de uso de mouse em xharbour, alguém tem ??

Tks

[clebervn]

Aproveitando o ensejo lanço outra pergunta :

meus caracteres em asc, tipo qdo utilizo algum CHR, relativo aos primeiros, sempre aparece um quadrado no lugar, alguém sabe se tem q configurar algum SET ou algo do gênero

[sygecom]

Gostaria de um exemplo de uso de mouse em xharbour, alguém tem ??

Tks

Seja um pouco mais especifico, você esta usando Modo Console? esta usando alguma GUI ? O que exatamente você gostaria de fazer com o mouse.

[sygecom]

Aproveitando o ensejo lanço outra pergunta :

meus caracteres em asc, tipo qdo utilizo algum CHR, relativo aos primeiros, sempre aparece um quadrado no lugar, alguém sabe se tem q configurar algum SET ou algo do gênero

Se você esta usando alguma GUI ? se é modo console os CHR() funcionam na tela, se tiver linkando algum GT com a GTWVT ou GTWVW , ai não vai funcionar mesmo.

[clebervn]

Estou sim utilizando a lib GTWVW, ai neste caso não tem como é
a tela fica gráfica mas não tem como usar mouse ?? é isso ??

[rduraes]

Eu gostaria de um exemplo utilizando o modo console.

[software_facil]

Para saber como programar em Harbour/xHarbour no modo console usando mouse, basta utilizar algum exemplo em clipper 5.3 (sem o uso de libs gráficas), o mesmo código irá compilar e linkar normalmente.

Abraços

[sygecom]

Estou sim utilizando a lib GTWVW, ai neste caso não tem como é
a tela fica gráfica mas não tem como usar mouse ?? é isso ??

Tem sim, o Mouse funciona normal com GTWVW e GTWVT. Na verdade ele é automatico o funcionamento dele, vc esta usando algum comando para Desabilitar o mesmo, como SetMouse(.F.) ou MSetCursor(.F.) ou REQUEST HB_NOMOUSE.
Caso esteja comente essa linha.

[clebervn]

O único destes comandos que encontrei foi SETMOUSE(.T.).....

E mesmo assim continua não funcionando o mouse...

[sygecom]

Vamos forçar a barra. Coloque essas duas linhas no inicio do seu .PRG principal:
SET EVENTMASK TO INKEY_ALL
Set(39, 159)

[clebervn]

ao executar o sistema deu o seguinte erro:

INKEY_ALL variável não existe

[sygecom]

ao executar o sistema deu o seguinte erro:

INKEY_ALL variável não existe

faltou o:
#include "inkey.ch"

[clebervn]

ok, funcionou, mas de forma esquisita, porque após clicar em qq de minhas opções, mesmo q clique em outra,. vai abrindo sucessivamente a cada clique, os submenus da primeira opção que cliquei...

[sygecom]

ok, funcionou, mas de forma esquisita, porque após clicar em qq de minhas opções, mesmo q clique em outra,. vai abrindo sucessivamente a cada clique, os submenus da primeira opção que cliquei...

Não entendi. Você esta usando os Menus da Propria GTWVW ou esta usando algum Menu proprio ? aqui funciona sem problemas, tanto Menus como Sub-Menus.

[clebervn]

opa, menu próprio......

agora outro problema, como faço mouse funcionar pra duas escolhas, tipo dois botões : SIM e NÂO ?