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;