Einzelnen Beitrag anzeigen

Benutzerbild von igel457
igel457

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

Re: Andorra 2D - The Next Generation 2D Engine [Ver. 0.15]

  Alt 6. Apr 2007, 12:48
Zitat von Codewalker:
Au ja. Eine Art "Preview" der GUI wäre ganz nett.
Ihr könnt euch ja die neusten Entwicklungsdateien im CVS-Repository herunterladen. Die relevanten Dateien liegen im Verzeichnis "src" und heißen "AdGUI.pas", "AdSkin.pas" und "AdComponents.pas"
Die GUI ist komplett XML basierend.
Die GUI wird ungefähr so verwendet werden können.
Delphi-Quellcode:
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;
Vielleicht lade ich heute (oder morgen, oder übermorgen) mal eine Testverion hoch .

Danke für die rege Nachfrage,
igel457
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