Thema: Pacman

Einzelnen Beitrag anzeigen

Benutzerbild von Coffeecoder
Coffeecoder

Registriert seit: 27. Apr 2011
242 Beiträge
 
Delphi 6 Enterprise
 
#4

AW: Pacman

  Alt 8. Feb 2012, 13:10
Ich würde in der Klasse TphMonster eine Methode einbringen, die sich um das Zeichnen kümmert:
Delphi-Quellcode:
...
procedure TphMonster.draw(pCanvas : TCanvas);
const
   BREITE = 16;
begin
   pCanvas.brush.color := clWhite; //eventuell Farbe festlegen
   pCanvas.Ellipse(PositionX, PositionY, PositionX + BREITE , PositionY + BREITE);
end;
...
und dann in einer Schleife folgendes tun:
Delphi-Quellcode:
...
    FMonsterArray[i].draw(ACanvas);
...
Wenn du willst kannst du ja mal die Quellen deiner Vorlage geben und deinen gesamten Quellcode anhängen.
Coffeecoder
  Mit Zitat antworten Zitat