Schriftarten auslesen

[Jörg Trost]

Hallo, nachdem ich einiges in Delphi ausprobiert habe, bin ich bei folgendem Problem angelangt. Wie kann ich die Windows Einstellung Schriftarten unter EIGENSCHAFTEN VON ANZEIGE in Delphi einlesen?

[Uli Becker]

Hallo,

ich nehme an, du meinst die Einstellung "große Schriftarten" bzw. "kleine Schriftarten". In diesem Fall hilft dir folgendes Beispiel:

<pre>
procedure TForm1.btnOKClick(Sender: TObject);
var dc : HDC;
Fontsize : integer;
begin;
dc := GetDC(0);
Fontsize := getDeviceCaps(dc,LOGPIXELSX); //120 = große Fonts;96 = kleine Fonts
if Fontsize = 120 then
showmessage('Große Schriftarten')
else
showmessage('Kleine Schriftarten');
end;
</pre>

Viel Erfolg..