Hi,
ich habe folgendes Problem: ich möchte, dass sich ein Sternenhimmel immer weiter nach links bewegt. Dieser Himmel ist eine einfache Grafik in einer DXImageList. Ich habe das ganze mal versucht, aber jämmerlich gescheitert (Division by zero; was auch klar ist). Folgendes in einem DXTimer:
Delphi-Quellcode:
var i: integer;
begin
dec(counter);
DXDraw1.Surface.Fill(0);
for i:=1
to DXDraw1.SurfaceWidth
div (128 + counter)
do begin
DXImageList1.Items[1].Draw(DXDraw1.Surface, i*(128 + counter), 0, 0);
end;
DrawShip(oldX, oldY);
end;
Nun: das kann nicht funktionieren. Hat denn irgendjemand eine Idee, wie man das machen könnte?
Chris
PS: Für den Anfang bitte erstmal nur eine horizontale Reihe der Bilder...