Schiftgröße so einstellen, dass sie 6 Pixel hoch ist.

[xZise]

Wie kann ich das so berechnen, das die Schriftgröße so groß ist, dass ein Buchstabe ('A') <= 6 Pixel hoch ist?

Bisher habe ich diese Variante... Allerdings gibts das Probelm das TextHeight mindestens 13 Pixel sind:

Delphi-Quellcode:

Best := false;
FontHeight := 18;
while not Best do begin
  dec(FontHeight);
  iLetter.Canvas.Font.Height := FontHeight;
  lFontHeight.Caption := IntToStr(FontHeight);
  lFontHeight.Repaint;
  label3.Caption := IntToStr(iLetter.Canvas.TextHeight('A'));
  label3.Repaint;
  if iLetter.Canvas.TextHeight('A') <= 6 then begin
    Best := true;
  end else begin
    iLetter.Canvas.TextOut(0,0, 'A');
    iLetter.Repaint;
  end;
  Sleep(60);
end;

(Das sleep ist nur da um das sichtbar zu machen.