Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

[Andorra] TBackgroundSprite

  Alt 14. Jun 2008, 13:08
Hallo,
ich möchte gerne die Klasse TBackgroundSprite nutzen für einen Hintergrund.
ich habe das so verstehen das ich eigentlich nur folgendes machen muss:
Delphi-Quellcode:
  with TBackgroundSprite.Create(AdSpriteEngine) do begin
    Image:=AdImageList.Find('BG');
    z:=-1;
    Depth:=10;
  end;
und beim zeichnen:
Delphi-Quellcode:
  if AdDraw.CanDraw then begin
    AdDraw.BeginScene;
    AdDraw.ClearSurface(clWhite);

    AdSpriteEngine.Draw;
    AdDraw.EndScene;
    AdDraw.Flip;
  end;
Allerdings bin ich mit den Ergebnis nicht zufrieden. Schaut euch doch mal bitte den Anhang an.
Was meint ihr ? Muss ich eine eigene Procedure schreiben ?
(Währe auch kein Problem), aber bevor ich den Aufwand betreibe wollte ich doch mal nach fragen ob es nicht einfacher geht.
ich möchte einfach nur das die angeben Grafik(96*96) auf dem ganzen Bildschirm gekachelt da gestellt wird.
Mehr möchte ich nicht. Ohne abstandt und soweiter.
Miniaturansicht angehängter Grafiken
drawball_232.jpg  
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat