You might try initial release of MultiSelectGrid class (current version is not in public domain and part of FoxyClasses). Download #
9361Cetin
>I am beginning to think you are right especially as one can make it look exactly the same. I haven't used List boxes much but as I dont like to give up on a problem until I understand it, I persisted.
>
>Is there a row class for the grid that I couold customise?
>
>Regards
>Geoff Scott
>
>>Geoff,
>>
>>I find multi-select grid to be much better interface than multi-select listbox.
>>
>>>
>>>I am trying to set the selected items in a listbox upon entry to a form.
>>>
>>>In the Init event I have the following
>>>
>>>DODEFAULT()
>>>this.AddProperty('cWotypes')
>>>WITH this
>>> .cWotypes = oIni.profilestring('WotsCont', 'User', 'Wotypes','')
>>> .cWotypes = IIF(EMPTY(.cWotypes), "[]",.cWotypes)
>>>
>>> m.cWotypes = .cWotypes
>>> FOR m.nCnt = 1 TO .ListCount
>>> .Selected(m.nCnt) = INLIST(.List(m.nCnt,2), &cWotypes)
>>> ENDFOR
>>> .Refresh()
>>>ENDWITH
>>>
>>>This is setting the values fine but my listbox does not have any items highlighted when the form displays.
>>>
>>>I tried putting reload code in GotFocus but it only hightlighted it if I put NODEFAULT at the end without a DODEFAULT() at the beginning. Unfortunately this disables my control.
>>>
>>>What am I doing wrong.
>>>
>>>Regards
>>>Geoff Scott