OpenEuphoria

Re: Call for testing - large/small fonts

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Feb 03, 2002
• 427 views

Pete,

On Win98 1st ed, returns "large fonts detected", which is correct.

Dan Moyer

----- Original Message ----- 
From: <petelomax at blueyonder.co.uk>
To: "EUforum" <EUforum at topica.com>
Subject: Call for testing - large/small fonts



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