hiperCorreio   

Debate hiperL

     
[Anterior] [Próxima] [Responder] [Sem Formatação] [Outros Debates] [Ver Listagem]
Arrastabilidade
Remetente: =?iso-8859-1?q?Jos=E9=20Luiz=20Bittencourt?=  <jlbitt@yahoo.com>
Data  de  Envio: 2001-06-21  10:02:03.000
Pessoal,
para quem está utilizando o comportamento de
arrastabilidade que utiliza o ator maozinha e está
tendo problemas com colisão, segue aqui uma outra
agenda de arrastabilidade que eu fiz e não utiliza o
ator maozinha. Basta executar esta agenda num ator
qualquer que ele fica arrastável com o mouse.
Valeu!


-----------------------
AGENDA: ARRASTABILIDADE
-----------------------

{GUARDA DIMENSÕES DO ATOR} 
obterIdentidade obterDimensoes copiar 
2 obterElemento dimY <- 
1 obterElemento dimX <- 

0 sobre <- 
{VERIFICA SE O ATOR FOI PEGO} 
'aplique' 
  [ 'mouse' 'mouse botão pressionado' numero lista ] 
  [ 
  4 obterElemento posicaoMouse <- 
  obterPosicao 1 obterElemento dimX 2 / - posicaoMouse
1 obterElemento <= 
  obterPosicao 2 obterElemento dimY 2 / - posicaoMouse
2 obterElemento <= + 2 >=  {operação E + 2 >=} 
  obterPosicao 1 obterElemento dimX 2 / + posicaoMouse
1 obterElemento >= + 2 >= 
  obterPosicao 2 obterElemento dimY 2 / + posicaoMouse
2 obterElemento >= + 2 >= 
  [ 1 sobre <- ] senaoZero 
  ] 
seDito 

{LIBERA O ATOR} 
'aplique' 
  [ 'mouse' 'mouse botão solto' numero lista ] 
  [ 0 sobre <- ] 
seDito 

{MOVE ATOR JUNTO COM O MOUSE} 
'aplique' 
  [ 'mouse' 'mouse arrastando'  numero lista ] 
  [ sobre [ 4 obterElemento andarPara ] senaoZero ] 
seDito 

_______________________________________________________________________________________________
Yahoo! GeoCities
Tenha seu lugar na Web. Construa hoje mesmo sua home page no Yahoo! GeoCites. É 
fácil e grátis!
http://br.geocities.yahoo.com/

[Anterior] [Próxima] [Responder] [Início da Mensagem]