Получение размера системного шрифта

← →
Неля (2003-11-11 16:38) [0]

Здравствуйте!
При разных разрешениях и масштабах шрифтов у моего приложения надписи выглядят слишком мелко или слишком крупно. В итоге встает вопрос: как получить размер системного шрифта?

← →
Игорь Шевченко © (2003-11-11 16:40) [1]

Screen.PixelsPerInch

← →
Неля (2003-11-11 16:58) [2]

Ок, спасибо, вроде похоже на системный шрифт...

← →
Неля (2003-11-11 17:00) [3]

Кстати, тогда еще встречный вопрос: у меня в системе по умолчанию стоит шрифт tahomа, а на форме MS Sans Serif, можно ли как-то сделать определние имени системного шрифта?

← →
Игорь Шевченко © (2003-11-11 17:45) [4]

Неля (11.11.03 17:00)

Либо смотреть дальше в TScreen (там много чего есть),
либо SystemParametersInfo (SPI_GETNONCLIENTMETRICS, ...)

← →
Неля (2003-11-11 17:58) [5]

Я так вот и делала:

NonClientMetrics: TNonClientMetrics;
begin
Result:=0;
NonClientMetrics.cbSize := sizeof(NonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
Result:= CreateFontIndirect (NonClientMetrics.lfMessageFont);

Но потом смотрю, а шрифт-то больше (немного правда), чем надо. Чуть-чуть, но больше...

Что делать?

Неля (11.11.03 17:58)

lfCaptionFont использовать, например

← →
Неля (2003-11-12 00:49) [7]

Хорошо, попробую

Получение размера системного шрифта Найти похожие ветки