[Andorra2D] - TPictureCollection

[Niels14]

Hallo Marabu, Danke fuer Deine schneller Antwort .
Aber ich bekomme als Loesung die Felder angezeigt:

ADDraws.pas:{TPictureCollectionItem}
ADDraws.pas:{TPictureCollection}

Im Source Code sieht das folgend aus:

Delphi-Quellcode:

procedure TRectList.SetItem(AIndex:integer;AItem:TRect);
begin
  PRect(inherited Items[AIndex])^ := AItem;
end;

{TPictureCollectionItem}

constructor TAdImage.Create(AAdDraw:TAdDraw);
begin
  inherited Create;
  FTexture := TAdTexture.Create(AAdDraw);
  FParent := AAdDraw;
  FParent.RegisterNotifyEvent(Notify);
  Rects := TRectList.Create;
  FColor := clWhite;
  FAlpha := 255;
  FOwnTexture := true;
  FDetails := 1;
  Initialize;
end;

und

Delphi-Quellcode:

function TAdImage.GetPatternRect(ANr: Integer):TRect;
begin
  result := Rects[ANr];
end;


{TPictureCollection}

function TAdImageList.Add(AName: string): TAdImage;
begin
  result := TAdImage.Create(FParent);
  result.Name := AName;
  result.FreeByList := true;
  inherited Add(result);
end;

irgendwie stelle ich mich saudaemlich an oder etwas stimmt nicht mit meinen sources.
Ich habe das erst mal so geloest dass ich statt TPictureCollection direkt TAdImageList verwende.
Habe ich vielleicht einen alten Andorra Code? oder einen zu neuen?
Danke noch mal fuer Deine schnelle Antwort!