No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] La Fuente es TrueType.

delphi

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;

Saludos!