OpenEuphoria

Re: Win - Combo control behavior

• Posted by Euman <euman at BELLSOUTH.NET> Dec 04, 2000
• 651 views

Please disregard, This method works only when
not entering data into the combo....

It does work for selecting the list from the dropdown
of the combo...

euman

----- Original Message -----
From: "Euman" <euman at BELLSOUTH.NET>
To: <EUPHORIA at LISTSERV.MUOHIO.EDU>
Sent: Monday, December 04, 2000 1:46 AM
Subject: Re: Win - Combo control behavior


> Here's the answer to your Question
>
> **Begin Code**
>
> include win32lib.ew
>
> constant
>   win = create(Window, "", 0, Default, Default, 200, 200, 0),
>   combo = create(Combo, "", win, 10, 10, 120, 80, 0),
>   status = create(StatusBar, "", win, 0, 0, 0, 0, 0)
>
> sequence combo_txt
> integer index
>
> combo_txt = {"micro","snort","is","evil"}
>
> procedure onChange_combo()
>   index = getIndex(combo)
>   setText(status, combo_txt[index])
> end procedure
>
> for add_txt = 1 to length(combo_txt) do
>     addItem(combo, combo_txt[add_txt])
> end for
>
> onChange[combo] = routine_id("onChange_combo")
>
> WinMain(win, Normal)
>
> **End Code**
>
> euman at bellsouth.net
>