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.