Author: Jonas Bilinkevicius
How to detect if a system is set to Large Font
Answer:
Returns True if small fonts are set, False if using Large Fonts:
1 function SmallFonts: boolean;
2 var3 DC: HDC;
4 begin5 DC := GetDC(0);
6 {LOGPIXELSX will be 120, if large fonts are in use}7 result := (GetDeviceCaps(DC, LOGPIXELSX) = 96);
8 ReleaseDC(0, DC);
9 end;