Как узнать размеры шрифтов в Windows?
Материал из DRKB
Как узнать размеры шрифтов в Windows?[править | править код]
GetTextMetrics()
Author: Song
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01920
Как определить, какой шрифт установлен в системе, большой или маленький[править | править код]
Следующуя функция возвращает True, если маленькие шрифты установлены в системе. Так же можно заменить строку
Result := (GetDeviceCaps(DC, logpixelsx) = 96);
на
Result := (GetDeviceCaps(DC, logpixelsx) = 120);
чтобы определять - установлены ли в системе крупные шрифты.
function UsesSmallFonts: boolean;
var
DC: HDC;
begin
DC := GetDC(0);
Result := (GetDeviceCaps(DC, logpixelsx) = 96);
ReleaseDC(0, DC);
end;
Source: Взято из http://forum.sources.ru
ID: 01921