Bilder überblenden

[igel457]

Ich meine das ungefähr so:

Delphi-Quellcode:

var
  blending:boolean;
  blend:single;


procedure Form1.DXTimer1Timer;
begin
  dxdraw1.surface.fill(0);
  if blending then
  begin
    blend := blend + 0.01;
    dximagelist1.items[0].drawalpha(rect(0,0,dxdraw1.width,dxdraw1.height),0,trunc(blend));
    dximagelist1.items[1].drawalpha(rect(0,0,dxdraw1.width,dxdraw1.height),0,trunc(255-blend));
    if blend > 255 then blending := false;
  end;
  dxdraw1.flip;
end;