Comment on an Icetips Article

Please add your comments to this article. Please note that you must provide both a name and a valid email address in order for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!

Back to article list Search Articles Add Comment Printer friendly Direct link

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
>

Today is May 1, 2024, 8:22 am
This article has been viewed 35108 times.
Google search has resulted in 37 hits on this article since January 25, 2004.

Back to article list Search Articles Add Comment Printer friendly

Templates, Tools and Utilities
for Clarion Developers

Add a comment to an Icetips Article

Templates, Tools and Utilities for Clarion Developers
	Home Products Download Documentation Demos Support Articles About Buy ALL PRODUCTS Build Automator Checkbox Fixer Icetips Utilities Magic Buttons Magic Entries Magic Locks OutlookBar Power ToolBar Report Previewer SQL Templates TaskPanel Window Fixer XP Theme Xplore GOLD SUBSCRIPTION SILVER SUBSCRIPTION SOLO SUBSCRIPTION Compare Gold/Silver Products Documentation Demos Free SQL Stuff Other Free Stuff PAR2 files Tips & Tricks - NEW Icetips Blog Icetips News Icetips on Facebook Icetips on Twitter Icetips on Youtube All Articles Search articles Top Ten articles Articles by Category Video tutorials What is Clarion? Support Options Live Support Email & Mail Icetips Blog Icetips on Twitter Gold Subscription Silver Subscription Solo Subscription Recurring Subscription Compare Gold & Silver Renew Your Subscription Multiple Copy Pricing

Templates, Tools and Utilitiesfor Clarion Developers

Add a comment to an Icetips Article

Templates, Tools and Utilities
for Clarion Developers