Andorra 2D GUI Problem

[_BlackDragon_]

Hallo erstmal.

Zitat:

Dort wird aber auch nichts angezeigt.

Also bei mir wird in der Demo "VideoPlayer" ein Menü angezeigt.

Zitat:

Das funktioniert nicht und habe das deshalbd erstmal genauso wie in der Demo Videoplayer versucht.

Das stimmt schonmal nicht so ganz. Du hast ein Formular erzeugt und dann alles drauf gepackt. Vermutlich hast du irgendwas vergessen. In der Demo wird das alles über die Klasse TAdAppl geregelt. Sollte allerdings nicht dein Problem sein.

Was sagt denn nach dem Start AdGUI.Visible ???

Bei mir funktioniert es in der Wormhunter-Demo mit der GUI.

Delphi-Quellcode:

uses
... // alles andere
AdGUI, AdComponents, AdGUIConnector;
...

Delphi-Quellcode:

...
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private-Deklarationen }
  public
...
    AdGUI: TAdGUI;

  end;
...

Folgende Zeilen im Form.Create hinzugefügt UND die Cursors.xml angepasst (ImagePfad):

Delphi-Quellcode:

...
AdGUI := TAdGUI.Create(AdDraw); //Erzeugen der Klasse
AdGUI.Skin.LoadFromFile(path + 'sunna.axs'); //Laden des Skins
AdGUI.Cursors.LoadFromFile(path + 'cursors.xml'); //Laden der Cursor
AdGUI.LoadFromFile(path + 'VideoGUI.axg'); //Laden der GUI
...

In "Idle" jetzt noch folgendes hinzufügen.

Delphi-Quellcode:

...
AdGUI.Update(AdPerCounter.TimeGap / 1000);
Caption := BoolToStr(AdGUI.Visible, true);
...

Dann sollte es aussehen wie im angehängten Bild.

Schau doch nochmal genau, was du anders gemacht hast bzw. was evtl. vergessen wurde.

Gruss

BlackDragon