Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[Neutral General]

Hi I.A.

Eigentlich sollte bei dem vorliegenden Quelltext überhaupt nichts zu sehen sein (außer ein schwarzer Bildschirm).

Bist du sicher, dass dieser Code auch so in deinem Quelltext steht?

PS: Ich habe gerade kein Andorra installiert aber das Bild kannst du wenn ichs Recht in Erinnerung habe ungefähr(!) so darstellen:

So musst dus machen:

Delphi-Quellcode:

procedure TAdForm.Idle(Sender: TObject; var Done: Boolean);
begin
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann...
  begin
    //auch hier geht's bald weiter.
    AdDraw.BeginScene;
      AdImageList.Find('bild').Draw(AdDraw,0,0,0); // AdDraw|x|y|PatternIndex
      // ODER direkt über den Index:
      AdImageList.Items[0].Draw(AdDraw,0,0,0); 
    AdDraw.EndScene;
    AdDraw.Flip;
  end;
  Done := false;
end;

Gruß
Neutral General