Clipper On Line • Ver Tópico - Habilitar Mouse nas Aplicações Gaspro/Harbour

Habilitar Mouse nas Aplicações Gaspro/Harbour

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor Jairo Maia » 28 Abr 2011 11:49

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:

Mou_Lin_S := Mou_Col_S := Mou_Lin_I := Mou_Col_I := 0


Substitua as seguintes funções´em seu código por estas:


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)
Anexos
MOUSEFUN.zip
(619 Bytes) Baixado 244 vezes
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Re: Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor clipsis » 28 Abr 2011 20:58

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
Clipper 5.2/Blinker
Harbour 3.0/Mingw
clipsis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 79
Data de registro: 02 Jun 2010 11:53
Cidade/Estado: brasil
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor Jairo Maia » 29 Abr 2011 09:42

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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Re: Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor clipsis » 30 Abr 2011 20:32

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
Clipper 5.2/Blinker
Harbour 3.0/Mingw
clipsis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 79
Data de registro: 02 Jun 2010 11:53
Cidade/Estado: brasil
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor Jairo Maia » 01 Mai 2011 12:11

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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor fladimir » 08 Mai 2011 20:58

Olá pessoal tem como funcionar sem ser em aplicações oriundas do GASPRO?

Grato

Sucessso!!!

:)Pos
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor clipsis » 09 Mai 2011 09:06

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
Clipper 5.2/Blinker
Harbour 3.0/Mingw
clipsis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 79
Data de registro: 02 Jun 2010 11:53
Cidade/Estado: brasil
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor Jairo Maia » 14 Mai 2011 13:32

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?
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor fladimir » 14 Mai 2011 14:18

Obrigado Jairo pelo auxilio,

Sucesso aTodos...

:)Pos
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor clipsis » 20 Mai 2011 12:55

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
Clipper 5.2/Blinker
Harbour 3.0/Mingw
clipsis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 79
Data de registro: 02 Jun 2010 11:53
Cidade/Estado: brasil
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor clipsis » 20 Mai 2011 15:02

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.
Clipper 5.2/Blinker
Harbour 3.0/Mingw
clipsis
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 79
Data de registro: 02 Jun 2010 11:53
Cidade/Estado: brasil
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor Jairo Maia » 23 Mai 2011 14:53

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: http://www.pctoledo.com.br/forum/viewtopic.php?f=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.
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes

Habilitar Mouse nas Aplicações Gaspro/Harbour

Mensagempor bcm » 02 Nov 2017 12:03

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.
bcm
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 82
Data de registro: 02 Set 2012 00:48
Cidade/Estado: volta redonda/rj
Curtiu: 0 vez
Mens.Curtidas: 2 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro