Einzelnen Beitrag anzeigen

Benutzerbild von Spiderpig_GER_15
Spiderpig_GER_15

Registriert seit: 17. Mär 2008
298 Beiträge
 
Delphi 7 Personal
 
#11

Re: [Andorra] seltsamster Fehler bei AdDraw.dllname:='xy.dll

  Alt 27. Feb 2009, 21:23
ja, denke ich schon:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdPerCounter := TAdPerformanceCounter.Create;

  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := ExtractFilePath(ParamStr(0)) + 'andorraOGL.dll';

  if AdDraw.Initialize then
  begin
    Application.OnIdle := Idle;
    AdImageList := TAdImageList.Create(AdDraw);
    with AdImageList.Add('tank_red') do
    begin
      Texture.LoadGraphicFromFile('tank_red.bmp',true,clFuchsia);

    end;
    AdImageList.Restore;

    angle:= 0;

  end
  else
  begin
    ShowMessage('Error while initializing Andorra 2D. Try to use another display '+
                'mode or another video adapter.');
    Close;
  end;
end;
---Zufall ist das Inkognito Gottes---
  Mit Zitat antworten Zitat