OpenEuphoria

Re: Win32lib Release

• Posted by Dan B Moyer <DANMOYER at PRODIGY.NET> Aug 26, 2000
• 466 views

Derek,

I'm hoping that Wolf's option to allow setting default font for
controls/buttons will make it into next version?

Dan Moyer


Wolf sent:
----------------------------------------------
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
-----------------------------------------------------------------

----- Original Message -----
From: "Derek Parnell" <dparnell at BIGPOND.NET.AU>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Friday, August 25, 2000 4:13 PM
Subject: Win32lib Release


> Hi,
> the latest win32lib is now available from SourceForge. Go to the site
below
>    https://sourceforge.net/projects/win32libex/
>
> and scroll down to the "Latest File Releases" section. There are two
> flavours ...
>  1) win32libZIP  which is a normal ZIP file (318KB)
>  2) win32libEXE  which is a self-extracting archive (404KB)
>
> These archives contain the latest v0.50 win32lib, plus numerous demo
> programs and an updated win32lib.HTML document.
>
> In an effort to co-ordinate releases and updates, please send me your
> updates and I'll integrate them (on the advice of David Cuny) into the
next
> release.
>
> As I get new changes, I'll update the "bleeding edge" release package,
which
> will also be available from the above URL.
>
> cheers,
> Derek