OpenEuphoria

Re: DropDownList

• Posted by George Walters <gwalters at sc.rr.com> Aug 16, 2001
• 398 views

Derek, the codes are their own codes so they can usually type them more
quickly than always having to pick from a list.  The pick list is just in
case the've forgotten a seldom used one. The long ones can sometimes take
too much space on the screen and are almost never on internal reports (again
space limitations). The long names only go outside the office to customers
who are not familiar with the codes.

...george
----- Original Message -----
From: "Derek Parnell" <ddparnell at bigpond.com>
To: "EUforum" <EUforum at topica.com>
Subject: Re: DropDownList


>
> Hi George,
> > Your program snipit looks like it would work fine if the dropdownlist
> field
> > width could be larger than the coded field width. Can't see how to do
> this..
> > The code in the field would be like 'n30' or 'n60' , so the editText
field
> > only should be 3-6 chars but the descriptive text for this could be much
> > larger (usually about 15). The short code would be used in the DB and on
> > internal reports, the long on invoices, statements, etc.
>
> Maybe I'm missing something, but are you trying to display the short field
> on the screen too? If so, why as it is only used in the DB and not on any
> user interface (screen or paper). I can't see why you can't display the
long
> dropdown field and not botther showing the short data. If there is only a
> fixed number of possible valid entries for this field, there is no need
for
> an edittext field, just a single dropdown will do.
>
> Is there a good reason to display the short field to the user? If there
is,
> why can't you have both fields being displayed - the edittext being
> read-only of course.
>
> Here is an example of what I am saying...
>
> ---------------
> include win32lib.ew
>
> constant win = create(Window, "test", 0, 0, 0, 400, 300 ,0),
>          MsgArea = create(StatusBar, "", win, 0, 0, 0, 0, 0),
>          ef  = create(EditText, "" , win, 5, 5, 48, 20, ES_READONLY),
>          dd  = create(Combo, "", win, 5, 28, 150, 140, 0)
>
> --------------
> sequence ddKeys, ddCodes
> ddKeys = {"2% 10 Net 30", "3% 10 Net 60", "5% 15 Net 90" }
> ddCodes= { "N3"         , "N6"          , "N9"           }
>
> procedure Init_myDropDown()
>     eraseItems(dd)
>     addItem(dd, ddKeys)
> end procedure
>
> procedure myDropDown_Click()
>     sequence pick
>     integer what
>
>     pick = getItem(dd, 0)
>     if length(pick) != 0 then
>         what = find(pick, ddKeys)
>         if what != 0 then
>             setText(ef, ddCodes[what])
>         else
>             setText(MsgArea, "Unknown discount selected")
>         end if
>     else
>         setText(MsgArea, "No discount selected")
>     end if
> end procedure
>
> onChange[dd] = routine_id("myDropDown_Click")
> setWindowBackColor(ef, rgb(192,192,192))
>
> Init_myDropDown()
> WinMain(win, 0)
>
> --------------
> Derek
>
>
>
>
>