wglUseFontBitmaps: Unterschied zwischen den Versionen

Aus DGL Wiki
Wechseln zu: Navigation, Suche
K (→‎Procedural: Pascal Tags eingesetzt)
 
(7 dazwischenliegende Versionen von 4 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
 
= wglUseFontBitmaps =
 
= wglUseFontBitmaps =
  
−
<br>
+
 
 +
 
 
== Name ==
 
== Name ==
 
'''wglUseFontBitmaps''' - Erzeugt aus der Schrifteinstellungen des [[Device Context]] eine Reihe von [[glBitmap]] Befehlen für die Buchstaben und speichert diese in [[Displaylisten]].
 
'''wglUseFontBitmaps''' - Erzeugt aus der Schrifteinstellungen des [[Device Context]] eine Reihe von [[glBitmap]] Befehlen für die Buchstaben und speichert diese in [[Displaylisten]].
Zeile 11: Zeile 12:
  
  
−
<br>
+
 
 +
 
  
 
== Parameter ==
 
== Parameter ==
Zeile 29: Zeile 31:
 
|}
 
|}
  
−
<br>
 
  
−
== Beschreibung ==
 
−
Die Schrifteinstellungen des [[Display Context]]es werden genutzt, um mit [[glBitmap]]-Befehlen die angebenen Zeichen in [[Displaylisten]] zu speichern.
 
−
Wenn ein Fehler auftritt wird statt '''true''', '''false''' zurückgegeben und der Fehler kann über GetLastError abgerufen werden.
 
  
−
<br>
+
 
 +
== Beschreibung ==
 +
Die Schrifteinstellungen des [[Device Context]]es werden genutzt, um mit [[glBitmap]]-Befehlen die angebenen Zeichen in [[Displaylisten]] zu speichern.
 +
Wenn ein Fehler auftritt, wird statt '''true''', '''false''' zurückgegeben und der Fehler kann über [[GetLastError]] abgerufen werden.
 +
 
 
== Hinweise ==
 
== Hinweise ==
 
Jede Display Liste erhält logischerweise nur einen [[glBitmap]] Aufruf.
 
Jede Display Liste erhält logischerweise nur einen [[glBitmap]] Aufruf.
Zeile 50: Zeile 52:
  
 
=== Procedural ===
 
=== Procedural ===
−
<pascal>
+
<source lang="pascal">
 
var
 
var
 
   FontLists: Cardinal;
 
   FontLists: Cardinal;
Zeile 86: Zeile 88:
 
   wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
 
   wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
 
end;
 
end;
−
</pascal>
+
</source>
  
 
=== Objekt orientiert ===
 
=== Objekt orientiert ===
  
−
'''var'''
+
<source lang="pascal">
−
  Font: TFont;
+
var
−
<br>
+
  Font: TFont;
−
'''procedure '''CreateLists; <font color="#000080">''// Wird einmal am Anfang aufgerufen''</font>
+
 
−
'''var'''
+
 
−
  CustomFont: HFont;
+
procedure CreateLists; // Wird einmal am Anfang aufgerufen
−
<b>begin
+
begin
−
  </b>FontLists := glGenLists(<font color="#000080">256</font>);
+
  FontLists := glGenLists(256);
−
  <br>
+
 
−
  Font := TFont.Create;  <font color="#000080">''// Instanz einer Fontklasse erstellen''</font>
+
 
−
  '''try'''
+
  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
−
    Font.Name := 'Times New Roman'; <font color="#000080">''// Name''</font>
+
  try
−
    Font.Size := 32;                <font color="#000080">''// Schriftgröße''</font>
+
    Font.Name := 'Times New Roman'; // Name
−
    Font.Style := [fsBold];        <font color="#000080">''// Styles (fsBold, fsItalic, ...)''</font>
+
    Font.Size := 32;                // Schriftgröße
−
    <br>
+
    Font.Style := [fsBold];        // Styles (fsBold, fsItalic, ...)
−
    SelectObject(DC, Font.Handle);              <font color="#000080">''// Font auf einen Device Context benutzen''</font>
+
   
−
    wglUseFontBitmaps (DC, 0, 255, FontLists);  <font color="#000080">''// Mit selektiertem Font Zeichen erstellen''</font>
+
 
−
  '''finally'''
+
    SelectObject(DC, Font.Handle);              // Font auf einen Device Context benutzen
−
    FreeAndNil(Font);  <font color="#000080">''// erstellte Instanz wieder frei geben''</font>
+
    wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
−
  '''end''';
+
  finally
−
'''end''';
+
    FreeAndNil(Font);  // erstellte Instanz wieder frei geben
 +
  end;
 +
end;
 +
</source>
  
 
=== Bitmapfonts benutzen ===
 
=== Bitmapfonts benutzen ===
  
−
'''procedure''' ShowText(pText: '''String''');
+
<source lang="pascal">
−
<b>begin
+
procedure ShowText(pText: AnsiString);
−
    </b>glListBase(FontLists);  <font color="#000080">''// Liste auswählen''</font>
+
begin
−
    glCallLists(Length(pText), GL_UNSIGNED_BYTE, Pointer(pText));  <font color="#000080">''// Entsprechende Listen aufrufen''</font>
+
  glListBase(FontLists);  // Liste auswählen
−
'''end''';
+
  glCallLists(Length(pText), GL_UNSIGNED_BYTE, Pointer(pText));  // Entsprechende Listen aufrufen
−
<br>
+
end;
−
'''procedure '''Draw;  <font color="#000080">''// Zeichen Routine''</font>
+
 
−
'''begin'''
+
 
−
  glClear(GL_COLOR_BUFFER_BIT '''or '''GL_DEPTH_BUFFER_BIT);
+
procedure Draw;  // Zeichen Routine
−
  glColor3f(1,0.5,0);        <font color="#000080">''// Aktuelle Farbe f&uuml;r glRasterPos festlegen''</font>
+
begin
−
  glRasterPos3f(-0.1,0,-1);  <font color="#000080">''// (sichtbare) Rasterposition eintellen''</font>
+
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
−
  ShowText(<font color="#FF2222">'OpenGL '</font>);
+
  glColor3f(1,0.5,0);        // Aktuelle Farbe für glRasterPos festlegen
−
  ShowText(<font color="#FF2222">'Wiki'</font>);          <font color="#000080">''// Steht nach &quot;OpenGL&quot; da glBitmap die Rasterposition verschiebt.''</font>
+
  glRasterPos3f(-0.1,0,-1);  // (sichtbare) Rasterposition eintellen
−
'''end''';
+
  ShowText('OpenGL ');
 +
  ShowText('Wiki');          // Steht nach "OpenGL" da glBitmap die Rasterposition verschiebt.
 +
end;
 +
 
 +
</source>
  
 
==Siehe auch ==
 
==Siehe auch ==

Aktuelle Version vom 16. November 2010, 18:57 Uhr

wglUseFontBitmaps

Name

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

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 Device Contextes werden genutzt, um mit glBitmap-Befehlen die angebenen Zeichen in Displaylisten 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

Zum Erstellen der Bitmapfonts gibt es wie üblich mehrere Wege. Einmal den Weg direkt über die Windowsapi oder den Weg über die Delphiklasse TFont. Das Zeichnen bleibt bei beiden gleich. Aus diesem Grund ist es auch vom Rest ein wenig getrennt.

Procedural

var
  FontLists: Cardinal;


procedure CreateLists; // Wird einmal am Anfang aufgerufen
var
  CustomFont: HFont;
begin
  FontLists := glGenLists(256);
  

  // CustomFont := GetStockObject (SYSTEM_FONT);
  // Eine Alternative mit der man die Systemschriftart zurück bekommt.
  

  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(DC, CustomFont);               // Font auf einen Device Context benutzen
  wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
end;

Objekt orientiert

var
  Font: TFont;


procedure CreateLists; // Wird einmal am Anfang aufgerufen
begin
  FontLists := glGenLists(256);
  

  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
  try
    Font.Name := 'Times New Roman'; // Name
    Font.Size := 32;                // Schriftgröße
    Font.Style := [fsBold];         // Styles (fsBold, fsItalic, ...)
    

    SelectObject(DC, Font.Handle);              // Font auf einen Device Context benutzen
    wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
  finally
    FreeAndNil(Font);  // erstellte Instanz wieder frei geben
  end;
end;

Bitmapfonts benutzen

procedure ShowText(pText: AnsiString);
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

Abgerufen von „https://wiki.delphigl.com/index.php?title=wglUseFontBitmaps&oldid=24986“