OpenEuphoria

Re: Call for testing - large/small fonts

• Posted by Elliott Sales de Andrade <quantum_analyst at hotmail.com> Feb 03, 2002
• 446 views

>Works fine in XP Pro. Returned "Small fonts deected" which is correct.
Err, detected--------------------------------^
I mean





>>From: petelomax at blueyonder.co.uk
>>Reply-To: EUforum at topica.com
>>To: EUforum <EUforum at topica.com>
>>Subject: Call for testing - large/small fonts
>>Date: Sun, 03 Feb 2002 15:41:14 +0000
>>
>>
>>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
>>
>>
>
>
>