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.