Simulation von Feuerwerk in einem TImage

[Bummi]

Mir ist nicht ganz klar was Du auf dem Image sehen willst, da ja alle paar ms neu gezeichnet wird...
so könnte die Stelle aussehen die Du nach Wunsch anpassen müsstest ...

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  for i := Particles.Count - 1 downto 0 do TParticle(Particles[i]).Update;
  for i := 0 to Rockets.Count - 1 do TRocket(Rockets[i]).Update;
  for i := 0 to Particles.Count - 1 do TParticle(Particles[i]).Render(Image1.Canvas);
  for i := 0 to Rockets.Count - 1 do TRocket(Rockets[i]).Render(Image1.Canvas);
end;