Fullscreen SlideShow Bilder animieren

[Namenloser]

Ja, sorry, hab ich vergessen zu sagen: TRGB32 ist ein record, der so aufgebaut ist:

Delphi-Quellcode:

trgb32 = record
r,g,b,a: byte;
end;

beispiel kommt:

Delphi-Quellcode:

var x: integer;
oldpic, newpic: TBitmap;

procedure tform1timertimer(sender: tobject);
var buffer: TBitmap;
begin
  inc(x);
  buffer := TBitmap.create;
  buffer.assign(oldpic);
  blendbitmap(0, 0, buffer, newpic);
  canvas.draw(0,0,buffer); // Zu faul für bitblt XD
  buffer.free; // edit^^ das sollte schon sein
end;