FiveTech Support Forums

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 wrote: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.

   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