Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#154

Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]

  Alt 27. Apr 2007, 16:21
Ich denke ich habe den Fehler, den Nonex feststellen musste, gefunden.
Ersetze in der Unit AdSprites die Methode TSpriteEngine.Dead durch folgende:
Delphi-Quellcode:
procedure TSpriteEngine.Dead;
var i:integer;
begin
  for i := 0 to FDeadList.Count - 1 do
  begin
    Remove(TSprite(FDeadList[i]));
    TSprite(FDeadList[i]).Free;
  end;
  FDeadList.Clear;
end;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat