Color en un listbox

[servicomver]

Hola, estoy atorado con un problema:_
tengo una base de datos, la cual contiene entre sus campos:
REGISTRO--->Numerico, 1, 0
(lo uso para determinar si la existencia es suficiente )


cuando el campo REGISTRO es 1 debe mostrar el registro en color rojo, para lo cual hago:


nClr1:=Rgb(250,0,0) //EL SELECCIONADO
nClr2:=RGB(255,255,255)

oLbx:nClrPane:={ || iif(aMostr_&vdos->Registro=1,nClr1,nClr2)}

funciona bien, pero cuando "paso el cursor x uno que esta en color rojo" el prompt pone el color "azul" (x default), lo que necesito es que se quede en rojo ("rojo y letras blanas x ejemplo), y al darle la flecha abajo o arriba si encuantra aMostr_&vdos->Registro=0 siga igual es decir prompt "azul/letras blancas", espero haberme explicado bien
gracias por su ayuda.
saludos
Veracruz, Mexico

PD.-uso 1 y 0 por que la existencia la verifica en otra base de datos al no encontrar existencia suficiente marca el registro con "1" de lo contrario pone "0"

[leandro]

Creo que esto es lo que necesitas:

Code: Select all  Expand view  RUN


//CAMBIOS DE COLORES Y ALINEACION
oLbx:aJustify:={(.F.),(.F.),(.F.),(.F.)}
oLbx:nClrBackFocus:=RGB(0,0,255)
oLbx:nClrForeFocus:=RGB(255,255,255)
oLbx:NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oLbx:nClrBackHead:=RGB(0,0,255)
oLbx:nClrForeHead:=RGB(255,255,255)



Espero te sirva..

[servicomver]

gracias leandro, ahora mismo lo intento
saludos