Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Problema con animacion (https://www.clubdelphi.com/foros/showthread.php?t=19891)

dfv 30-03-2005 16:46:42

Problema con animacion
 
Hola estoy desarrolando una aplicacion que consiste en simular los desplazamientos de una fresadora, para ello tengo un form en el que dibujo con canvas un rectangulo de color azul que es la pieza sobre la que trabaja la fresadora vista desde arriba, y lo que quiero es que con un circulo relleno de color rojo (seria la fresa) se desplace por el rectangulo, pero que no lo borre, es decir que se mueva por encima de el sin borrarlo. No se como puedo mover el circulo por encima del rectangulo y que lo deje intacto. Había pensado en usar canvas.draw(x,y,tgraphic), e ir incrementando los valores de x e y para simular el movimiento, pero el problema es que no se como puedo hacer para que un circulo sea un tgraphic. Bueno igual de esta manera voy un poco desencaminado pero no se me ocurre otra.

S.M.S. 31-03-2005 13:28:01

Shape
 
¿No te vale el componente Shape de la paleta Additional?. Utiliza dos, al primero le das forma de rectángulo y le cambias el color blanco por uno azul en la propiedad Brush.Color; al segundo le cambias el color a rojo y la propiedad Shape a stCircle. Luego para simular el moviento de este último sobre el primero puedes ir cambiando las valores de Left y Top.

Saludos.

pcicom 01-04-2005 01:37:23

Checate esto..

Lo unico que tienes que agregar es que tu circulo que supongo manejas con canvas este en modo transparent para que asi unicamente se sobreponga sobre todo lo que ya exista en el canvas...

agrega esto a el canvas cuando lo creas..


Canvas.brush.Style:=bsClear;


Suerte

kakesoft 09-04-2005 21:22:57

Una mejor opción, pero todo lo que te ayuden y digan es importante
 
Socio esto es un tín más complicado pero es mejor en calidad y todo lo demás.


Mira en delphi hay una activeX que se llama shockwaveflash, esta la instalas a trvés del menú component\import activex y después en flash creas una animación con lo que quieres que simule lo de la fresadora y después al guardarlo, cuando lo corras en flas con ctrl+enter se te genera un swf. Posteriormente en delphi insertas la activex ya instalada y en la propiedad movie le das el camino donde está el fichero swf de la animación, que esa activex si le pones el camino correcto, al dar f9 te visualizará la animación en el formulario.

Nota: Una cosa muy importante para que se pueda visualizar la animación en cualquier máquina, no debes tener precisamente el Flash instalado, pero si el flash player active control, el mismo lo que se lleva son 564KB y es el flash player active control que le corresponde a Flah MX.

Saludos y suerte

Headshrinker 19-10-2006 15:49:32

Una pregunta. Como puedo detectar si el flash player está instalado en una maquina con delphi?


La franja horaria es GMT +2. Ahora son las 18:49:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi