Combobox and multiarray

[Marco Turco]

Hi all,
another question about combobox.
Is there a way to use a combobox to display only the second element of a multiarray ?

For example, I have a multi array like this:

aItems:={}
aadd(aItems,{"01","Marc"})
aadd(aItems,{"02","Frank"})
aadd(aItems,{"03","Paul"})

and I would like to display into the combo just the second element, so "Marc","Frank","Paul".
At the moment I solved making a new class but I would like to make this using the standard combobox class if possibile.

Any ideas ? Thanks in advance.

[nageswaragunupudi]

@ r, c COMBOBOX oCbx ........ ITEMS ArrTranspose( aItems )[ 2 ] .......

[Marco Turco]

Hi nageswaragunupudi,
thanks for the suggest. It runs well used as command line, but I'm unable to create a command "COMBOLIST" that automatically use this function with multidimensional array taking always the 2nd element.

Where I'm wrong ?

#xcommand REDEFINE COMBOLIST [ <oCbx> VAR ] <cVar> ;
[ <items: PROMPTS, ITEMS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ STYLE <nStyle> ] ;
[ <pict: PICT, PICTURE> <cPicture> ];
[ ON EDIT CHANGE <uEChange> ] ;
=> ;
[ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),;
ArrTranspose(<aItems>)[2], <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
<nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
<acBitmaps>, [{|nItem|<uBmpSelect>}], <nStyle>, <cPicture>,;
[<{uEChange}>] )

Thanks in advance

[nageswaragunupudi]

ArrTranspose(<aItems>)\[2\]

[Marco Turco]

Thank you.