OpenEuphoria

Re: Win32Lib; Control; Dropdown; Index and data?

• Posted by ZNorQ <znorq at holhaug.com> Mar 21, 2007
• 530 views

ZNorQ wrote:
> 
> don cole wrote:
> > 
> > Derek Parnell wrote:
> > > 
> > > ZNorQ wrote:
> > > > 
> > > > I've got database table content that I want to be presented in a
> > > > dropdown
> > > > control. I'm not gonna put inn all the field values in the control, but
> > > > I
> > > > need the unique index and the readable information.
> > > 
> > > Does this sort of thing help?
> > > 
> > > }}}
<eucode>
> > > --------- 
> > > include win32lib.ew
> > > without warning
> > > integer vWin
> > > integer vList
> > > sequence theDataBase
> > > theDataBase =
> > > {
> > >  { 17, "Olsen",  "Elvis"},
> > >  {201, "Jensen", "Thor"},
> > >  { 39, "Jordan", "Jens"},
> > >  {411, "Jordan", "Jens"} -- Duplicate name test
> > > }
> > > procedure AddKey(integer id, object item)
> > >     sequence lKeys
> > > 
> > >     lKeys = getUserProperty(id, "Key")
> > >     if length(lKeys) != 0 then
> > >         lKeys = lKeys[1]
> > >     end if
> > > 
> > >     lKeys &= item
> > > 
> > >     setUserProperty(id, "Key", lKeys)
> > > end procedure
> > > 
> > > procedure Change_List(integer self, integer event, sequence parms)
> > >     sequence lKeys
> > > 
> > >     lKeys = getUserProperty(self, "Key")
> > >     if length(lKeys) = 0 then
> > >         return -- No keys defined.
> > >     end if
> > > 
> > >     setText(vWin, sprintf("Key is %d", lKeys[1][parms[2]]))
> > > end procedure
> > > 
> > > procedure load_database()
> > >     for i = 1 to length(theDataBase) do
> > >         addItem(vList, sprintf("%s, %s",
> > >                     { theDataBase[i][2], theDataBase[i][3]}
> > >                     )
> > >                 )
> > >         AddKey(vList, theDataBase[i][1])
> > >     end for
> > > end procedure
> > > 
> > > procedure main()
> > >     vWin = create(Window, "Drop Down Indexing", 0, 0, 0, 400, 400, 0)
> > >     vList = create(DropDownList, "", vWin, 10, 10, 300, 300, 0)
> > >     load_database()
> > >     setHandler(vList, w32HChange, routine_id("Change_List"))
> > >     WinMain(vWin, Normal)
> > > end procedure
> > > main()
> > > </eucode>
{{{

> > > 
> > > -- 
> > > Derek Parnell
> > > Melbourne, Australia
> > > Skype name: derek.j.parnell
> > 
> > Hello Derek,
> > 
> >     Well to tell the truth I didn't even know that there was a control named
> > DropDownList. It just goes to show you that there is something to be learned
> > everyday reading this list.
> > 
> >     You must admit though that 
> > }}}
<eucode>
> >    setHandler(vList, w32HChange, routine_id("Change_List"))
> > </eucode>
{{{

> > is very similar to
> > }}}
<eucode>
> >   setHandler(ListView3,w32HChange,routine_id("select1"))
> > 
> > Don Cole
> 
> Hey Don & Derek,
> 
> I've been, and still are quite busy, but I test the code as soon as 
> possible. I must say I'm impressed by the length you both are willing
> to go to help out a poor sap like me. How the hell do you find the time??
> 
> Anyway, I really appreciate it.
> 
> I'll get back to you with some results as soon as I can.
> 
> Again, thanks guys.
> 
> Kenneth / ZNorQ
> 
> PS, Derek, I was sure you where gonna leave the Eu community, but
> I must say it's cool that you're still replying to win32lib issues
> that appears on the forum..

Hey Derek,

(Sorry Don, seems I'm going for Derek's code, no hard feelings? :P)

I've had a look at your code, Derek, and this is EXACTLY what I'm looking
for. I guess the power lies in the xxxUserProperty syntax.

Can I use the UserProperty code for ListView too, meaning for each
individual field in a list of items in a ListView?

Regards,
Kenneth / ZNorQ