font.size - font.height - Negative Werte - Schlechte Doku

[Thomasl]

Font über Size einstellen macht bei HiDPI nur Probleme

Delphi-Quellcode:

function FontHeightDpi(const Size: Integer; const Dpi: Integer): Integer;
begin
  Result := -MulDiv(Size, Dpi, 72);
end;


Function TFormFontTest1.PaintTextToCanvas(const aCanvas:TCanvas;const aX:Integer;const aY:Integer;const aSize:Integer;const aText:String): TRect;
begin
  aCanvas.font.Height := FontHeightDpi(aSize, PixelsPerInch);

...