Checking "Large Fonts" (was Windows defaut font gets messed up

[Ken Ray]

Jim,

You can check for Large Fonts this way:

on mouseUp
  if stsHasLargeFonts() then
    -- whatever you want to do
  end if
end mouseUp

function stsHasLargeFonts
  switch (the systemVersion)
  case "NT 5.1"  -- Windows XP
  case "NT 5.0"  -- Windows 2000
    put queryRegistry("HKEY_CURRENT_CONFIG\Software\Fonts\LogPixels") into
dpi  -- this is a DWORD
    put charToNum(dpi) into dpi
    if dpi = 96 then return false
    else return true
    break
  case "NT 4.0"  -- Windows NT 4.0
    put queryRegistry("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows
NT\CurrentVersion\FontDPI") into dpi  -- this is a DWORD
    put charToNum(dpi) into dpi
    if dpi = 96 then return false
    else return true
    break
  case "Windows 4.90"   -- Windows ME
  case "Windows 4.10"   -- Windows 98
  case "Windows 4.0"    -- Windows 95
    put queryRegistry("HKEY_CURRENT_CONFIG\Display\Settings\DPILogicalX")
into dpi
    if dpi = 96 then return false
    else return true
    break
  end switch
end stsHasLargeFonts

As to how to resize your stacks *based* on whether the user is running Large
Fonts... that's something someone else should chime in on...

Ken Ray
Sons of Thunder Software
Email: kray at sonsothunder.com
Web Site: http://www.sonsothunder.com/


> -----Original Message-----
> From: use-revolution-bounces at lists.runrev.com 
> [mailto:use-revolution-bounces at lists.runrev.com] On Behalf Of 
> Jim Witte
> Sent: Thursday, April 08, 2004 6:58 PM
> To: How to use Revolution
> Subject: Re: Checking "Large Fonts" (was Windows defaut font 
> gets messed up
> 
> 
> >> rev app some of the text runs off the screen. He sent me a screen
> >> shot and
> > 1) Your customer might have "Large Fonts" enabled in their Display
> > control
> > panel.  You could have them verify and change if needed.
> 
>    Is there a way in Windows to check whether "Large Fonts" 
> is enabled 
> (or get the default font size - I don't know if that's a Windows 
> default or not), and adjust text in your stack appropriately 
> (changing 
> positions of label fields, etc)
> 
> Jim
> 
> _______________________________________________
> use-revolution mailing list
> use-revolution at lists.runrev.com 
> http://lists.runrev.com/mailman/listinfo/use-revolution
>