[OpenGL] Startmenü

[Namenloser]

Die Funktion muss noch im interface deklariert werden:

Delphi-Quellcode:

unit BullsMenu;

interface

uses Sprites, FontSprites, Constants;

// hier:
function BMenuItem(eintrag:TStringSprite; x,y,width,height: Single; Align: Integer): TStringSprite;

implementation

function BMenuItem(eintrag:TStringSprite; x,y,width,height: Single; Align: Integer): TStringSprite;
VAR Map : TTextureSprite;
BEGIN
  eintrag := TStringSprite.CreateString(String(eintrag), x, y, width, height, align);
  eintrag.Font := Constants.FontTexture;
  eintrag.Space := 0.5;
  eintrag.Z := 0;
  eintrag.Alignment := FontSprites.STRING_ALIGNMENT_LEFT;
  Map.AddSprite(eintrag);
END;

END.