OpenEuphoria

Fontsize not changing properly...

• Posted by JesusC - Jesus Consuegra <jconsuegra at REDESTB.ES> Feb 27, 1998
• 940 views

I'm trying the nice win32 wrapper from David Cuny (thanks David).

When I try to change the size of the font, nothing happens:.

Any ideas?...

Jesus. (Trying to port the thermometer to Win32...)


-- example9.exw
--
-- Display fonts in a window

include win32lib.ew


constant FontWin =
    create( Window, "Font Window", 0, Default, Default, 350, 150, 0 )

-- action to take when the window opens
global procedure onOpen_FontWin()

    systemFont()
    wPosition( 1, 1 )
    wPuts( "System Font" )


    wPosition( 1, 15 )
    setFont( "Courier New", 32, 0 )
    wPuts( "Courier New" )

end procedure

-- tell Windows when to do the action
    onOpen[FontWin] = routine_id( "onOpen_FontWin" )

-- hand control over to Windows
    WinMain( FontWin )