AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi [Andorra 2] Problem beim Freigeben des GUI-Editors
Thema durchsuchen
Ansicht
Themen-Optionen

[Andorra 2] Problem beim Freigeben des GUI-Editors

Ein Thema von Looper · begonnen am 7. Mär 2008 · letzter Beitrag vom 7. Mär 2008
 
Looper

Registriert seit: 28. Sep 2007
Ort: Hamburg
131 Beiträge
 
Delphi XE2 Professional
 
#1

[Andorra 2] Problem beim Freigeben des GUI-Editors

  Alt 7. Mär 2008, 18:56
Hi Leuts,
ich stehe vor einem Problem:
Und zwar schaffe ich es nicht das GUI anzuzeigen und wenn die Instanz dann am Ende freigegeben werden soll, kommt im Intervall meines Timers ein Fehlermeldung mit nem Nilpointer.

Mein Code sieht wiefolgt aus:
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Addraws, AdClasses, AdTypes, ExtCtrls, StdCtrls, AdComponents,
  AdGUIConnector, AdGUI;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
  private
  public
    AdDraw : TAdDraw;
    AdGUI : TAdGUI;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := 'AndorraDX93D.dll';
  AdDraw.Options := AdDraw.Options + [DoFullscreen];
  AdDraw.Display.Width := 800;
  Addraw.Display.Height := 600;
  AdDraw.Display.BitCount := 32;
  if not AdDraw.Initialize then
  begin
    ShowMessage('Andorra 2D konnte nicht gestartet werden.');
    halt;
  end;
  AdGUI := TAdGUI.Create(AdDraw);
  AdGUI.Skin.LoadFromFile('sunna.axs');
  AdGUI.Cursors.LoadFromFile('Cursors.xml');
  AdGUI.LoadFromFile('Test.axg');
  ShowMessage('Es wurde alles initialisiert!');
  Timer1.Enabled := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AdDraw.Free;
  AdGui.Free; //lässt man diese Zeile weg, kommen keine Fehlermeldungen
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#27) then
    halt;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AdDraw.ClearSurface(clblack);
  AdDraw.Flip;
end;

end.
Ist halt eigentlich nur ein schwarzer Bildschirm mit der GUI drauf, die nur aus einem Button besteht.
Hoffe ihr könnt mir helfen, ich habe die Vermutung, dass bei mir diese Bedingung nicht erfüllt ist
Zitat:
Beachten Sie, dass Sie zum kompilieren eines Programms mit Andorra 2D GUI die Komponentensammlung "JVCL" installiert haben müssen, bzw. die benötigte Bibliothek "JvSimpleXML" und alle dazugehörigen Dateien im Suchpfad von Delphi eingetragen sind (unter Delphi in Tools->Optionen->Bibliothek - Win32).
Da ich nicht genau weiß wie das geht, habe ich einfach das JVCL-Projekt komplett gedownloadet und zu den Suchpfad und Bibliothekssuchpfad von Delphi hinzugefügt.
habe ich dabei was falsch gemacht?

mfg Looper
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:54 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