topic-9748

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 04:21 PM

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 04:28 PM

CREO QUE LA TWBROWSE DE HERNAN CECCARELI LO HAGA.

EN LA TWBROWSE STANDAR DE FIVEWIN NO CONOZCO.

LA TSBROWSE BY MANUEL MERCADO TANBIÉN.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 04:51 PM

Esteban,

Te refieres a un browse ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 04:59 PM

Si antonio.

Lo estoy redefiniendo así:

Code: Select all Collapse

   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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 05:01 PM

A que te refieres con la primera fila ?

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 05:16 PM

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 05:20 PM

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

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 05:48 PM

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.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 06:16 PM

Posiblemente se pueda hacer de distintas formas. Prueba asi:

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

jrestojeda

Posts: 601

Joined: Wed Jul 04, 2007 03:51 PM

Duda con ListBox
Posted: Thu Jan 24, 2008 07:45 PM

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

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

FiveTech Support Forums

Continue the discussion