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:

type
  TForm1 = class(TForm)
    ...
  private
    FFont: TglBitmapText;
  end;

implematation

procedure TForm1.FormShow(Sender: TObject);  // Oder wo auch immer OpenGL initialisiert wird.
begin
  // OpenGL Initialisieren
  // Wichtig! Du musst dann den DGL OpenGL Header verwenden. Sonst geht es nicht!

  FFont := TglBitmapText.Create(FDC); 
  // FDC ist der DeviceContext der Zeichenfläche. 
  // Wird auch zum erstellen des Contextes benutzt
  FFont.Font.Name := 'Tahoma';
  FFont.Font.Size := 8;
  FFont.Font.Style := [fsBold];
  FFont.BuildFont;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FFont.Free;
end;

procedure TForm1.Draw;
begin
  // Sonst etwas zeichnen.
  ...

  // Hier müssen wir uns im 2D Modus befinden.
  glRasterPos2i(ClientWidth - 100, 13);   // positionieren
  FFont.PrintText('100%');                // zeichnen

  glRasterPos2i(ClientWidth - 100 + 7, 12 + (ClientHeight - 20) * 25 div 100);
  FFont.PrintText('75%');

  ...
end;					

1:
2:
3:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglopengl, StdCtrls, gltext, textures, glbitmap;					

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

  fFont := TglTextureText.Create;
  fFont.Texture := TglBitmap2D.Create;
  fFont.Texture.SetFilter(GL_LINEAR, GL_LINEAR);
  fFont.Texture.MipMap := mmNone;
  fFont.Texture.LoadFromFile('Tahoma.tga');
  fFont.Texture.GenTexture;

  fFont.CharSpacing := 1;
  fFont.ReadCharWidthsFromIni(ExtractFilePath(ParamStr(0)) + 'Tahoma.ini', 'Char Widths');
  fFont.BuildFont;					

1:
2:

  fFont.Texture.Free;
  fFont.Free;					

1:
2:
3:
4:

  glPushMatrix;
    glTranslatef(20, 20, 0);
    fFont.PrintText('Blahh');
  glPopMatrix;