Duda con ListBox

[jrestojeda]

Hola a todos.
Necesito pintar la primera fila de un ListBox. (Solo la primera y que el color quede fijo)
No he encontrado un método que me permita pintar la fila.
Alguien tiene una idea de cómo puedo hacerlo?
Desde ya muchas gracias.
Saludos, Esteban.

[karinha]

CREO QUE LA TWBROWSE DE HERNAN CECCARELI LO HAGA.

EN LA TWBROWSE STANDAR DE FIVEWIN NO CONOZCO.

LA TSBROWSE BY MANUEL MERCADO TANBIÉN.

[Antonio Linares]

Esteban,

Te refieres a un browse ?

[jrestojeda]

Si antonio.

Lo estoy redefiniendo así:

Code: Select all  Expand view  RUN

   REDEFINE LISTBOX oLbx;
      FIELDS Vector1[nItem1],Vector2[nItem1];
      HEAD "Codigo","Descripcion";
      SIZES 90,120;
      ID 1000 OF oDlg1;
      UPDATE

   oLbx:bGoTop    :={|| nItem1 := 1 }
   oLbx:bGoBottom :={|| nItem1 := Eval( oLbx:bLogicLen ) }
   oLbx:bSkip     :={| nWant, nOld | nOld := nItem1, nItem1 += nWant,;
                      nItem1 := Max( 1, Min( nItem1, Eval( oLbx:bLogicLen ) ) ),;
                      nItem1 - nOld }
   oLbx:bLogicLen :={|| Len( Vector1 ) }
   oLbx:aJustify  :={.f.,.f.}



Saludos.

[Antonio Linares]

A que te refieres con la primera fila ?

Puedes mostrar una imagen del resultado que necesitas ? Aunque sea dibujándolo (usa www.imageshack.us)

[jrestojeda]

Antonio
Lo que necesito es que la línea en verde siempre quede en verde,
independientemente de cual sea la línea seleccionada.



Espero tu respuesta.
Saludos.

[Antonio Linares]

Todo lo que necesitas es determinar que condición cumple esa primera línea:

oBrowse:nClrPane = { || If( <se cumple condición>, VERDE, otro_color ) }

[jrestojeda]

Muchas gracias Antonio.
Funcionó perfecto!!
Ahora bien, si no es mucho pedir, hay alguna forma no poder seleccionar la primera línea.
Es decir que solo se puedan seleccionar desde la línea 2 hasta la última.
Desde ya muchas gracias.

[Antonio Linares]

Posiblemente se pueda hacer de distintas formas. Prueba asi:

oBrowse:bChange = { || If( <se cumple condición de primera linea>, oBrowse:GoDown(), nil ) }

[jrestojeda]

Antonio.
Gracias por tu atención.
Funcionó perfecto!!
Saludos,
Desde Argentina, Esteban