[Andorra] - Auf Events reagieren ?

[mimi]

Kann ich gerne machen. Aber ich glaube es dürfte ein allgemeiner Fehler sein.
Im Anhang findest du das Komplett Projekt. Die Grafiken sind NICHT von mir. Sie stammen von hier:
http://www.secretmaryo.org/
oder von einem Andorra Tutorial.

Hier mal ein Code-Auszug:

Delphi-Quellcode:

constructor TPlSMC.Create(aForm:TForm);
begin
  inherited Create;
  AdDraw :=TAdDraw.Create(aForm);
  AdDraw.DllName := '/media/sda6/Michael/daten/add_lazarus/ad2d_451_ALL/bin/AndorraOGLLaz.so';
  AdPerCounter:=TAdPerformanceCounter.Create;
  if AdDraw.Initialize then begin

    AdImageList := TAdImageList.Create(AdDraw);
    with AdImageList.Add('bricks') do begin
      Texture.LoadGraphicFromFile('image/bricks_sand.png',true,clFuchsia);  // Dieses mal laden wir das Bild transparent herein
      PatternWidth := 64;
      PatternHeight := 64;
    end;
    AdImageList.Restore;

    AdSpriteEngine := TSpriteEngineEx.Create(nil);
    AdSpriteEngine.Surface := AdDraw;
    AdSpriteEngine.Zoom:=3;
    Application.OnIdle:=Idle;
    AdDraw.Window.Events.OnKeyDown:=KeyDown;
    AdDraw.Window.Events.OnMouseDown:=MouseDown;

  end
  else
  begin
    writeln(AdDraw.GetLastError);
    halt; //<-- Schließt die komplette Anwendung
  end;
end; // TPlSMC.Create

Wenn dann ist es ein Fehler in der reihenfolge.

Edit01 Es ist ein Lazarus Projekt 0.9.27 ich hoffe das läuft bei dir.