BitBtl vs Draw

[Neftali [Germán.Estévez]]

Creo que en parte puede ser problema de que el fondo de la imagen no es uniforme.
Prueba con esta imagen y esta línea:

Código Delphi [-]
Bitblt(Canvas.Handle, 10 + i, 10, G.Width, G.Height, G.Canvas.Handle, 0, 0, MERGECOPY);

[Deiv]

Ok, en este momento no tengo Delphi lo revisaré en casa, pero que hay con:

1.- ¿A que se debe todo este efecto con Draw?

en la opción 2?

[[seoane]]

Respuesta 1
El efecto se produce porque al dibujar una imagen lo haces sobre la anterior, y las partes transparentes dejan ver los restos de la anterior, de esta manera al ir moviendo la imagen los restos de las imágenes anteriores terminan llenando toda la parte izquierda de la imagen.

Respuesta 2
La función Bitblt es una api que copia un bloque de pixeles de un Device Context a otro, le trae sin cuidado las propiedades del objeto TBitmap. Por eso no hace caso de la propiedad Transparent.

Posible solución:
La solución pasa por usar el método Draw y borrar los restos de la imagen anterior antes de dibujar la actual, además de usar un buffer para evitar el parpadeo. Nos quedaría algo así en el evento del timer:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Buffer: TBitmap;
begin
  Canvas.Brush.Color:= clBtnFace;
  Buffer:= TBitmap.Create;
  try
    Buffer.Canvas.Brush.Color:= Canvas.Brush.Color;
    Buffer.Width:= G.Width + 2;
    Buffer.Height:= G.Height + 2;
    Buffer.Canvas.Draw(2,2,G);
    Canvas.Draw(i+10,10,Buffer);
  finally
    Buffer.Free;
  end;
  inc(i,2);
end;

[Deiv]

He aplicado la nueva imagen de Neftali, su código, y el BitBtl ahora si trabaja bien con el transparente.

Y tal como mencioné un post anterior: Con el Draw (y esta nueva imagen inclusive) no pasa nada, ahora me pareciera que recorriera un "Cometa" al dibujar, inclusive he intentado con DoubleBuffered:=true; y nada

Estoy en un Cafe Internet en este momento y voy leyendo el Post de Seoane (no tengo Delphi a mano), me parece algo sólido lo que explica, lo probaré mas un rato, de todas maneras quería que compartieran "mi cometa"... es decir mi aplicación en la cual se ve ese efecto, es interesante, lo pueden observar.

[Deiv]

Adjunto en este post para los que no tienen Delphi a mano un archivo BMP capturado de mi aplicación cuando se mueve "mi cometa"

Respuesta 2
La función Bitblt es una api que copia un bloque de pixeles de un Device Context a otro, le trae sin cuidado las propiedades del objeto TBitmap. Por eso no hace caso de la propiedad Transparent.
Ahora que leo con mayor atención, entonces? ¿Como el código de Néftali hace funcionar el transparente en el BitBtl?

Código Delphi [-]
Bitblt(Canvas.Handle, 10 + i, 10, G.Width, G.Height, G.Canvas.Handle, 0, 0, MERGECOPY);

Como dije anteriormente trabaja el BitBtl y transparenta.

¿Como explicar eso???

[[seoane]]

Empezado por Deiv

Como dije anteriormente trabaja el BitBtl y transparenta.

¿Como explicar eso???

No querido Deiv, no transparenta. Y si crees que transparenta deberías comprarte un monitor nuevo Lo que hace Bitbtl con la opción MERGECOPY es combinar pixel a pixel con el fondo utilizando la operación booleana AND, como el fondo de la imagen que te paso Neftali es de color blanco al realizar la operación AND el color resultante es el del fondo del formulario (a AND 1 = a), pero si te fijas el resto de colores de la imagen se ven también alterados. De hecho aunque la propiedad Transparent estuviese a FALSE, se obtendría el mismo resultado, porque como ya dije antes, aunque no me creyeras ,al bitbtl le trae sin cuidado.

[Neftali [Germán.Estévez]]

Como bien te han dicho el código que te pasé no transparenta, simplemente que usando el color adecuado, evita los problemas.

[Deiv]

Gracias muchachos, aunque no crean de tiempo sali de duda (casi un año) cuando en un hilo pregunté de otra forma: Evitar parpadeo de imagen Aquí ahora está mas claro, gracias a los Genios como Uds. los novatos salimos de dudas.