nö die sollte eich da sein
Delphi-Quellcode:
//------------------------------------------------------------------------------
// 2d Engien Erzeugen
//------------------------------------------------------------------------------
procedure TFrmMain.grafikEngineCreate;
begin
AdDraw := TAdDraw.Create(self);
AdDraw.DllName := 'AndorraOGL.dll';
AdPerCounter := TAdPerformanceCounter.Create;
adSpriteEngine := TSpriteEngine.Create(nil);
adSpriteEngine.Surface := adDraw;
end;
//______________________________________________________________________________
Aufruf der Procedure
Delphi-Quellcode:
//------------------------------------------------------------------------------
// On Create
//------------------------------------------------------------------------------
procedure TFrmMain.FormCreate(Sender: TObject);
begin
//------ 2D Engine wird erzeugt -----
grafikEngineCreate;
if AdDraw.Initialize then
begin
//------ Spieldaten werden geladen -----
dat := TData.Create(adDraw);
dat.dataload;
//------ Spielfeld wird geladen ----
feld := TFeld.create(54,50);
end
else
begin
Application.MessageBox('Fehler beim Laden der Grafik Engine!','ERROR',MB_OK +MB_ICONERROR);
Close;
end;
end;
//______________________________________________________________________________
mfg