1. UpDown Control
- Posted by Evan Marshall <evan at net-link.net> Apr 05, 2002
- 449 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?
2. UpDown Control
- Posted by Lewis Townsend <keroltarr at hotmail.com> Feb 27, 2005
- 424 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
3. Re: UpDown Control
- Posted by Greg Haberek <ghaberek at gmail.com> Feb 27, 2005
- 434 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
4. Re: UpDown Control
- Posted by Lewis Townsend <keroltarr at hotmail.com> Feb 27, 2005
- 425 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