[Andorra] Text auf Sprites ausgeben

[igel457]

Und was ist mit

Delphi-Quellcode:

with Engine.Surface.Fonts.GenerateFont('Arial',12,[]) do
begin
  TextOut(x,y,'Test');
end;

EDIT: Also folgendes funktioniert bei mir:

Delphi-Quellcode:

procedure TCharacter.DoDraw;
begin
  inherited;
  with Engine.Surface.Canvas do
  begin
    TextOut(Round(WorldX),Round(WorldY),'bla');
  end;
end;