Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
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
|