Thanks for the code, I will give it a shot...


>>>>>Is it possible to have Multiple Items Selected in a Listbox?
>>>>>
>>>>>If so, how?
>>>>>
>>>>>Thanks
>>>>>Jerimi
>>>>>PS: I know one answer VFP.... :)
>>>>
>>>>
>>>>YOu have to make your own.
>>>I can't remember the syntax now but yes (In FP 2.x). I can send you an example by tomorrow if you want.
>>>Cetin
>>Yeah if you have an example, that would be great.
>>I am using DEFINE POPUP with PROMPT and MULTISELECT does not work
>>with the PROMPT command.
>>I am using a SQL SELECT to gather into a cursor, then displaying in listbox.
>>Any help is appreciated...
>This is a basic example using as a listbox.

SET TALK OFF
>DEFINE WINDOW mywindow ;
>		FROM INT((SROW()-18)/2),INT((SCOL()-60)/2) ;
>		TO INT((SROW()-18)/2)+17,INT((SCOL()-60)/2)+59 ;
>		NOFLOAT ;
>		NOCLOSE ;
>		SHADOW ;
>		NOMINIMIZE ;
>		COLOR SCHEME 1
>
>#REGION 1
>select company ;
>	from (home()+"tutorial\customer") ;
>	into array popper
>DEFINE POPUP popstop ;
>	SCROLL MULTI MARGIN ;
>	from 2,0 to 14,20 ;
>	in window mywindow ;
>	mark chr(16)
>FOR IXP=1 TO ALEN(popper,1)
>    DEFINE BAR IXP OF popstop PROMPT popper[IXP]
>ENDFOR
>activate popup popstop nowait
>
>#REGION 1
>IF WVISIBLE("mywindow")
>	ACTIVATE WINDOW mywindow SAME
>ELSE
>	ACTIVATE WINDOW mywindow NOSHOW
>ENDIF
>@ 2,29 GET m.showthem ;
>	PICTURE "@*HN Selected" ;
>	SIZE 1,8,1 ;
>	DEFAULT 1 ;
>	VALID _ru50odwhc()
>@ 1,2 GET m.activator ;
>	PICTURE "@*HN Pop List" ;
>	SIZE 1,9,1 ;
>	DEFAULT 1 ;
>	VALID _ru50odwhr()
>@ 4,28 GET m.testtextbox ;
>	SIZE 1,10 ;
>	DEFAULT " "
>
>IF NOT WVISIBLE("mywindow")
>	ACTIVATE WINDOW mywindow
>ENDIF
>READ CYCLE
>RELEASE WINDOW mywindow
>
>FUNCTION _ru50odwhc     &&  m.showthem VALID
>#REGION 1
>activate screen
>FOR KP=1 TO ALEN(popper,1)
>   IF MRKBAR("POPSTOP",KP)
>	* Item selected
>	? prmbar("POPSTOP",KP)
>   ENDIF
>ENDFOR
>
>FUNCTION _ru50odwhr     &&  m.activator VALID
>#REGION 1
>activate popup popstop

>I prefer "popup on demand" because it's space saving and multiselect list has little meaning to show all time. For it you would only need the m.activator to show and m.showthem routine to collect selected.
>Hope it helps.
>Cetin