Registriert seit: 27. Apr 2011
242 Beiträge
Delphi 6 Enterprise
|
AW: Pacman
8. Feb 2012, 15:02
Das klappt schon mal ganz gut... Mit dem zufälligen zeichnen klappts jedoch noch nicht ganz.
versucht hab ich es so:
Delphi-Quellcode:
ACanvas.Ellipse(Random(ACanvas.ClipRect.TopLeft.X), random(ACanvas.ClipRect.TopLeft.Y), ACanvas.ClipRect.TopLeft.X + lWidth ,
ACanvas.ClipRect.TopLeft.Y + lWidth);
Ich würde beim Create die Zufallsposition setzen:
Delphi-Quellcode:
constructor TphMonster.Create();
begin
self.PositionX := random(); // Angeben der Größe
self.PositionY := random();
end;
Coffeecoder
|