wglUseFontBitmaps

Aus DGL Wiki
Wechseln zu: Navigation, Suche

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