Moin!
Hab das jetzt einigermaßen hinbekommen:
Delphi-Quellcode:
procedure drawStars(mv: integer = 0);
var
i, j: integer;
begin
with FrmMain do begin
for i:=1 to DXDraw1.SurfaceWidth div 128 do begin
for j:=1 to DXDraw1.SurfaceHeight div 107 do begin
DXImageList1.Items[1].Draw(DXDraw1.Surface, i*128 + counter, j*107, 0);
end;
end;
end;
end;
Allerdings werden die Sterne nicht oben in der Ecke gemalt, sondern irgendwo weiter unten. Was muss ich da ändern?
Chris