Computing

IsTrueTypeFont

From Zarko Gajic, former About.com Guide

Given a font's name (such as Arial,Verdana, Times New Roman, etc), function returns a boolean value indicating whether the font is or isn't a True Type font.

~~~~~~~~~~~~~~~~~~~~~~~~~
function IsTrueTypeFont(FontName : string):boolean;
const
PITCH_MASK: byte = $0F;
var
TxMet: TTextMetric;
TempCanvas : TCanvas;
PitchTest : byte;
begin
TempCanvas:=TCanvas.Create;
TempCanvas.Handle:=CreateCompatibleDC(0) ;
TempCanvas.Font.Name:=FontName;
GetTextMetrics(TempCanvas.Handle, TxMet) ;
PitchTest:=TxMet.tmPitchAndFamily and PITCH_MASK;
Result:=(PitchTest and TMPF_TRUETYPE) <> 0;
TempCanvas.free;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Disable ALT+TAB, CTRL+ESC, CTRL+ALT+DEL
« Close Another Application

Delphi