PC Toledo

FUNCTION MAIN
COR1:= ´"W/N"
SETCOLOR(COR1)
CLEAR SCREEN
SETMOUSE(.F.)
MSETCURSOR(.F.)
WSETMOUSE(.F.)
MHIDE()
WAIT 'P1'
RETURN(NIL)

NAO MFUNCIONA PORQUE
COMPATIBILIDADE OU FALTA DE LIB´S
(APARECE RETANGULO PRETO NA TELA, MOUSE MOVE TAL OBJETO)

------------
OBJETIVO ESTA COM TELA TODA SEM O MOUSE, SO USANDO O TECLADO,
(ESTOU USANDO XP)
-----------

Não funciona pq vc desabilitou o Mouse..
MHIDE() //desabilita o mouse !!!

a intencao e esta mesma desabilitar o mouser
mas nenhuma destas funcoes nao funciona porue ??

so quero funciona via teclado - mas o mouser continua ativo PORQUE

CASO VOCE POSSA CORRIGIR ASSIMA O EXEMPLO FICO GRATO
OU OUTRO BEM BANAL SERVIR BASE DE DESATIVACAO FICO GRATO

ESTOU CONVERTENDO TUDO PARA XHARBUR ESTA DANDO CERTO
SO QUE SO USO TECLADO

MOUSE := SET(39) // Pega o valor padrao que seve ser "mouse desabilitado"

Set(39, 159) // Habilita eventos do mouse, já sabemos que é 159, certo?

SET(39, MOUSE) // Desabilita o mouse.
======== NAO ENTENDI ==== ISSO FUNCIONA NO MEU EXEMPLO

O que vc não entendeu ?

pelo simples comando
function main
CLS
MHIDE()
RETURN

JA NAO DEVERIA NORMALMENTE JA DESATIVAR O MOUSER. POIS NAO ESTA DESATIVANDO
----------------------

*** FIZ UM OUTRO TIPO
FUNCTIO MAIN
CLS
SHOWCURSOR(0)
RETURN(NIL)
----------------- COLOQUEI A TAL WHAT32.LIB DENTRO DO TESTE.BC

APARECEU ERRO DE _HB_STACK

ISSO TUDO PARA TENTAR DESATIVAR O MOUSE

--------- EUTENHO O TEU SAGI.BC E SAGI.PRG -- REALMENTE E SO UM TESTE DE DESATIVACAO - TA FALTANDO O QUE

FINALMENTE DESCOBRI

FUNCTION MAIN()
REQUEST HB_NOMOUSE
CLS
WAIT ´P1´
RETURN(NIL)

========= ACHEI LEGAL SO PARA USO DE TECLADO ***

MAS FICAMOS NA TENTATIVA DE FAZER UM COM

SHOWCURSOR(0) COM A TAL -- WHAT32.LIB

AGRADECO MANDAR ALGO COM AS LIBS NECESSARIAS E TAL REQUEST

Não Entendi !!! vc quer o que ?

aonde achamos o tal what32.lib tenho ele no contrib/what32

colouei ele no teste.bc

mas agora da erro de hb_stack

quais as lib que tenho ue colocar para que o SHOWCURSOR()
FUNCIONE
---------------

Esse erro é pq vc deve esta usando a LIB compilada para uma versão diferente da sua !!!

Me diga qual versão do seu xharbour...que te mando a WHAT32.LIB...ou vc mesmo pode baixar tudo via CVS e compilar o xharbour com a contrib toda..

Abraços
Leonardo Machado