xBrowse - Color en Columna

[MarioG]

Hola Gente
Deseo pintar una columna de un color distinto a la del resto. De hecho así lo tengo en otros xBrowses.
Aunque en el caso del que pinto con el efecto "pijama", no me toma la que pretendo diferenciar.
Este es mas o menos el código

Code: Select all  Expand view

  WITH OBJECT soBrwC
      :nStretchCol     := STRETCHCOL_LAST
      :nColDividerStyle:= LINESTYLE_DARKGRAY
      ...
      :bClrStd     := {||  {CLR_BLACK, if( (h0["Clientes"]:nArea)->( AdsKeyNo(,,ADS_IGNOREFILTERS ) )%2==0, CLR_BACKBLUE1, CLR_BACKBLUE2 ) } }
   END
   WITH OBJECT soBrwC:SaldoAct
         :nWidth    := 85
         :bClrEdit  := {|| { CLR_BLACK,CLR_BACKTIZA } }         // NO LO TOMA

         :bStrData:= {|| Trans( (h0["Clientes"]:nArea)->FCLI20, PIC_DIEZCIF3 ) }
   END

No lo toma por el efecto "pijama"?

[FranciscoA]

Hola Mario.
Ya probaste con:

Code: Select all  Expand view

oBrw:aCols[1]:bClrStd := {|| { CLR_BLACK, RGB(166,166,255) }}

[MarioG]

Francisco, gracias por responder

Mi define es (son):
#define CLR_BACKTIZA nRGB( 230, 230, 230 )

Aunque probé como me indicas, la columna "no se quiere sacar el pijama"

[cnavarro]

Puede tener algo que ver lo que tengas definido en el:

Code: Select all  Expand view

:nMarqueeStyle    := .....      //Por ejemplo: MARQSTYLE_HIGHLROW
 

o si no lo tienes definido, el que tome por defecto

[MarioG]

Cristobal, gracias por tu interes

Deshabilite esa llinea y tampoco pasa por ahí.
Voy a mirar bien el códigó en el browse que si me muestra columnas colorizadas

[FranciscoA]

Intentalo poniendo oBrw:aCols[1]:bClrStd := {|| { CLR_BLACK, RGB(166,166,255) }} despues del oBrw:CreateFrom...()

Asi me funciona:

Code: Select all  Expand view

@3,1 XBROWSE oBrw OF oDlg ;
     ARRAY {} CELL LINES FOOTERS AUTOSORT

     FapBrwSetup(oBrw)

     oBrw:CreateFromCode()

     oBrw:aCols[1]:bClrStd := {|| { CLR_BLACK, RGB(166,166,255) }}
 

[MarioG]

Amigos;
es sábado y parece que la "mente" me esta diciendo basta!.... jejeje
mi error es este: (copiar y pegar no siempre es la solución!)
:bClrEdit := {|| { CLR_BLACK,CLR_BACKTIZA } }
en lugar de
:bClrStd := {|| { CLR_BLACK,CLR_BACKTIZA } }
que obviamente si funciona... que papelón!

No obstante ya que estan en ritmo pregunto:
Para cambiar el font de la barra de señaladora uso

Code: Select all  Expand view

   WITH OBJECT oBrw
      :oDataFonts  := {|| if( oLstChq:BookMark == nPosActual, ::hFont["Calibri16B"], ::hFont["Calibri16"] ) }
      :bChange     := {|| nPosActual := oLstChq:BookMark, oLstChq:Refresh() }
   END
   // En la columna como?
   WITH OBJECT soBrwC:SaldoAct
         :nWidth   := 85
         :bClrStd  := {|| { CLR_BLACK,CLR_BACKTIZA } }     // NO FUNCA
         :b??????  :=  {|| ::hFont["Calibri16B"] }
         :bStrData:= {|| Trans( (h0["Clientes"]:nArea)->FCLI20, PIC_DIEZCIF3 ) }
      END 

Y lo que que pretendo es que lo que muestro en la columna colorizada , además, me salga con un font de tipo negrita.
Esa DATA existe?

[FranciscoA]

Prueba con:

Code: Select all  Expand view

    oBrw:aCols[1]:oDataFont := oFont
 

[MarioG]

graciassss!!!