OpenEuphoria

Re: Win32 controls

• Posted by Bernie Ryan <bwryan at PCOM.NET> Oct 26, 1999
• 619 views

---------------------------< cut >--------------------------------------

include win32lib.ew

constant

--  CAPTION "Crappy dialog window"
MyWindow =
    create( Window, "This is a window ", 0, Default, Default, 400, 300, 0 ),

-- "Push the button", 999, 18, 10, 80, 12 ( increased height and width some
)
MyCtext =
    create( CText, "Push the button", MyWindow, 18, 10, 150, 15, 0 ),

--
MyButton = -- "&Push me!", IDCANCEL, 18, 25, 75, 15
    create( PushButton, "&Push me!", MyWindow, 18, 25, 75, 15, 0 )

-- FONT 8, "MS Sans Serif"
--
setFont( MyButton, "MS Sans Serif", 8, Bold )



-- hand control over to Windows
WinMain( MyWindow, Normal )

---------------------------< cut >--------------------------------------