Re: Call for testing - large/small fonts
- Posted by Derek Parnell <ddparnell at bigpond.com> Feb 03, 2002
- 429 views
Pete,
maybe the code should be more like ...
---------------
include win32lib.ew
object hdc, iDPI
hdc = getDC(Screen) --Get DC for screen
iDPI = w32Func( xGetDeviceCaps, {hdc, LOGPIXELSX} )
releaseDC(hdc)
if iDPI >= 120 then
puts(1,"Large fonts detected")
elsif iDPI >= 96 then
puts(1,"Small fonts detected")
else
puts(1,"Tiny fonts detected")
end if
puts(1,"\n\n")
hdc=prompt_string("Press Enter..")
-------------------------
