OpenEuphoria

startup fonts in win32lib

• Posted by wolfgang fritz <wolfritz at king.igs.net> Aug 17, 2000
• 563 views

...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