{------------------------------------------------------------------------------}
{ Obtient les informations de la Fonte utilisée
{------------------------------------------------------------------------------}
{ CreateCompatibleDC(0) :
Créé un Handle (device context (DC) compatible avec celui passé en paramètre
Si HDC = 0, la fonction va créé un espace mémoire réservé à un nouveau
device context compatible avec l'application courante à l'écran.
{------------------------------------------------------------------------------}
Function TForm1.GetFontInfos(Const aFont : TFont) : TTextMetric;
Var Canv : TCanvas;
Dc : HDC;
Begin
Canv := TCanvas.Create;
Dc := CreateCompatibleDc(0);
Canv.Handle := Dc;
Try
Canv.Font := aFont;
GetTextMetrics(Canv.Handle,Result);
Finally
Canv.Free;
DeleteDc(Dc);
End;
End;