Die Fläche wird natürlich nur schwarz, wenn du sie auch mit Schwarz füllst. Ansonsten wird wirres Zeug aus dem Grafikspeicher ausgegben (letzteres ist Spekulation
).
Also noch AdDraw.ClearSurface(clBlack) eingefügt und gut ist.
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;
AdDraw.ClearSurface(clBlack); // Das hast du vergessen, steht aber im Tutorial drin ;-)
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;
Grüße