startup fonts in win32lib
- Posted by wolfgang fritz <wolfritz at king.igs.net> Aug 17, 2000
- 414 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