wglUseFontBitmaps - Versionsgeschichte

Mikescher am 16. November 2010 um 17:57 Uhr

2010-11-16T17:57:47Z

DGLBot: Der Ausdruck ''(.*?)'' wurde ersetzt mit ''$1''.

2009-03-10T18:22:23Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

Thoronador: Tippfehler korrigiert.

2008-08-17T04:15:02Z

Tippfehler korrigiert.

Berens: /* Objekt orientiert */ var CustomFont: HFont; wird nicht benötigt

2007-02-27T09:46:17Z

‎Objekt orientiert: var CustomFont: HFont; wird nicht benötigt

DGLBot: Bot: konvertiere/korrigiere

2006-04-22T18:27:15Z

Bot: konvertiere/korrigiere <BR>

DGLBot: WglUseFontBitmaps wurde nach wglUseFontBitmaps verschoben

2005-12-05T20:26:20Z

WglUseFontBitmaps wurde nach wglUseFontBitmaps verschoben

Flo: /* Bitmapfonts benutzen */ Pascal Tags eingesetzt

2005-12-03T17:30:36Z

‎Bitmapfonts benutzen: Pascal Tags eingesetzt

Flo: /* Objekt orientiert */ Pascal Tags eingesetzt

2005-12-03T17:30:08Z

‎Objekt orientiert: Pascal Tags eingesetzt

Flo: /* Procedural */ Pascal Tags eingesetzt

2005-12-03T17:29:30Z

‎Procedural: Pascal Tags eingesetzt

DGLBot: Bot: konvertiere/korrigiere HTML

2005-12-03T17:25:58Z

Bot: konvertiere/korrigiere HTML

Änderungen zeigen

@@ Zeile 120: / Zeile 120: @@
 <source lang="pascal">
-procedure ShowText(pText: String);
+procedure ShowText(pText: AnsiString);
 begin
     glListBase(FontLists);  // Liste auswählen

@@ Zeile 34: / Zeile 34: @@
 == Beschreibung ==
-Die Schrifteinstellungen des [[Display Context]]es werden genutzt, um mit [[glBitmap]]-Befehlen die angebenen Zeichen in [[Displaylisten]] zu speichern.
+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.
+Wenn ein Fehler auftritt, wird statt '''true''', '''false''' zurückgegeben und der Fehler kann über [[GetLastError]] abgerufen werden.
 == Hinweise ==

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

@@ Zeile 1: / Zeile 1: @@
 = wglUseFontBitmaps =
-<br>
 == Name ==
 '''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 ==
@@ Zeile 29: / Zeile 31: @@
 |}
-<br>
 == Beschreibung ==
@@ Zeile 35: / Zeile 38: @@
 Wenn ein Fehler auftritt wird statt '''true''', '''false''' zurückgegeben und der Fehler kann über GetLastError abgerufen werden.
-<br>
 == Hinweise ==
 Jede Display Liste erhält logischerweise nur einen [[glBitmap]] Aufruf.

@@ Zeile 119: / Zeile 119: @@
 === Bitmapfonts benutzen ===
- '''procedure''' ShowText(pText: '''String''');
+<pascal>
- <b>begin
+procedure ShowText(pText: String);
-    </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 ');
 ==Siehe auch ==

@@ Zeile 52: / Zeile 52: @@
 === Procedural ===
-<pascal>
+<source lang="pascal">
 var
    FontLists: Cardinal;
@@ Zeile 88: / Zeile 88: @@
    wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
 end;
-</pascal>
+</source>
 === Objekt orientiert ===
-<pascal>
+<source lang="pascal">
 var
    Font: TFont;
@@ Zeile 115: / Zeile 115: @@
    end;
 end;
-</pascal>
+</source>
 === Bitmapfonts benutzen ===
-<pascal>
+<source lang="pascal">
 procedure ShowText(pText: String);
 begin
@@ Zeile 136: / Zeile 136: @@
 end;
-</pascal>
+</source>
 ==Siehe auch ==

← Nächstältere Version	Version vom 5. Dezember 2005, 20:26 Uhr
(kein Unterschied)

@@ Zeile 90: / Zeile 90: @@
 === Objekt orientiert ===
- '''var'''
+<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
+var
-   </b>FontLists := glGenLists(<font color="#000080">256</font>);
+  CustomFont: HFont;
-   <br>
+begin
-   Font := TFont.Create;  <font color="#000080">''// Instanz einer Fontklasse erstellen''</font>
+  FontLists := glGenLists(256);
-   '''try'''
-     Font.Name := 'Times New Roman'; <font color="#000080">''// Name''</font>
-     Font.Size := 32;                <font color="#000080">''// Schriftgröße''</font>
+  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
-     Font.Style := [fsBold];         <font color="#000080">''// Styles (fsBold, fsItalic, ...)''</font>
+  try
-     <br>
+    Font.Name := 'Times New Roman'; // Name
-     SelectObject(DC, Font.Handle);              <font color="#000080">''// Font auf einen Device Context benutzen''</font>
+    Font.Size := 32;                // Schriftgröße
-     wglUseFontBitmaps (DC, 0, 255, FontLists);  <font color="#000080">''// Mit selektiertem Font Zeichen erstellen''</font>
+    Font.Style := [fsBold];         // Styles (fsBold, fsItalic, ...)
-   '''finally'''
-     FreeAndNil(Font);  <font color="#000080">''// erstellte Instanz wieder frei geben''</font>
-   '''end''';
+    SelectObject(DC, Font.Handle);              // Font auf einen Device Context benutzen
- '''end''';
+    wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
 === Bitmapfonts benutzen ===

@@ Zeile 50: / Zeile 50: @@
 === Procedural ===
- '''var'''
-   FontLists: Cardinal;
+procedure CreateLists; // Wird einmal am Anfang aufgerufen
- <br>
+var
- '''procedure '''CreateLists; <font color="#000080">''// Wird einmal am Anfang aufgerufen''</font>
+  CustomFont: HFont;
- '''var'''
+begin
-   CustomFont: HFont;
+  FontLists := glGenLists(256);
- <b>begin
-   </b>FontLists := glGenLists(<font color="#000080">256</font>);
-   <br>
+  // CustomFont := GetStockObject (SYSTEM_FONT);
-   <font color="#000080">''// CustomFont := GetStockObject (SYSTEM_FONT);''</font>
+  // Eine Alternative mit der man die Systemschriftart zurück bekommt.
-   <font color="#000080">''// Eine Alternative mit der man die Systemschriftart zurück bekommt.''</font>
-   <br>
-   CustomFont := CreateFont(
+  CustomFont := CreateFont(
-                            <font color="#000080">32</font>,                  <font color="#000080">''// H&ouml;he''</font>
+,                  // Höhe
-,                   <font color="#000080">''// Breite 0=Keine Vorgabe''</font>
+,                   // Breite 0=Keine Vorgabe
 ,
 ,
-,                   <font color="#000080">''// Fett?''</font>
+,                   // Fett?
-,                   <font color="#000080">''// Kursiv?''</font>
+,                   // Kursiv?
-,                   <font color="#000080">''// Unterstrichen?''</font>
+,                   // Unterstrichen?
-,                   <font color="#000080">''// Durchgestrichen?''</font>
+,                   // Durchgestrichen?
-                            ANSI_CHARSET,
+                           ANSI_CHARSET,
-                            OUT_TT_PRECIS,
+                           OUT_TT_PRECIS,
-                            CLIP_DEFAULT_PRECIS,
+                           CLIP_DEFAULT_PRECIS,
-                            NONANTIALIASED_QUALITY,
+                           NONANTIALIASED_QUALITY,
-                            FF_DONTCARE '''or '''DEFAULT_PITCH,
+                           FF_DONTCARE or DEFAULT_PITCH,
-                            <font color="#FF2222">'Times New Roman'</font>);  <font color="#000080">''// Name der Schrift''</font>
+                           'Times New Roman');  // Name der Schrift
-   <br>
-   SelectObject(DC, CustomFont);               <font color="#000080">''// Font auf einen Device Context benutzen''</font>
-   wglUseFontBitmaps (DC, 0, 255, FontLists);  <font color="#000080">''// Mit selektiertem Font Zeichen erstellen''</font>
+  SelectObject(DC, CustomFont);               // Font auf einen Device Context benutzen
- '''end''';
+  wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
 === Objekt orientiert ===