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() )