[Andorra2D] - TPictureCollection

[Niels14]

Hi,
ich wollte gerade die Beispiel Tutorials von Andorra2D durcharbeiten, habe aber jetzt ein kleines Problem.
(Ich verwende hier momentan Delphi 7)
Er findet das TPictureCollection Object nicht. (In AddApps.pas -> Undeclared identifier: 'TPictureCollection')
Ich denke dass ich alle Andorra Bibliotheken eingebunden habe aber irgendwie findet er das nicht. In welcher Bibliothek ist es genau?
Danke fuer eure Hilfe

LG Niels

[marabu]

Hallo Niels,

TPictureCollection findest du in der Unit AdDraws, wenn du im source folder so vorgehst:

Code:

FINDSTR /I "TPictureCollection" *.pas

Grüße vom marabu nach down under

[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!

[igel457]

Du hast gerade den neuen Andorra Code - TPictureCollection heißt TAdImageList und TPictureCollectionItem heißt TAdImage - so ist es vom Namen her logischer. Apropos: TPerformanceCounter heißt in der neusten CVS-Version auch TAdPerformanceCounter.

[Niels14]

Super Danke!
Dann war ich doch auf dem richtigen Weg!