necesito solucionar esto de FIELDS en listbox

[goosfancito]

la definicion de un listbox (para poder usarlo en una TW) es:

redefine listbox oListBox;
fields columna(1),;
columna(2),..
....

Ahora bien, estoy queriendo hacer una libreria donde esos "fields" varien en cantidad, o sea, 1, 4, 5, etc.
o sea para cualquier numero de campos en fields...
Pero veo que no hay un DATA en el listbox para poder pasar un "array" como parametro de Fields (o por lomenos no lo he podido hacer funcionar)
como puedo hacer para solucionar este inconveniente?

Gracias.

[goosfancito]

la definicion de un listbox (para poder usarlo en una TW) es:

redefine listbox oListBox;
fields columna(1),;
columna(2),..
....

Ahora bien, estoy queriendo hacer una libreria donde esos "fields" varien en cantidad, o sea, 1, 4, 5, etc.
o sea para cualquier numero de campos en fields...
Pero veo que no hay un DATA en el listbox para poder pasar un "array" como parametro de Fields (o por lomenos no lo he podido hacer funcionar)
como puedo hacer para solucionar este inconveniente?

Gracias.

Gracias wMorman

Code: Select all  Expand view

  WITH OBJECT (::oTw := TWBrowse())
      :REDEFINE( 100, {|| {::armarcolumna(1),::armarcolumna(2),::armarcolumna(3),::armarcolumna(4)} }, ::oDlg, ::aNombreColumnas, ::aTamanioColumnas )
      :nHeaderHeight := 28
      :nLineHeight   := 20
      :aHJustify:= {2,2,2}

      :bBkColor      := { |nRow, nCol, nstyle| IF(nCol==1, ::ColorCol1,)}
      :nClrPane      := { || IF (::oQuery:Recno() % 2 == 0, ::colorRowPar, ::colorRowImpar)}

      //----------( teclado )----------
      :bKeyDown:= { |nKey| IF(!Empty(::bAbm()),Eval(::bABM, nkey),) }
   END WITH
 

Hay q hacerlo por OOP no por redefine directamente. Esto hasta aca funciona.