Vista: Systemschriftart ermitteln?

[ringli]

Weiß jemand zufällig wie man den aktuell verwendeten Systemfont ermitteln kann?

Bis einschliesslich Windows XP funktionierte ja der Alias "MS Shell Dlg" hervorragend, aber unter Vista wird hier leider auch nur "Tahoma" als Schriftart zurückgegeben was natürlich falsch ist. Bei Non-VCL Programmen bzw. C++ scheint es ja diese Möglichkeit zu geben um den "MS Shell Dlg"-Alias weiter verwenden zu können.

[ringli]

Hat keiner eine Idee?

[fkerber]

Hi!

Was verstehst du denn unter "zurück geliefert" und in wie fern ist Tahoma falsch?

Wie sieht denn dein Quellcode aus?!


Ciao, Frederic

[ringli]

Da ich jetzt grade nicht zuhause bin kann ich dir leider erst heute abend Quelltext liefern, aber Tahoma ist insofern falsch weil unter Vista die Systemschriftart normalerweise "Segoe UI" ist und nicht mehr "Tahoma" wie es bei Windows XP der Fall ist.

[fkerber]

Hi!

Aha...

Also unter dem genannten Schlüssel steht tatsächlich immer noch Tahoma...

Einzig was mir sonst noch in der Registry begegnet ist:

Zitat:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontLink\SystemLink\Segoe UI

TAHOMA.TTF
MEIRYO.TTC,Meiryo,128,85
MEIRYO.TTC,Meiryo
MSGOTHIC.TTC,MS UI Gothic
MSJH.TTF,128,96
MSJH.TTF
MSYH.TTF,128,96
MSYH.TTF
MALGUN.TTF,128,96
MALGUN.TTF

Ob man damit was anfangen kann?!

Ciao, Frederic

[Bernhard Geyer]

Wie wäre es mit dem offiziellen Weg über die Abfrage mittels SystemParametersInfo?

[ringli]

Öhm... und wie funktioniert das dann? Hast du vielleicht einen Codeschnipsel für mich?

[EDIT]
Der Tip mit SystemParametersInfo war goldrichtig. Nach ein wenig googlen habe ich das hier gefunden.

Der Code sieht also folgendermassen aus:

Delphi-Quellcode:

procedure GetSystemFont(aFont: TFont);
var
  ncMetrics: TNonClientMetrics;
begin
  Assert(Assigned(aFont));
  ncMetrics.cbSize := SizeOf(TNonClientMetrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 
                       SizeOf(TNonClientMetrics),
                       @ncMetrics, 0);
  aFont.Handle := CreateFontIndirect(ncMetrics.lfMenuFont);
end;

[Luckie]

Das muss aber nicht die Systemschrift sein. Der Benutzer kann diese ja nach belieben ändern in dem Dialog: Eigenschaften von Anzeige -> Darstellung -> Erweitert. Also so ganz ist das nicht die Lösung. Und warum hast du lfMenuFont genommen und nicht lfCaptionFont zum Beispiel?

Die standard Systemschrift ermittelt man mit

Delphi-Quellcode:

var
  FLogFont: TLogFont;
begin
  GetObject(GetStockObject(DEFAULT_GUI_FONT), sizeof(FLogFont), @FLogFont);

Das liefert "MS Shell Dlg" zurück, was dann bei XP "Tahoma" entspricht.

[ringli]

Zitat von Luckie:

Das muss aber nicht die Systemschrift sein. Der Benutzer kann diese ja nach belieben ändern in dem Dialog: Eigenschaften von Anzeige -> Darstellung -> Erweitert. Also so ganz ist das nicht die Lösung. Und warum hast du lfMenuFont genommen und nicht lfCaptionFont zum Beispiel?

Die standard Systemschrift ermittelt man mit

Delphi-Quellcode:

var
  FLogFont: TLogFont;
begin
  GetObject(GetStockObject(DEFAULT_GUI_FONT), sizeof(FLogFont), @FLogFont);

Das liefert "MS Shell Dlg" zurück, was dann bei XP "Tahoma" entspricht.

Genau das ist das Problem Luckie. "MS Shell Dlg" gibt unter Vista eben nicht mehr die richtige Systemschriftart zurück. Damit wird unter Vista auch Tahoma zurückgegeben und nicht "Segoe UI" was korrekt wäre.

lfMenuFont habe ich genommen weil ich mir gedacht habe das der Menüfont für Buttons usw. sinniger ist als der Captionfont der ja (meistens) etwas größer eingestellt ist als der Menüfont. Sonst hatte das keinen besonderen Grund. Mir wäre eine Lösung wie die deine auch lieber, aber wie gesagt deine Funktion gibt halt leider die falsche Systemschriftart zurück.

[EDIT]
Mal ein kleiner Beispielcode:

Delphi-Quellcode:

procedure GetSystemFont(aFont: TFont);
var
  ncMetrics: TNonClientMetrics;
begin
  Assert(Assigned(aFont));
  ncMetrics.cbSize := SizeOf(TNonClientMetrics);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 
                       SizeOf(TNonClientMetrics),
                       @ncMetrics, 0);
  aFont.Handle := CreateFontIndirect(ncMetrics.lfMenuFont);
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
  FLogFont: TLogFont;
begin
  GetObject(GetStockObject(DEFAULT_GUI_FONT), sizeof(FLogFont), @FLogFont);

  label1.Font.Name := FLogFont.lfFaceName;
  label1.Font.Size := FLogFont.lfHeight;
  label1.Caption   := 'Dies ist die Schriftart "' + FLogFont.lfFaceName + '" unter Vista.';

  GetSystemFont(label2.Font);
  label2.Caption   := 'Dies ist die Schriftart "' + label2.Font.Name + '" unter Vista.';
end;

Und im Anhang dazu der passende Screenshot für Leute die kein Vista haben. Der Unterschied müsste deutlich zu sehen sein.