Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[I.A]

Halloooo,

Ich habe jetzt das Handbuchbeispiel in Delphi 7 (Per) eingegeben.

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADDraws, ADClasses, ADTypes;

type
  TAdForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure Idle(Sender: TObject; var Done: Boolean);
  end;

var
  AdForm: TAdForm;
  ADDraw: TADDraw;
  AdImageList: TAdImageList;


implementation

{$R *.dfm}

procedure TAdForm.FormCreate(Sender: TObject);
begin
  ADDraw := TADDraw.Create(Self);
  AdDraw.DllName := 'AndorraDX93D.dll';

  if AdDraw.Initialize then
  begin
    // Hier geht's gleich weiter
    Application.OnIdle := Idle;

    AdImageList := TAdImageList.Create(AdDraw);
    with AdImageList.Add('bild') do //Zu der Liste wird ein Bild mit dem Namen "bild" hinzugefügt.
    begin
      Texture.LoadGraphicFromFile('Gins.bmp'); //In die Textur wird ein Bild hineingeladen.
    end;
    AdImageList.Restore;
    //Hier geht es jetzt weiter mit zeichnen

  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 TAdForm.FormDestroy(Sender: TObject);
begin
  ADDraw.Free;
end;

procedure TAdForm.Idle(Sender: TObject; var Done: Boolean);
begin
  if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann...
  begin
    //auch hier geht's bald weiter.
    AdDraw.BeginScene;

    AdDraw.EndScene;
    AdDraw.Flip;
  end;
  Done := false;
end;

end.

Habe die Dlls nicht mit D7 neu übersetzt. Das wird empfohlen, das die Dlls mit Turbo Delphi übersetzt sind. In der Empfehlung steht aber auch, das bei falscher Dll-Version eine Exception kommt. Die erhalte ich aber nicht. Aber die Bitmap (Habe eine andere genommen, da ich Texture.bmp, wie im Original angegeben nicht habe. Die Bitmap wird aber nicht angezeigt, sondern sowas hier: