Duda con ListBox

Duda con ListBox

Postby jrestojeda » Thu Jan 24, 2008 4: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.
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Postby karinha » Thu Jan 24, 2008 4: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
User avatar
karinha
 
Posts: 7856
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Antonio Linares » Thu Jan 24, 2008 4:51 pm

Esteban,

Te refieres a un browse ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jrestojeda » Thu Jan 24, 2008 4:59 pm

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.
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Postby Antonio Linares » Thu Jan 24, 2008 5: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jrestojeda » Thu Jan 24, 2008 5: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.

Image

Espero tu respuesta.
Saludos.
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Postby Antonio Linares » Thu Jan 24, 2008 5: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jrestojeda » Thu Jan 24, 2008 5: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.
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Postby Antonio Linares » Thu Jan 24, 2008 6: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby jrestojeda » Thu Jan 24, 2008 7:45 pm

Antonio.
Gracias por tu atención.
Funcionó perfecto!!
Saludos,
Desde Argentina, Esteban
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 64 guests