*schieb*
Ich habe wirklich keine Idee, woran das liegen könnte, und das komtm selten bei mir vor, normalerweise finde ich den Fehler. Ich würde den gesamten Code ja mal anhängen, aber leider ist der über die Wochen schon so schrecklich lang geworden und nur spärlich kommentiert
Hier erstmal der Code zum Speichern, falls es hilft.
Delphi-Quellcode:
procedure TSgTileSkin.SaveToTag(Tag: TRAKBinarytag);
var
lPNG: tpngobject;
begin
TRAKBinaryDouble.AddToTag(Tag,'w',width);
TRAKBinaryDouble.AddToTag(Tag,'h',height);
TRAKBinaryAnsiString.AddToTag(tag,'n',Name);
if assigned(image) then
begin
lPNG := tpngobject.CreateBlank(COLOR_RGBALPHA,8,image.Width,image.height);
// lPNG := TPNGObject.Create;
LoadBitmap32intoPNG(lPNG,image);
TRakBinaryPicture.AddToTag(Tag,'img',lPNG);
freeandnil(lPNG);
end;
Collisionmap.SaveToTag(Tag.AddTag('cm'));
lines.SaveToTag(tag.AddTag('l'));
end;