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

Следующуя функция возвращает 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; 
 
faq/delphi/system/small_or_large_fonts_installed.txt · Последнее изменение: d.m.Y H:i — 127.0.0.1
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki