DGL • Thema anzeigen - createfont ändert fontgröße nicht

createfont ändert fontgröße nicht

Moderator: DGL-Team

Seite 1 von 1

[ 1 Beitrag ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Andyh

Betreff des Beitrags: createfont ändert fontgröße nicht

Verfasst: Sa Sep 03, 2005 05:02

DGL Member

Registriert: Do Jun 09, 2005 13:48
Beiträge: 117
Wohnort: Sankt Augustin

Hallo,

ich habe mir eine komponente (siehe code) glFont geschrieben, die mir einen 3D-font erzeugt und
an einer beliebigen stelle anzeigen kann. leider wird dieser font immer in der gleichen größe ausgegeben.
ob ich den font einmal, zweimal, dreimal oder wie oft auch immer mit jeweils unterschiedlichen
parametern für fontsize erzeuge, scheint dem font nichts auszumachen. er bleibt stur auf einer
größe.

kann mir da jemand helfen?

Code:

 
unit glFont;
 
interface
 
uses
  Windows,
  Graphics,
  SysUtils,
  Classes,
  Controls,
  Dialogs,
  Forms,
  Camera,
  OpenGLUtil,
  DglOpenGL;
 
type
  TPglFont=^TglFont;
  TglFont=class(TComponent)
  private
    FFont: HFONT;                                    // Windows Font ID
    FFontList: TGLUint;
    FFontSize: integer;
    FFontThickness: integer;
    FFontWidth: integer;
    FFontItalic: integer;
    FFontUnderline: integer;
    FFontStrikeout: integer;
    FFontBold: integer;
    FFontgmf : array [0..255] of GLYPHMETRICSFLOAT;  // Address Buffer For Font Storage
    FEnabled: boolean;
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    procedure Print(text: pChar;
                    Pos, Dir: TGKvector;
                    PCamera: TPCamera);
    procedure BuildFont (FontName: string; glFontDC: HDC);
    procedure KillFont;
  published
    property Enabled: boolean read FEnabled write FEnabled;
    property FontSize: integer read FFontSize write FFontSize;
    property FontThickness: integer read FFontThickness write FFontThickness;
    property FontWidth: integer read FFontWidth write FFontWidth;
    property FontItalic: integer read FFontItalic write FFontItalic;
    property FontUnderline: integer read FFontUnderline write FFontUnderline;
    property FontStrikeout: integer read FFontStrikeout write FFontStrikeout;
    property FontBold: integer read FFontBold write FFontBold;
  end; {TOpenGL}
 
procedure Register;
 
var
  OldFont: string;
 
implementation
 
constructor TglFont.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  FFont := 0;
  FFontSize := 32;
  FFontWidth := 10;
  FFontThickness := 1;
  FFontItalic := 0;
  FFontUnderline := 0;
  FFontStrikeout := 0;
  FFontBold := 0;
end;
 
destructor TglFont.Destroy;
begin
  inherited destroy;
end;
 
procedure TglFont.BuildFont (FontName: string; glFontDC: HDC); // Build Our Bitmap Font
begin
  if not FEnabled then
    exit;
  if FFont <> 0 then
    KillFont;
 
  FFontList := glGenLists(256);             // Storage For 256 Characters
  glEnable(GL_POINT_SMOOTH);
 
  FFont := CreateFont(FFontSize,            // Height Of Font
                      FFontWidth,           // Width Of Font
                      0,                    // Angle Of Escapement
                      0,                    // Orientation Angle
                      FFontBold,            // Font Weight
                      FFontItalic,          // Italic
                      FFontUnderline,       // Underline
                      FFontStrikeout,       // Strikeout
                      ANSI_CHARSET,         // Character Set Identifier
                      OUT_TT_PRECIS,        // Output Precision
                      CLIP_DEFAULT_PRECIS,  // Clipping Precision
                      ANTIALIASED_QUALITY,  // Output Quality
                      FF_DONTCARE or DEFAULT_PITCH, // Family And Pitch
                      PCHAR(FontName));     // Font Name
 
  SelectObject(glFontDC, FFont);            // Selects The Font We Want
 
  wglUseFontOutlines(glFontDC,              // Select The wanted DC
                     0,                     // Starting Character
                     256,                   // Number Of Display Lists To Build
                     FFontList,             // Starting Display Lists
                     0.0,                   // Deviation From The True Outlines
                     FFontThickness/10,     // Font Thickness In The Z Direction
                     WGL_FONT_POLYGONS,     // Use Polygons, Not Lines
                     @FFontgmf);            // Address Of Buffer To Recieve Data
end;
 
procedure TglFont.KillFont;
begin
  if not FEnabled then
    exit;
  if not glIsList (FFontList) then
    exit;
  glDeleteLists(FFontList, 256);                   // Lösche alle 256 Zeichen
  DeleteObject (FFont);
  FFont := 0;
end;
 
procedure TglFont.Print(text: pChar;
                        Pos, Dir: TGKvector;
                        PCamera: TPCamera);
var
  laenge: glfloat;
  loop: integer;
  V2: TGLvector;
  Rotation: TRotation;
  normale: TGLVector;
begin
  if not FEnabled then
    exit;
  if text = '' then
    exit;
  if not glIsList (FFontList) then
    exit;
 
  V2 := GK2GLvector (Pos);
  GetRotation (V2, GK2GLvector (Dir), Rotation, normale);
 
  // länge des texts ermitteln (für was auch immer...)
  laenge := 0;
  for loop:=1 to length(text)-1 do
    laenge := laenge + FFontgmf[loop].gmfCellIncX;
 
  //glPushAttrib(GL_LIST_BIT);
  glPushAttrib (GL_ALL_ATTRIB_BITS);
  PCamera^.Apply;
  glListBase(FFontList);
  glTranslatef(V2.x, V2.y, V2.z);
  if Rotation.Angle <> 0.0 then
    glRotated(Rotation.Angle,
              Rotation.X,
              Rotation.Y,   // um errechneten Winkel auf der
              Rotation.Z);  // errechneten Achse drehen
  glCallLists(length(text),GL_UNSIGNED_BYTE,text);
  glPopAttrib;
end;
 
procedure Register;
begin
  RegisterComponents('OpenGL',[TglFont]);
end;
 
end.
 

Nach oben

Seite 1 von 1

[ 1 Beitrag ]

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 27 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.