xBrowse y color (Solucionado parcialmente)

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

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.

Code (fw): Select all Collapse

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

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: xBrowse y color
Posted: Tue Jun 25, 2013 04:52 PM

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

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: xBrowse y color (Solucionado parcialmente)
Posted: Wed Jun 26, 2013 04:22 PM

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

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

FiveTech Support Forums

Continue the discussion