xBrowse y color (Solucionado parcialmente)
Posted: Mon Jun 24, 2013 11:03 am
Al entrar en un diálogo con un xBrowse pinto las lineas de diversos colores según el valor de un campo. Lo hace correcto.
Sin embargo, quiero cambiar el pintado de toda la linea al pintado de una sóla columna según un CHECKBOX. El ON CHANGE del CHECKBOX no me funciona.
Pongo aquí el código por si pudiérais ayudarme.
Sin embargo, quiero cambiar el pintado de toda la linea al pintado de una sóla columna según un CHECKBOX. El ON CHANGE del CHECKBOX no me funciona.
Pongo aquí el código por si pudiérais ayudarme.
- Code: Select all Expand view
Local lColorLinea := .T.
Local oColorLinea
////
........................
....................................
IF LColorLinea
//
oBrw:bClrStd:={||{CLR_BLACK, (IIF(DATOS->Letra="A",RGB(255,0,0),;
IIF(DATOS->Letra="B",RGB(255,125,0),;
IIF(DATOS->Letra="C",RGB(255,255,0),;
IIF(DATOS->Letra="D",RGB(130,210,250),;
IIF(DATOS->Letra="E",RGB(0,255,0),CLR_WHITE))))) )}},;
ELSE
//
oBrw:aCols[ 6 ]:bClrStd:={||{CLR_BLACK, (IIF(DATOS->Letra="A",RGB(255,0,0),;
IIF(DATOS->Letra="B",RGB(255,125,0),;
IIF(DATOS->Letra="C",RGB(255,255,0),;
IIF(DATOS->Letra="D",RGB(130,210,250),;
IIF(DATOS->Letra="E",RGB(0,255,0),CLR_WHITE))))) )}} ),;
ENDIF
//
REDEFINE CHECKBOX oColorLinea VAR LColorLinea ID 513 OF oDlg;
ON CHANGE (IIF(LColorLinea, oBrw:bClrStd:={||{CLR_BLACK, (IIF(DATOS->Letra="A",RGB(255,0,0),;
IIF(DATOS->Letra="B",RGB(255,125,0),;
IIF(DATOS->Letra="C",RGB(255,255,0),;
IIF(DATOS->Letra="D",RGB(130,210,250),;
IIF(DATOS->Letra="E",RGB(0,255,0),CLR_WHITE))))) )}},;
rw:aCols[ 6 ]:bClrStd:={||{CLR_BLACK, (IIF(DATOS->Letra="A",RGB(255,0,0),;
IIF(DATOS->Letra="B",RGB(255,125,0),;
IIF(DATOS->Letra="C",RGB(255,255,0),;
IIF(DATOS->Letra="D",RGB(130,210,250),;
IIF(DATOS->Letra="E",RGB(0,255,0),CLR_WHITE))))) )}} ),;
oBrw:Refresh() )