OpenEuphoria

UpDown Control

• Posted by Lewis Townsend <keroltarr at hotmail.com> Feb 27, 2005
• 507 views

Howdy folks,
It's been a while.
I'm working with the newest verion of Win32Lib.
I'm having trouble getting an UpDown control to work with a text box.
Here's the code, what am I doing wrong?

------------------------------
include win32lib.ew
without warning

constant win = createEx( Window, "Looky Here", 0, Default,Default, 300,200,
WS_NO_RESIZE,0 )

constant txt = createEx( EditText, "0", win, 10,10, 100,25,
w32or_all({ES_RIGHT,ES_NUMBER}),0 )
constant upd = createEx( UpDown, 	"", win, 115,10, 20,20,
w32or_all({UDS_AUTOBUDDY,UDS_ARROWKEYS,UDS_NOTHOUSANDS}),0 )
setScrollRange ( upd, 2, 1000 )
setScrollPos ( upd, 10 )

WinMain( win, Normal)
---------------------------

LewyT