Textgröße (Windows 11, Barrierefreiheit)

[KodeZwerg]

Falls Du Interesse hast von einem graphischen Objekt die gebrauchten Dimensionen auf dem Bildschirm zu erfahren, so mache ich das:

Delphi-Quellcode:

function GetFontSize(const AText: String; const AFont: TFont; out AWidth, AHeight: Integer): Boolean;
var
  LBMP: TBitmap;
begin
  Result  := False;
  AWidth  := 0;
  AHeight := 0;
  LBMP    := TBitmap.Create;
  try
    LBMP.Canvas.Font.Assign(AFont);
    AWidth  := LBMP.Canvas.TextWidth(AText);
    AHeight := LBMP.Canvas.TextHeight(AText);
    Result  := ((AWidth <> 0) or (AHeight <> 0));
  finally
    LBMP.Free;
  end;
end;

Die Argumente kurz erklärt:
- AText = dein string von dem Du die Dimensionen benötigst
- AFont = deine verwendete Font
- AWidth = Rückgabe der Breite
- AHeight = Rückgabe der Höhe

LG, KodeZwerg.