OpenEuphoria

Re: UpDown Control

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

Nevermind,
I figured it out: I was missing the UDS_SETBUDDYINT in the styles.
Here is the corrected code:

--===============================
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,UDS_SETBUDDYINT}),0 )

setScrollRange ( upd, -13, 106 )
setScrollPos ( upd, 10 )

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

LewyT