Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[STS301]

Delphi-Quellcode:

unit xy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdDraws, AdClasses;

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    AdDraw1:TAdDraw;{ Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
AdDraw1 := TAdDraw.Create(self);
AdDraw1.DllName := 'AndorraDX93D.dll';

if AdDraw1.Initialize then
begin 
  // Hier gehts gleich weiter 
end 
else 
begin 
  ShowMessage('Error while initializing Andorra 2D. Try to use another display'+
              'mode or use another video adapter.'); 
  halt; //<-- Schließt die komplette Anwendung 
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
AdDraw1.Free;
end;

end.

so sieht der Source code aus

die demos funktionieren tadellos