Советы по Delphi

         

Как определить, большие или маленькие шрифты используются в системе?


Попробуй это:

    FUNCTION SmallFonts : BOOLEAN;
{возвращает TRUE если установлены маленькие шрифты и FALSE если большие }
VAR
DC : HDC; { используется для проверки количества доступных цветов } BEGIN
DC := GetDC(0); Result :=   (GetDeviceCaps(DC, LOGPIXELSX) = 96); { Если используются большие шрифты, LOGPIXELSX будет равен 120 } ReleaseDC(0, DC); END;

[000281]



Содержание раздела