OpenEuphoria

Call for testing - large/small fonts

• Posted by petelomax at blueyonder.co.uk Feb 03, 2002
• 578 views

On Sun,  3 Feb 2002 10:58:11 +0000, you wrote:

Euman gave me the first three lines below to check for large/small
fonts. It works fine on my PC (win98 only), but before I bury it in my
code I'd like to know it passes muster on 95, 2000, ce, me, xp, nt...
Can a few of you test it on your machines & report back, letting me
know what version of windows you are running, please:

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
		printf(1,"ERROR: unrecognised font size: %d",iDPI)
	end if
    puts(1,"\n\n")
	hdc=prompt_string("Press Enter..")

Thanks,
Pete