OpenEuphoria

UpDown Control

• Posted by Evan Marshall <evan at net-link.net> Apr 05, 2002
• 447 views

include win32lib.ew

constant
Win = create(Window, "Window", 0, 100, 100, 800, 600, { WS_DLGFRAME, 
WS_SYSMENU }),
TheList = create(List, "", Win, 10, 457, 
31,25,{WS_CHILD,WS_VISIBLE,WS_BORDER}),
TheSelector = create(UpDown, "", Win, 45, 455, 10, 22,0)

addItem(TheList,"1")
addItem(TheList,"2")
addItem(TheList,"3")
addItem(TheList,"4")
addItem(TheList,"5")

setBuddy(TheSelector,TheList)
setScrollRange(TheList,1,5)

WinMain(Win,Normal)

---------------
Shows the List with the first item and the UpDown, but when I press an 
arrow on the UpDown, the List item is highlighted by a dashed box but 
doesn't change.
Obviously, I'm doing something wrong or at least, not completely right. 
 Can someone please set me straight?
This part may be self explanitory when I get the first part right, but 
is there a way to scroll to the beginning of the list when you've 
reached the end and vice-versa?