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

Previous Top Next

GetTextMetrics()

©Drkb::01920

Автор: Song

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

Как определить, какой шрифт установлен в системе, большой или маленький

Следующуя функция возвращает 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;

©Drkb::01921

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