Как узнать размеры шрифтов в 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