` Printed Icetips Article

Icetips Article

Windows API: Detect large font settings
2003-09-09 -- Geoff Spillane

Newsgroups: comp.lang.clarion,softvelocity.products.c55ee


Hi Andy,

For determining if large fonts are used I use the following:

        GetDialogBaseUnits(),LONG,PASCAL

! Define Group for use in GetDialogBaseUnits() API function
WordGrp             GROUP,OVER(DialogBaseUnits)
LowOrderWord            USHORT
HiOrderWord             USHORT
                    END

              DialogBaseUnits = GetDialogBaseUnits()
              IF WordGrp.HiOrderWord > 16 ! Screen set to large fonts

Best Regards,
        Geoff Spillane



On Mon, 8 Sep 2003 15:33:25 -0500, "Andy Morgan"
 wrote:

>I am having issues regarding Windows Large Fonts Option - so I need to
>determin if the PC is set up to use Small (normal - default) fonts or Large
>Fonts.  I found the following code posted in the NG but cannot seem to grasp
>it.
>
>I have placed the following inside my Global Map:
>
>MODULE('WINAPI')
>   GetDeviceCaps(UNSIGNED, UNSIGNED),UNSIGNED,PASCAL
>   GetDC(UNSIGNED),UNSIGNED,PASCAL
>   ReleaseDC(UNSIGNED,UNSIGNED),UNSIGNED,PASCAL
>END
>
>Now, how do i actually use it 
>
>I need something like:
>
>IF LargeFontsUsed = TRUE
>   do something
>ELSE
>   do somethingelse
>END
>
>Thanks in advance
>Andy Morgan
>c55h
>

Printed November 23, 2024, 6:22 pm
This article has been viewed/printed 35192 times.
Google search has resulted in 37 hits on this article since January 25, 2004.