Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 04:18 PM

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 (fw): Select all Collapse

   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"?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 05:09 PM

Hola Mario.
Ya probaste con:

Code (fw): Select all Collapse

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 05:53 PM

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"

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 06:01 PM

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

Code (fw): Select all Collapse

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

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 06:14 PM

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

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 06:35 PM

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

Asi me funciona:

Code (fw): Select all Collapse

@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) }}

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - Color en Columna
Posted: Sat Jan 17, 2015 07:35 PM

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 (fw): Select all Collapse

    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?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: xBrowse - Color en Columna
Posted: Sun Jan 18, 2015 12:26 AM

Prueba con:

Code (fw): Select all Collapse

     oBrw:aCols[1]:oDataFont := oFont

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: xBrowse - Color en Columna
Posted: Sun Jan 18, 2015 03:41 PM

graciassss!!!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

define CLR_BACKTIZA nRGB( 230, 230, 230 )

Continue the discussion