topic-5445

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Color en un listbox
Posted: Tue Dec 26, 2006 07:29 PM

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

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Amigo...
Posted: Tue Dec 26, 2006 10:59 PM

Creo que esto es lo que necesitas:

Code: Select all Collapse

//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..

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

servicomver

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Color en un listbox
Posted: Tue Dec 26, 2006 11:01 PM

gracias leandro, ahora mismo lo intento
saludos

FiveTech Support Forums

Continue the discussion