Textgröße (Windows 11, Barrierefreiheit)

[looseleaf]

Liebe Gemeinde!

In Windows 11 gibt es zusätzlich zum Zoom eine Einstellung der Textgröße, die von 100%-225% eingestellt werden kann. Wie kan ihc in Delphi auslesen, auf welchem Wert diese Einstellung steht?

Konkret: Wir habe in OnMeasureItem Event für TMenuItems, die das Manü anders zeichnet.

Liebe Grüße
Stefan

[tomkupitz]

Hallo,

habe das mal gefunden:

Code:

function GetUserFontPreference(var FaceName: string; var PixelHeight: Integer): Boolean;
var lf: LOGFONT;

begin
  ZeroMemory(@lf, SizeOf(lf));

  if SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(lf), @lf, 0) then
  begin
    FaceName:=PChar(Addr(lf.lfFaceName[0]));
    PixelHeight:=lf.lfHeight;

    result:=True;
  end
  else
    result:=False;
end;

//

procedure TForm1.FormCreate(Sender: TObject);
var FontHeight: Integer;
    FontFace: string;

begin
  if GetUserFontPreference(FontFace, FontHeight) then
  begin
    Font.Name:=FontFace;
    Font.Height:=FontHeight;
  end;
end;

Beste Grüße

[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.

[Frickler]

Zitat von tomkupitz:

Hallo,
habe das mal gefunden:
Beste Grüße

Delphi ermittelt das selbst in TScreen und speichert es in der Property IconFont.

[Aliquis]

Falls du nicht die Fontgröße, sondern die eingestellte Skalierung (bei mir z.B. 175) wissen willst, hilft vielleicht so etwas:

Delphi-Quellcode:

function GetFontScaling(Handle: THandle): Integer;
begin
  var Monitor := Screen.MonitorFromWindow(Handle);
  { var Monitor := Screen.MonitorFromPoint(Pnt);
    var Monitor := Screen.MonitorFromRect(Rect);
  }
  Result := Round(Monitor.PixelsPerInch*100/96);
end;

Voraussetzung dafür ist, dass die Anwendung DPI aware ist (Projektoptionen, Anwendung, Manifest).

Gruß G.

[looseleaf]

Danke für eure Antworten, ich schau mir mal IconFont an.
[...]
Es ist noch einfacher. Die FontSize, die an der fraglichen Stelle daherkommt, ist bereits so skaliert, wie sie sein sollte.

LKeider berechnet Delphi 11 in CreateMessageForm die Breiten von Popup-Messages anders, als in D10, sodass Texte, die sich bisher bei STandardeinstellungen gut ausgingen, plötzlich blöd umbrechen. Aber das ist ein anderes Thema