Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

Registriert seit: 31. Aug 2005
1.622 Beiträge
 
FreePascal / Lazarus
 
#214

Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.20 AL

  Alt 5. Jun 2007, 15:15
Hallo,

in der aktuellen CVS-Version gibt es eine neue Unit: "AdSpriteEngineEx". Diese untersützt das Zoomen aus der Szene und Splitscreenss. Einfach die neue Unit einbinden und TSpriteEngine durch TSpriteEngineEx ersetzen

Zoom:
Delphi-Quellcode:
SpriteEngineEx.Zoom := 1; //Normal
SpriteEngineEx.Zoom := 3; //3-mal verkleinert
SpriteEngineEx.Zoom := 0.5; //Alles doppelt
Splitscreen:
Delphi-Quellcode:
//"Bildschirm" 1
SpriteEngineEx.ViewPort := Rect(0,0,100,100); //Ausgabe auf (0|0;100|100) begrenzen
SpriteEngineEx.Reset; //Nur bei der verwendung von TLightSprite benötigt
SpriteEngineEx.Draw; //Zeichnen

//"Bildschirm" 2
SpriteEngineEx.ViewPort := Rect(100,100,200,200); //Ausgabe auf (100|100;200|200) begrenzen
SpriteEngineEx.Reset; //Nur bei der verwendung von TLightSprite benötigt
SpriteEngineEx.Draw; //Zeichnen
Ich hoffe, diese Funktionen kann irgendjemand gebrauchen,
Igel457

Edit: Im Anhang ist ein Bildchen der neuen TAdEdit-Komponente
Miniaturansicht angehängter Grafiken
gui5_150.png  
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
  Mit Zitat antworten Zitat