1:

  Engine: TEngine;                    

1:

    procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);                    

1:
2:
3:

  Engine := TEngine.Create;
  Engine.Init(self);
  Application.OnIdle := ApplicationEventsIdle;                    

1:

  Engine.Free;                    

1:
2:
3:
4:
5:
6:

procedure TMainForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  Engine.DoBegin;
  Engine.DoEnd;
  Done := false;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  Obj: TSimpleObject;
{...}
begin
  Obj := TSimpleObject.Create;
  with Obj do 
  begin
    position.x := clientwidth / 2;
    position.y := clientheight / 2;
    z := 0;
    size.x := 50;
    size.y := 50;
    texture := 'mytex';
    usealpha := true;
    alpha := 255 div 2;
  end;
end;                    

1:

  Engine.TextureManager.AddTexture                    

1:

  Engine.TextureManager.AddTexturesInDir                    

1:

  Obj.Draw(Engine, true);                    

1:

  Engine.SoundManager.AddSound                    

1:

Engine.SoundManager.AddSoundsInDir                    

1:
2:

  SO.alphatest := true;
  SO.alphatolerance := 0.8; // mal biss rumprobieren, mit 0.8 sollte es auf jedenfall gehEN, am besten weniger nehmen, aber sobald man einen weißen rand sieht, ist der wert zu tief                    

1:

Engine := TEngine.Create(false);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TEngine.DoFullscreen;
begin
  with Form do
  begin
    //Ecke oben links
    top := 0;
    left := 0;
    //Volle Größe
    clientwidth := screen.width;
    clientheight := screen.height;
    //Status maximiert
    Windowstate := wsMaximized;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

unit fear2d;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, F2D_Core;

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

var
  Form1: TForm1;
  Engine: TEngine;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Engine := TEngine.Create;
  Engine.Init(self);
  Application.OnIdle := ApplicationEventsIdle;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Engine.Free;
end;

procedure TMainForm.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  Engine.DoBegin;
  Engine.DoEnd;
  Done := false;
end;

end.                    

1:

Emitter.Render                    

1:
2:

uses
...F2D_Core, F2D_Objects, F2D_Vectors, F2D_ParticleEngine, F2D_Text, F2D_TextureManager;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
begin
  Engine.DoBegin;
    Obj.Draw(true);
    Emitter.Render;// hier kommt der Fehler
  Engine.DoEnd;
  Done := false;
end;                    

1:
2:

var
  Emitter: TParticleEmitter;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

  Emitter := TParticleEmitter.Create(Engine);
  with Emitter do
  begin
    position := to_v2d(Engine.width / 2, Engine.Height / 2);
    angle := 90;
    emissionangle := 360;
    Emissionfrequency := 20;
    ParticlesPerEmission := 8;
    Texture := 'spark';
    LifeSpan := 2500;

    Duration := 2500;

    width := 0;

    velocity := 100;

    z := 1;

    with LifeBegin do
    begin
      alpha := 255;
      size := to_v2d(50, 50);
      color := clwhite;
    end;

    with LifeEnd do
    begin
      alpha := 0;
      size := to_v2d(75, 75);
      color := RGB(255, 125, 0);
    end;    
  end;                    

1:

"objekt".position.x := "objekt".position.x := + 1;                    

1:
2:
3:
4:
5:
6:
7:
8:

    Engine.Init(self);

    Engine.FontManager.AddFont('myfont','arial',60,[fsItalic]);
{...}

    Engine.DoBegin;
    Engine.FontManager.BindFont('myfont',clRed);
    Engine.TextOut(10,50,'FEAR2D Demo,  (c) Martok');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

destructor TTextureManager.Destroy;
var
  i                           : Integer;
begin
  // HashedStringList freigeben
  for i := 0 to Textures.Count - 1 do  //Das ist neu, hier werden erst alle Objekte in der Liste freigegeben.
    Textures.Objects[i].Free;
  Textures.Free;

  inherited Destroy;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

destructor TFontManager.Destroy;
var
  i                           : Integer;
begin
  // HashedStringList freigeben
  for i := 0 to Fonts.Count - 1 do  //Auch hier erst die Objekte freigeben
    Fonts.Objects[i].Free;
  Fonts.Free;

  inherited Destroy;
end;                    

 
194:
195:
196:
197:

{ ... }
    // Loop setzen / nicht setzen
    if ((not (Info.Flags = BASS_SAMPLE_LOOP)) AND (pLoop)) OR
        (Info.Flags = BASS_SAMPLE_LOOP) AND (not pLoop) then
      BASS_ChannelFlags(aChannel, BASS_SAMPLE_LOOP, DWORD(-1)); //BASS_ChannleSetFlags gibt's nicht mehr                    

1:
2:
3:
4:
5:
6:
7:

    {$ifdef GLB_DELPHI}
      function AssignToBitmap(const Bitmap: TBitmap): boolean;
      function AssignFromBitmap(const Bitmap: TBitmap): boolean;
      function AssignAlphaToBitmap(const Bitmap: TBitmap): boolean;

      function AddAlphaFromBitmap(Bitmap: TBitmap; Func: TglBitmapFunction = nil; CustomData: Pointer = nil): boolean;
    {$endif}                    

1:
2:

{.$define GLB_DELPHI}
// To enable the support for TBitmap from Delphi (not lazarus)                    

1:

{$ifdef unicode} BASS_UNICODE{$endif}