[Andorra] TBackgroundSprite

[mimi]

Na dann muss ich wohl was selbst machen. Naja was sollst. Fragen schadet ja nicht...
ich habe das jetzt so gelöst:

Delphi-Quellcode:

procedure TPlutoDrawBall.Draw;
var
  adRect:TAdRect;
  x,y:Integer;
begin
  if AdDraw.CanDraw then begin
    AdDraw.BeginScene;
    AdDraw.ClearSurface(clWhite);
    for y:=0 to MapW do begin
      for x:=0 to MapH do begin
         AdImageList.Find('BG').Draw(AdDraw,x * mapS, y * mapS,0);
      end;
    end;

    AdSpriteEngine.Draw;
    AdDraw.EndScene;
    AdDraw.Flip;
  end;
end; // TPlutoDrawBall.Draw

und das ist so wie ich es haben wollte.