OpenEuphoria

Re: UpDown Control

• Posted by Greg Haberek <ghaberek at gmail.com> Feb 27, 2005
• 556 views

> }}}
<eucode>
> ------------------------------
> 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)
> ---------------------------
> </eucode>
{{{


Try this after declaring both controls:

    setBuddy( upd, txt )

~Greg