Erkennen des Schrifttyps

[matashen]

Hallo zusammen,

Ich möchte einen Text drehen, das mach ich wie folgt:

Delphi-Quellcode:

var
hCurFont: HFONT;
LogFont: TLogFont;
begin
with Canvas do
begin
     font:=fontz;
  hCurFont := Font.Handle;
  try
    GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
    LogFont.lfEscapement := AAngle;
    LogFont.lfOrientation := AAngle;
    Font.Handle:= CreateFontIndirect(LogFont);
    try
      TextOut(X, Y, AText);
    finally
      DeleteObject(Font.Handle);
    end;
  finally
    Font.Handle := hCurFont;
  end;
     font:=fontz;
end;

so jetzt hab ich das Problem, das dies nur mit bestimmten Schriftarten funtkioniert, also mit Truetype.

Wie kann ich erkennen ob die gewählte Schriftart (darf der Anwender wählen) eine Truetype Schriftart ist um dann ein Drehen der Schrifft zu unterbinden wenns kein Truetype ist.


Gruß Matthias

PS: Das ganze auf ein Bitmap zeichnen und dann drehen, wies so mancher macht möcht ich nicht.