| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получение размера системного шрифта
Неля © (2003-11-11 16:38:00)
Здравствуйте!
При разных разрешениях и масштабах шрифтов у моего приложения надписи выглядят слишком мелко или слишком крупно. В итоге встает вопрос: как получить размер системного шрифта?
Неля (2003-11-12 00:49:00) [1]
Хорошо, попробую
Игорь Шевченко (2003-11-12 00:25:00) [2]
Неля (11.11.03 17:58)
lfCaptionFont использовать, например
Неля (2003-11-11 17:58:00) [3]
Я так вот и делала:
NonClientMetrics: TNonClientMetrics;
begin
Result:=0;
NonClientMetrics.cbSize := sizeof(NonClientMetrics);
if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
Result:= CreateFontIndirect (NonClientMetrics.lfMessageFont);
Но потом смотрю, а шрифт-то больше (немного правда), чем надо. Чуть-чуть, но больше...
Что делать?
Игорь Шевченко (2003-11-11 17:45:00) [4]
Неля (11.11.03 17:00)
Либо смотреть дальше в TScreen (там много чего есть),
либо SystemParametersInfo (SPI_GETNONCLIENTMETRICS, ...)
Неля (2003-11-11 17:00:00) [5]
Кстати, тогда еще встречный вопрос: у меня в системе по умолчанию стоит шрифт tahomа, а на форме MS Sans Serif, можно ли как-то сделать определние имени системного шрифта?
Неля (2003-11-11 16:58:00) [6]
Ок, спасибо, вроде похоже на системный шрифт...
Игорь Шевченко (2003-11-11 16:40:00) [7]
Screen.PixelsPerInch
| |
