wglUseFontBitmaps

wglUseFontBitmaps

Name

wglUseFontBitmaps - Erzeugt aus der Schrifteinstellungen des Display Context eine Reihe von glBitmap Befehlen für die Buchstaben und speichert diese in Display Listen.

Delphi-Spezifikation

function wglUseFontBitmaps (DC: HDC; p2, p3, p4: DWORD): BOOL;

Parameter sind nicht gerade aussagekräfig und stimmen nicht mit der Delphi Hilfe überein. Nur leider stehen sie so in der DGLopenGL.pas

Parameter

DC	Ein Display Context mit entsprechenden Font-Einstellungen.
p1 / first	Mit welchen Zeichen soll begonnen werden	p2 / count	Anzahl der zu erzeugenden Listen/Zeichen	p3 / listBase	Der Name/Index der Liste für das erste Zeichen

Beschreibung

Die Schrifteinstellungen des Display Contextes werden genutzt, um mit glBitmap-Befehlen die angebenen Zeichen in Display Listen zu speichern. Wenn ein Fehler auftritt wird statt true, false zurückgegeben und der Fehler kann über GetLastError abgerufen werden.

Hinweise

Jede Display Liste erhält logischerweise nur einen glBitmap Aufruf.

Da der glBitmap Befehl genutzt wird ändert sich die Rasterposition nach aufruf einer Liste.

Falls für ein Zeichen in der gewählten Schrift keine Daten vorliegen wird für dieses Zeichen eine leere Displayliste zurückgegeben.

Die durch diese Funktion unter Windows zur Verfügung stehende Schrift hat eine festgelegte Größe und ist logischerweise nur 2D. Möchte man eine 3D-Schrift haben so kann man dafür den Befehl wglUseFontOutlines benutzen.

Beispiel

var
  FontLists:Cardinal;


procedure CreateLists;// Wird einmal am Anfang aufgerufen
var
  CustomFont:HFont;
begin
  FontLists := glGenLists(256);
  (*CustomFont := GetStockObject (SYSTEM_FONT);*)//Eine Alternative zu CreateFont
  CustomFont := CreateFont(
                           32,                  // Höhe
                           0,                   // Breite 0=Keine Vorgabe
                           0,
                           0,
                           0,                   // Fett?
                           0,                   // Kursiv?
                           0,                   // Unterstrichen?
                           0,                   // Durchgestrichen?
                           ANSI_CHARSET,
                           OUT_TT_PRECIS,
                           CLIP_DEFAULT_PRECIS,
                           NONANTIALIASED_QUALITY,
                           FF_DONTCARE or DEFAULT_PITCH,
                           'Times New Roman'); // Name der Schrift
  SelectObject(glControl1.DC, CustomFont);
  wglUseFontBitmaps (glControl1.DC, 0, 255, FontLists);
end;


procedure ShowText(pText:String);
begin
   glListBase(FontLists); //Liste auswählen
   glCallLists(Length(pText), GL_UNSIGNED_BYTE, Pointer(pText));//Entsprechende Listen aufrufen
end;


procedure Draw;//Zeichen Routine
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glColor3f(1,0.5,0);//Aktuelle Farbe für glRasterPos festlegen
  glRasterPos3f(-0.1,0,-1); //(sichtbare) Rasterposition eintellen
  ShowText('OpenGL');
  ShowText(' Wiki');//Steht nach "OpenGL" da glBitmap die Rasterposition verschiebt.
end;

Siehe auch

glBitmap, glListBase, glCallLists, wglUseFontOutlines