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

Следующуя функция возвращает 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 · Последние изменения: 2006/05/14 14:40 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki