How to detect if a system is set to Large Font (Views: 29)
Problem/Question/Abstract: How to detect if a system is set to Large Font Answer: Returns True if small fonts are set, False if using Large Fonts: function SmallFonts: boolean; var DC: HDC; begin DC := GetDC(0); {LOGPIXELSX will be 120, if large fonts are in use} result := (GetDeviceCaps(DC, LOGPIXELSX) = 96); ReleaseDC(0, DC); end; |