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