Zitat von
maximi:
Nee, ich verschiebe mehrere TImages!
Delphi-Quellcode:
var
backpuffer: TBitmap:
Einheiten: array [0..12]: TBitmap:
oncreate:
Delphi-Quellcode:
backpuffer := TBitmap.create;
backpuffer.width := width;
backpuffer.height := height;
for i:=0 to heigh(Einheiten)
begin
Einheiten[i] := TBitmap.create;
end;
Einheiten[2].loadfromfile(XXXXXXXXXXXXXX);
.....
timer mit kleinem INtervall:
Delphi-Quellcode:
//Zeichen Einheiten auf Backpuffer........
BitBlt(canvas.handle, 0, 0, backpuffer.Width, backpuffer.Height, backpuffer.Canvas.Handle, 0, 0, srccopy);//Backpuffer aufs Formular