OpenEuphoria

Re: startup fonts in win32lib

• Posted by Derek Parnell <dparnell at BIGPOND.NET.AU> Aug 18, 2000
• 440 views

Ummmm, actually I didn't complain. I just responded to Dan's observation. I
like your approach to the problem as it is similar to other changes I've
been including. I'll insert your code into the current WIP code, unless you
tell me otherwise.

---
cheers,
Derek

----- Original Message -----
From: "wolfgang fritz" <wolfritz at king.igs.net>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Friday, August 18, 2000 6:15 AM
Subject: startup fonts in win32lib


> ...since I read D. Parnell's complaints about small fonts at SourceForge,
> here's another similar ( and old ! ) suggestion:
>
> ----------------------------------------------
> atom transColor  -- ** ( around line 6223 in current Win32Libex  )
>
> -- NEW! 0.45r system font ANSI_VAR_FONT instead of SYSTEM_FONT
> -- NEW! 0.45l added NullBrushID
>
> atom DefaultFontID  -- ** new ( instead of constant )
>
> global procedure setStartupFont(integer font) ----** new procedure
> DefaultFontID   =  c_func( xGetStockObject, { font } )
> end procedure
> setStartupFont(ANSI_VAR_FONT)  --** sets usual 'tiny' default font
>
> -- NEW! 0.45r system font ANSI_VAR_FONT instead of SYSTEM_FONT
> -- NEW! 0.45l added NullBrushID
> constant
>     -- null brush
>     NullBrushID     = c_func( xGetStockObject, { NULL_BRUSH } ),
>
>     -- default font
> -- **    DefaultFontID   =  c_func( xGetStockObject, { ANSI_VAR_FONT } ),
>
> ------------------------------------------------
>
> This allows you to change the default font for your whole program using
any
> of:
> OEM_FIXED_FONT, ANSI_FIXED_FONT ,
> ANSI_VAR_FONT,  SYSTEM_FONT, or SYSTEM_FIXED_FONT
>
> ...just by doing something like:
> include win32lib.ew
> setStartupFont(SYSTEM_FONT)
>
> Wolf