xBrowse y color (Solucionado parcialmente)

[Manuel Aranda]

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.

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




 

[Manuel Aranda]

Disculpad mi insistencia, pero no será que una vez activado el xBrowse, oBrw:bClrStd ya no se puede cambiar ? ¿Le ha ocurrido a alguien?

[Manuel Aranda]

La primera parte la he solucionado con oBrw:bClrStds
viewtopic.php?f=3&t=21571