mouse com prompt, get, achoice, dbedit ?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Avatar do usuário
Trazom
Usuário Nível 3
Usuário Nível 3
Mensagens: 277
Registrado em: 14 Ago 2003 01:01
Localização: Maceió/AL

mouse com prompt, get, achoice, dbedit ?

Mensagem por Trazom »

Olá amigos

abri este novo tópico, mas é relacionado ao tame 5.0

é o seguinte o tame permite que os movimentos do mouse sejam percebidos pela aplicação, assim em um dbedit voce pode usar o scrooll do mouse pra rolar os dados

entao

como podemos fazer pra o clipper reconhever um click do mouse em cima de uma opcao prompt, ou num conjunto de gets ?
Imagem

Harbour 3.2 HMG 1.2a NSX
Evandro
Pelo fato de exercitar bem a própria arte,
cada um pretendia ser sapientíssimo também nas
outras coisas de maior importância,
e esse erro obscurecia o seu saber

Platão, Apologia de Sócrates
Avatar do usuário
vagucs
Membro Master
Membro Master
Mensagens: 1480
Registrado em: 10 Jul 2004 10:45
Localização: Ipanema - MG
Contato:

Mensagem por vagucs »

vc tem que usar rotinas proprias para isto no clipper 5.2 ou escrever as rotinas para que suportem mouse, no Clipper 5.3 basta adicionar no inicio do programa um set

SET EVENTMASK TO 159

E assim o mouse funciona em tudo, prompt, achoice, dbedit, etc...
Sem mais
Wagner Nunes
www.vagucs.com.br
Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

Mouse no Clipper

Mensagem por Netavin »

Caro Trazom!
Complementando a informação passada pelo Wagner, coloque no início do seu programa principal:

#include "inkey.ch"
set eventmask to INKEY_ALL
msetcursor(.t.)

Netavin.
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
Mário Isa
Usuário Nível 4
Usuário Nível 4
Mensagens: 907
Registrado em: 07 Jul 2004 13:54
Localização: Ilha Solteira-sp

Mensagem por Mário Isa »

Olá NETAVIM
Mas você poderia me dizer se este último, falado por você é para 5.2 ou 5.3 ?
Avatar do usuário
Trazom
Usuário Nível 3
Usuário Nível 3
Mensagens: 277
Registrado em: 14 Ago 2003 01:01
Localização: Maceió/AL

Mensagem por Trazom »

deve ser para 5.3 porque no 5.2 nao funciona a nao ser que tenha alguma lib pra instalar
Imagem

Harbour 3.2 HMG 1.2a NSX
Evandro
Pelo fato de exercitar bem a própria arte,
cada um pretendia ser sapientíssimo também nas
outras coisas de maior importância,
e esse erro obscurecia o seu saber

Platão, Apologia de Sócrates
Avatar do usuário
Trazom
Usuário Nível 3
Usuário Nível 3
Mensagens: 277
Registrado em: 14 Ago 2003 01:01
Localização: Maceió/AL

Mensagem por Trazom »

deve ser para 5.3 porque no 5.2 nao funciona a nao ser que tenha alguma lib pra instalar
Imagem

Harbour 3.2 HMG 1.2a NSX
Evandro
Pelo fato de exercitar bem a própria arte,
cada um pretendia ser sapientíssimo também nas
outras coisas de maior importância,
e esse erro obscurecia o seu saber

Platão, Apologia de Sócrates
Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

MOUSE NO CLIPPER

Mensagem por Netavin »

Oi pessoal !
... pois é ! Eu uso no 5.3.

[]´s

Netavin.
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
Responder