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