Ermitteln ob Schrift eine TrueType-Schrift ist

[SirThornberry]

ich hoff mal ich bin in der richtigen Kategorie. Hab mal wieder was für die Codelib da ich auf der suche nach der Lösung für mein Problem in der DP nicht fündig gewurden bin... Hier der Source

Delphi-Quellcode:

function IsTrueType(DC: HDC): Boolean; overload;
var 
  LMetric: TTextMetric;
begin
  GetTextMetrics(DC, LMetric);
  result := LMetric.tmPitchAndFamily and TMPF_TRUETYPE <> 0;
end;

function IsTrueType(AFontname: String): Boolean;
var 
  LBmp: TBitmap;
begin
  LBmp := TBitmap.Create;
  LBmp.Canvas.Font.Name := AFontname;
  result := IsTrueType(LBmp.Canvas.Handle);
  LBmp.Free;
end;

ich benutze TBitmap und nicht direct TCanvas da sonst die Meldung kommt das nicht darauf gezeichnet werden.

shmia hat noch eine andere Möglichkeit:

Delphi-Quellcode:

function IsTrueType(DC: HDC): Boolean; overload;
var 
  LMetric: TTextMetric;
begin
  GetTextMetrics(DC, LMetric);
  result := LMetric.tmPitchAndFamily and TMPF_TRUETYPE <> 0;
end;

function IsTrueType(const AFontname: String): Boolean; overload;
var 
  canvas: TCanvas;
begin
  canvas := TCanvas.Create;
  canvas.Handle := GetDC(GetDesktopWindow); // Desktop
  Canvas.Font.Name := AFontname;
  result := IsTrueType(Canvas.Handle);
  canvas.Free;
end;

[edit=Chakotay1308]SourceCode angefügt. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]