Определение типа используемого шрифта

Данная функция возвращает значение True, если в системе установлен мелкий шрифт, или же, False - если крупный.

function

SmallFonts: boolean; var

DC: HDC;
begin

DC:=GetDC(0);
Result:=(GetDeviceCaps(DC, LOGPIXELSX) = 96); {Для крупного - 120
Для мелкого - 96}
ReleaseDC(0, DC);
end

;

Другое по теме:

• Как проинсталлировать свои шрифты
• PopupComponent и шрифты
• Вывод шрифтов в списке в виде самих шрифтов