Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Zitat:
Die GUI ist komplett XML basierend. Die GUI wird ungefähr so verwendet werden können.
Delphi-Quellcode:
Vielleicht lade ich heute (oder morgen, oder übermorgen) mal eine Testverion hoch ;-).
AdGUI := TAdGUI.Create(AdDraw1);
AdGUI.Skin.LoadFromFile('sunna.axs'); AdGUI.Cursors.LoadFromFile('mouse.xml'); AdGUI.ConnectEventHandlers(Form1); AdForm := TAdForm.Create(AdGUI); AdForm.LoadFromFile('mainmenu.xml'); with AdForm.FindComponent('Panel1') do begin Hint := 'Ein tolles Panel'; ShowHint := True; end; AdForm.OnMouseMove := WasWeisIch; procedure Render; begin . . AdGUI.Update; . . end; procedure Destroy; begin AdGUI.Free; end; Danke für die rege Nachfrage, igel457 |
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Ich hätte da noch eine sinnvolle und wichtige Idee für den ImageEditor: Ich bräuchte eine Möglichkeit, mehrere (z.B. alle ausgewählten Bilder) gleichzeitig mit ein und demselben Bild als Alphachannel zu versehen. Das wäre praktisch zum "zuschneiden" von Bildern.
|
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Werde ich einbauen.
|
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Liste der Anhänge anzeigen (Anzahl: 1)
So, da der Wunsch bestand (und Ostern ist :-)) hier eine kleine Preview meines GUI Systems. Der Sourcecode findet/wird sich finden im CVS Repository. Im GUI Editor kann man noch keine Elemente hinzufügen, dies geht nur über Bearbeiten der Datei "test.xml"
Viel Spaß damit, Igel457 |
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Na das sieht doch schon super aus. Vor allem dass man frei eigene Bilder einbauen kann finde ich gut. Was schätzt du denn, wann gibt es die erste einsatzbereite Version? Ich kann es kaum abwarten, das endlich einzubauen :mrgreen:
|
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Zitat:
|
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Hi Igel457.
Ich hab da ein kleines Problem mit der SpriteEngine. Ich habe irgendwo (weiß nicht ob in diesem oder einem anderen Thread) deine Codezeilen übernommen, um einen Zoom zu programmieren. Das klappt auch soweit ganz gut, aber wenn ich rauszoome, zeichnet die SpriteEngine nur noch ein Viertel des Bildschirms. Wie kann ich der denn die Größenänderung auch beibringen? Hab schon viel probiert, aber es will einfach nicht klappen. Ansonsten, muss ich es nochmal sagen: Mit der Engine zu basteln macht einfach nur Spaß :mrgreen: |
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Dazu musst du dir eine Klasse von der Spriteengine ableiten und das Property "SurfaceRect" überschreiben:
Delphi-Quellcode:
type
TMySpriteEngine = class(TSpriteEngine) private function GetSurfaceRect:TRect; public property SurfaceRect read GetSurfaceRect; end; function TMySpriteEngine.GetSurfaceRect:TRect; var r:TRect; w,h:integer; begin r := inherited SurfaceRect; w := r.Right - r.Left; h := r.Bottom - r.Top; result := Rect(r.Left-w * ZoomFaktor, r.Top - h * ZoomFaktor, r.Right + w * ZoomFaktor, r.Bottom + h * ZoomFaktor); end; |
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Hmm. Habe ich gemacht, zeigt aber keine Wirkung. Das ganze sieht jetzt so aus:
Delphi-Quellcode:
Ich hab noch das Erstellen und die Variablentypen in meinem Programm korrigiert, aber irgendwie gab das keine Änderung. Muss ich da noch eine Funktion aufrufen, um die Einstellungen zu übernehmen? Das Zoomen sieht so aus:
TZoomSpriteengine = class(TSpriteEngine)
private FZoom: integer; function GetSurfaceRect: TRect; procedure SetZoom(const Value: integer); public property SurfaceRect Read GetSurfaceRect; property Zoom: integer Read FZoom Write SetZoom; end; {..............} function TZoomSpriteengine.GetSurfaceRect: TRect; var r: TRect; w, h: integer; begin r := inherited SurfaceRect; w := r.Right - r.Left; h := r.Bottom - r.Top; Result := Rect(r.Left - w * Zoom, r.Top - h * Zoom, r.Right + w * Zoom, r.Bottom + h * Zoom); end; procedure TZoomSpriteengine.SetZoom(const Value: integer); begin FZoom := Value; end;
Delphi-Quellcode:
Settings ist hier nur eine Hilfsklasse, um allerlei Einstellungen zu verwalten.
procedure TForm1.ZoomOut(Sender: TObject);
begin Settings.Zoom := 2; SpriteEngine.Zoom:=Settings.Zoom; AdDraw.AdAppl.Setup2DScene(PaintBox1.Width * Settings.Zoom, PaintBox1.Height * Settings.Zoom); end; procedure TForm1.ZoomIn(Sender: TObject); begin Settings.Zoom := 1; SpriteEngine.Zoom:=Settings.Zoom; AdDraw.AdAppl.Setup2DScene(PaintBox1.Width * Settings.Zoom, PaintBox1.Height * Settings.Zoom); end; |
Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]
Mti dieser kleinen Hilfsfunktion gehts:
Delphi-Quellcode:
FSurfaceRect ist ja nicht private sondern nur protected. Daher ist das so ohne weiteres machbar. GetSurfaceRect wird nämlich nie aufgerufen, weil nur im NotifyEvent auf SurfaceRect geschrieben wird und da wird direkt auf FSurfaceRect zugegriffen.
procedure TZoomSpriteengine.SetZoom(const Value: integer);
var r: TRect; w,h: Integer; begin FZoom := Value; r := FSurfaceRect; w := r.Right - r.Left; h := r.Bottom - r.Top; FSurfaceRect := Rect(r.Left - w * Zoom, r.Top - h * Zoom, r.Right + w * Zoom, r.Bottom + h * Zoom); end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz