wglUseFontBitmaps
Inhaltsverzeichnis
wglUseFontBitmaps
Name
wglUseFontBitmaps - Erzeugt aus der Schrifteinstellungen des Device Context eine Reihe von glBitmap Befehlen für die Buchstaben und speichert diese in Display Listen.
Delphi-Spezifikation
function wglUseFontBitmaps (DC: HDC; first, count, listBase: DWORD): BOOL;
Parameter
DC | Ein Display Context mit entsprechenden Font-Einstellungen. |
---|---|
first | Mit welchen Zeichen soll begonnen werden |
count | Anzahl der zu erzeugenden Listen/Zeichen |
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(Device_Context_Handle, 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;