Página 1 de 1
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 28 Abr 2011 11:49
por Jairo Maia
Nota: Se vc desabilitou Mouse em sua aplicação remova a linha de desabilitação. (Isto é obvio, mas vale lembrar!)
Se vc usa o arquivo ???_Publ.ch, insira a linha abaixo nele, se não usa, declare no início de sua aplicação. Necessita ser Publica:
Substitua as seguintes funções´em seu código por estas:
Código: Selecionar todos
Func Mouse() // verifica se tem mouse
Retu If( MPresent() , 1 , 0 )
Func MouseCur( Arg ) // mostra ou esconde o cursor do mouse
Arg := If( Arg = Nil , .f. , .t. )
If( Arg , MShow() , MHide() )
Retu Nil
Func MouseSet( Row , Col ) // posiciona o cursor
MSetPos( Row , Col )
Retu Nil
Func MouseBox( Arg1 , Arg2 , Arg3 , Arg4 ) // determina area de evento
Mou_Lin_S := Mou_Col_S := Mou_Lin_I := Mou_Col_I := 0
If Arg3 != MaxRow() .And. Arg4 != MaxCol()
Mou_Lin_S := Arg1
Mou_Col_S := Arg2
Mou_Lin_I := Arg3
Mou_Col_I := Arg4
ElseIf l_s != Nil .And. c_s != Nil .And. l_i != Nil .And. c_i != Nil
Mou_Lin_S:=l_s
Mou_Col_S:=c_s
Mou_Lin_I:=l_i
Mou_Col_I:=c_i
Endi
Retu Nil
Func MouseGet(Arg1,Arg2) // retorna botao esquerdo/direiro (enter/esc)
Loca nBotao:=0
If MLeftDown()
nBotao:=1
ElseIf MRightDown()
nBotao:=2
Endi
Arg1:=MRow()
Arg2:=MCol()
If nBotao=1
If Arg1<Mou_Lin_S .Or. Arg1>Mou_Lin_I .Or. Arg2<Mou_Col_S .Or. Arg2>Mou_Col_I
nBotao:=3
Endi
Endi
Retu (nBotao)
Re: Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 28 Abr 2011 20:58
por clipsis
Olá a todos!
Fiz como Jairo Maia indicou e o fonte que ele passou, acontece que quando habilito o mouse aparece mensagem de erro:
BASE/1001
Variável/funçäo: MOUSETECLA
Alguém mais fez ?
Abraços
Re: Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 29 Abr 2011 09:42
por Jairo Maia
clipsis escreveu:BASE/1001
Variável/funçäo: MOUSETECLA
E não informa em que linha?
Veja se consegue verificar em qual linha para eu tentar entender o problema, pois coloquei o mouse desta forma em duas aplicações e não ocorre este erro.
Re: Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 30 Abr 2011 20:32
por clipsis
Olá boa noite!
Desculpa foi erro meu mesmo. Tinha comentado no .CH o #define COM_MOUSE
Agora outra coisa: o mouse só funciona nos menu, é isso mesmo? ou tem que fazer alguma modificar para funcionar nos GETS ?
Antes funciona nos campos e até quando se clicava sobre F10 ele acionava
Abrs
Re: Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 01 Mai 2011 12:11
por Jairo Maia
Olá Clipsis,
Para que ele funcione nos gets e "Hot keys", vc precisa fazer uma cópia do arquivo GETSYS.PRG do Gas para a pasta de seu projeto. Ele fica na pasta do GasPro.
Depois, acrescente em seu arquivo .hbp e compile.
Quando vc compila com a lib GASPRO5x, ele é considerado pq está na lib, mas em Harbour vc precisa acrescentá-lo em sua lista de arquivos para ele ser compilado.
Os Helps de campos também serão habilitados, pois os comandos de leitura da matriz estão nele.
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 08 Mai 2011 20:58
por fladimir
Olá pessoal tem como funcionar sem ser em aplicações oriundas do GASPRO?
Grato
Sucessso!!!
:)Pos
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 09 Mai 2011 09:06
por clipsis
Olá a todos!
Caro Jairo Maia, fiz como vc indicou (depois vi que já estava fazendo dessa forma):
- copiei o getsys.prg da pasta do GASPro para a pasta do meu projeto (ele já estava lá)
- inclui a referência dele no arquivo .HBP
O Help nos campos já funcionavam. Mesmo assim o mouse não funciona na tela de edição (Manutenção) de dados. E ainda percebi que o mouse só funciona no menu vertical no horizontal ele não funciona.
Será que falta ainda alguma coisa no meu projeto.
Abras
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 14 Mai 2011 13:32
por Jairo Maia
fladimir escreveu:Olá pessoal tem como funcionar sem ser em aplicações oriundas do GASPRO?
Olá Fladimir. Usando estas rotinas não é possivel. O gas gera os fontes já prontos pra isso, e neste caso, estas rotinas usam o raciocinio do GasPro. A definição da área de evento por exemplo, só daria certo nos fontes do Gás.
clipsis escreveu:O Help nos campos já funcionavam.
Olá Clipsis. Se o help funcionava antes, é pq vc já compilava o arquivo GetSys do Gaspro, e com certeza está usando compilação incremental. Como vc havia comentado #define COM_MOUSE, acredito que este arquivo está sem as definições de mouse.
Faça uma compilação global, usando: HBMK2 seu_projeto.hbp -rebuild e veja se vai funcionar.
Nota: Nos gets está totalmente funcional nas aplicações que habilitei mouse.
Mesmo assim o mouse não funciona na tela de edição (Manutenção) de dados. E ainda percebi que o mouse só funciona no menu vertical no horizontal ele não funciona.
Pois é... Não havia percebido isto. Na manutenção, funciona nas hot-keys e menu, mas no menu vertical realmente não está funcionado nada.
Obrigado por alertar. Assim que puder vou verificar o que está ocorrendo. Talves algo nos fontes da LibGas que vcs estão usando. Mas ainda não sei. Assim que entender publico, ok?
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 14 Mai 2011 14:18
por fladimir
Obrigado Jairo pelo auxilio,
Sucesso aTodos...
:)Pos
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 20 Mai 2011 12:55
por clipsis
Olá a todos!
Olá Jairo, consegui resolver o problema.
O que aconteceu foi que eu havia colocado a instrucao SET EVENTMASK TO INKEY_ALL, no ínicio do meu PRG MAIN.
Foi só tirar essa linha e o mouse passou a funcionar no sistema, inclusive nas tela de manutenção.
Infelizmente no menu horizontal ainda não, mas estou vendo se encontro o porque disso.
Agradeço a atenção
ABRS
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 20 Mai 2011 15:02
por clipsis
Olá, novamente!!
Com as alterações que o Jairo passou, está funcionando legal o mouse, em sistema feito pelo GASPro.
O que pecebi é que quando eu habilito o mouse no sistema, o consumo da CPU vai a 99 e 100%, se desabilito fico no 0%.
Alguém notou isso? É possível resolver?
Abrs.
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 23 Mai 2011 14:53
por Jairo Maia
Olá Clipsis,
Legal que vc está tendo sucesso na habilitação do Mouse.
clipsis escreveu:O que pecebi é que quando eu habilito o mouse no sistema, o consumo da CPU vai a 99 e 100%, se desabilito fico no 0%.
Alguém notou isso? É possível resolver?
Pois é... Eu inclusive já citei isso em outro tópico, e ocorre também nas minhas aplicações quando habilito o mouse.
Vc chegou a acompanhar este tópico:
https://pctoledo.org/forum/viewto ... =4&t=11973
Se não, se tiver tempo veja este tópico, e tente descobrir algo. Quem avançar primeiro posta o que descobrir, ok?
Acredito que breve teremos o mouse resolvido.
Habilitar Mouse nas Aplicações Gaspro/Harbour
Enviado: 02 Nov 2017 13:03
por bcm
Boa tarde a todos!
O mouse no menu horizontal não está funcionando, somente na vertical.[img]
Alguém poderia me ajudar?
Outra pergunta.Alguem sabe me dizer como faço para aumentar o tamanho da fonte na tela.Exemplo:
mostrar o valor da venda no ponto de venda maior em modo console.