Как узнать размеры шрифтов в Windows?

Delphi , Графика и Игры , Шрифты

Вариант 1.

GetTextMetrics()

Автор: Song

Взято с Vingrad.ru http://forum.vingrad.ru

Вариант 2.

Следующуя функция возвращает true, если маленькие шрифты установлены в системе. Так же можно заменить строку 'Result := (GetDeviceCaps(DC, logpixelsx) = 96);' на 'Result := (GetDeviceCaps(DC, logpixelsx) = 120);' чтобы определять - установлены ли в системе крупные шрифты.

Code:

Function UsesSmallFonts: boolean;

        var 

        DC: HDC; 

        begin 

        DC :=  GetDC(0); 

        Result  := (GetDeviceCaps(DC, logpixelsx) = 96); 

        ReleaseDC(0, DC); 

        end;

Взято из http://forum.sources.ru

Статья описывает два способа определения размеров шрифтов в Windows: с помощью функции GetTextMetrics() и с помощью функции GetDeviceCaps(), которая позволяет определять установлены ли маленькие или крупные шрифты в системе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Шрифты ::

Время компиляции файла: 2024-12-22 20:14:06
2025-05-01 13:31:41/0.0041470527648926/1