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