Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Imagen de un Image a otro (https://www.clubdelphi.com/foros/showthread.php?t=22045)

joHn je@N 04-06-2005 23:12:16

Imagen de un Image a otro
 
:p Yo deseo pasar la imagen de un image a otro pero, no tradicionalmente sino pixel por pixel y de forma aleatoria para dar el aspecto de una animacion.

Si me pueden decir como se los agradeceria mucho.
Saludos!!! amantes de Delphi

Neftali [Germán.Estévez] 06-06-2005 10:06:00

Para Asignar Pixel a pixel puedes utilizar la propiedad del TCanvas.
Para el tema de hacerlo aleatorio, pues puedes utilizar (busca más info. en la ayuda) Randomize y Random(x).
La primera idea sería generar un número aleatorio desde 0 hasta el número de pixels de la imagen y controlar cuando se han encontrado todos y por lo tanto la imagen ya está completa. Ésto hecho así parece sencillo, pero no es práctico, ya que podrías estar esperando bastante rato hasta que de forma aleatoria se generaran todos los números... ;-( (sobretodo con una imagen grande...)
La siguiente solución (y es más aproximada a la que se utiliza normalmente) es "dividir la imagen" en pequeñas porciones de (por ejemplo) 20x20. Así una imagen de 200x200 pixels estará dividida en 10 porciones de alto por 10 porciones de ancho.
Calculas un número aleatorio (de 0 a 400 = 20 x 20) y lo pintas en todas las porciones. Debes guardar una lista con los 400 números para marcar los que ya han salido. De ésta forma sea cual sea el tamaño de la imagen tú siempre trabajas con una porción igual y pequeña (si la imagen es más grande saldrán más porciones).
Una optimización es pintar el número X que ha salido de forma diferente en las diferentes porciones, para evitar un efecto de simetría; Por ejemplo en una porción lo pintas normal, en otra porción pintas el (400-x), en otra aplicas un offset de 200,...

Espero haberme explicado decentemente... ;-)


La franja horaria es GMT +2. Ahora son las 14:42: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