Text einfügen - keine Änderung des Styles möglich ?!

moelski · **Registriert:** Fr Apr 15, 2005 10:30 **Beiträge:** 28

Moin !

Ich bastele gerade wieder an meiner 3D Visualisierung von GPS Daten. Sieht soweit auch schon ganz brauchbar aus:
http://www.logview.info/phpBB2/download.php?id=228 (Screenshot)

Wie man auf dem Screenshot sieht habe ich Text eingefügt, und zwar nach der Anleitung aus dem Wiki. Nach etwas Anpassung rennt das soweit auch ganz gut. Aber ... Ich kann den FontStyle nicht ändern.

Hier die Einrichtung des Fonts:

Code:

procedure CreateLists; // Wird einmal am Anfang aufgerufen
var
  CustomFont: HFont;
begin
  FontLists := glGenLists(256);
  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
  try
    Font.Name := 'Verdana';     // Name
    Font.Size := 60;            // Schriftgröße
    Font.Style := [];           // Styles (fsBold, fsItalic, ...)
    
 
    SelectObject(GetDC(MainForm.Panel1.Handle), Font.Handle);              // Font auf einen Device Context benutzen
    wglUseFontBitmaps (GetDC(MainForm.Panel1.Handle), 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
  finally
    FreeAndNil(Font);  // erstellte Instanz wieder frei geben
  end;
end;

Und so rufe ich das auf:

Zitat:

glcolor3b(110,127,-70); // Aktuelle Farbe für glRasterPos festlegen
glRasterPos3f(x[maxZPos], 1.4, z[maxZPos]); // (sichtbare) Rasterposition eintellen
ShowInfoText('N<->S ' + FormatFloat('0.00', DistanceZ) + ' km');

Wenn ich aber irgendwas von Font..... anpassen möchte (z.B. Style oder Size), dann wirkt sich das nciht aus. Die Schrift ist immer gleich.

Any Hints!?

Lossy eX

Joahr. Ich weiß was das Problem ist. Mit GetDC erstellst du anhand eines Handles einen DC. Der Name Get ist ein bisschen verwirrend. Man könnte den eindruck bekommen, dass man den DC zurück bekommt. In wirklich wird aber wie erwähnt einer erstellt.

Du musst also nur einmal GetDC aufrufen und das Ergebniss in einer Variable ablegen. Den musst du dann auch bei SelectObject und WglUseFontBitmaps benutzen und dann sollte es gehen. Anschließend solltest du dann Mittels ReleaseDC den DC auch wieder frei geben. Wollen ja nicht, dass da Zeugs übrig bleibt.

moelski · **Registriert:** Fr Apr 15, 2005 10:30 **Beiträge:** 28

Thx.

Funzt nun !

Text einfügen - keine Änderung des Styles möglich ?!

Wer ist online?