FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Colorear celda en xBrows segĂșn sus datos ?
Ruben D. Fernandez
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Mon Sep 17, 2007 12:17 AM

Amigos:

No encontre un ejemplo en el xBrowse...

Como puedo colorear una celda segĂșn tenga
un dato positivo o negativo y se actualice cada vez que cambia ?

Disculpen pero no encontre la forma

Gracias.

Ruben Fernandez.

Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM

Re: Colorear celda en xBrows segĂșn sus datos ?

Posted: Mon Sep 17, 2007 10:07 AM
Prueba esto:

oLbx:aCols[ 4 ]:bClrStd := {|| { iif( Datos->Valor < 1, CLR_HRED, CLR_HBLUE), CLR_WHITE} }

Un saludo,
Manuel

Ruben D. Fernandez wrote:Amigos:

No encontre un ejemplo en el xBrowse...

Como puedo colorear una celda segĂșn tenga
un dato positivo o negativo y se actualice cada vez que cambia ?

Disculpen pero no encontre la forma

Gracias.

Ruben Fernandez.
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Ruben D. Fernandez
Posts: 189
Joined: Sun Jul 08, 2007 01:46 AM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Mon Sep 17, 2007 12:45 PM

GRACIAS Manuel...

FuncionĂł perfecto.

Saludos

Ruben Fernandez

QAZWSX2K
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Thu Sep 20, 2007 12:04 PM

SALUDOS, DONDE Y COMO DEFINO aCols[ 4 ], O PODRIAS PONER EL EJEMPLO COMPLETO Y DISCULPEN EL ABUSO, GRACIAS

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Thu Sep 20, 2007 01:32 PM
xBrose tiene un data aCols que es un array de objetos columna, es decir tantos elementos como colunas tengas en el txBrowse.
Luego bClrStd es un data del objheto columna, que esta dentro del array aCols que a su vez es un data del objeto txBrowse.

oBrw:aCols[numero de columna]:bClrStd ...

Tambien podria definirse en el momento de crear la columna, algo asĂ­
Code: Select all Collapse
      oBrw := TXBrowse():New(oWnd)
      ...
      oCol := oBrw:AddCol()
      oCol:cHeader  := 'Cabecera'
      oCol:bStrData := Alias->Campo
      oCol:bClrStd  := {||{CLR_HBLUE,CLR_WHITE}}  //Color estandar
      oCol:bClrSel  := {||{CLR_BLACK,RGB(157,255,255)}} //Color elemento seleccionado
      ...
Saludos desde Mallorca
Biel MaimĂł
http://bielsys.blogspot.com/
QAZWSX2K
Posts: 364
Joined: Tue Oct 25, 2005 07:06 PM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Thu Sep 20, 2007 04:03 PM

GRACIAS BIEL

Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian

alex_patino74@hotmail.com
whatsapp 57+3214777217
un_jeepero
Posts: 31
Joined: Fri Mar 17, 2006 02:04 PM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Fri Sep 21, 2007 02:08 PM

Hola Biel,
Como le haces para colorear lineas intercaladas utilizando la TXbrowse
me podrias dar un ejemplo por favor
gracias

salu2

Mauro

Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Fri Sep 21, 2007 02:57 PM
Hola Mauro,
ya se ha comentado otras veces en el foro. Para txBrose seria con el siguiente cĂłdigo.

Code: Select all Collapse
oBrw:bClrStd:=ClrStd()

//-----------------------
STATIC FUNCTION ClrStd()
//-----------------------
   LOCAL aCol:={}
   IF alias->(ordkeyno()) % 2 == 0
      aCol:={CLR_BLACK, RGB(193,221,255) }
   ELSE
      aCol:={CLR_BLACK, RGB(221,245,255) }
   ENDIF
RETURN aCol
Saludos desde Mallorca
Biel MaimĂł
http://bielsys.blogspot.com/
un_jeepero
Posts: 31
Joined: Fri Mar 17, 2006 02:04 PM

Colorear celda en xBrows segĂșn sus datos ?

Posted: Fri Sep 21, 2007 10:27 PM

Gracias por tu respuesta Gabriel.
Habia visto publicaciones anteriores, pero no me funcionan esto es lo que realizo en una Wnd..
colorea solamente si no esta la linea de ::oBrw:cAlias := ::oDbf:cAlias

  ::oBrw := TXBrowse():New( ::oWnd )
  ::oBrw:cAlias := ::oDbf:cAlias
  ::oBrw:bClrStd := { || Colores() }

  ::oCol := Array( 02 )
  ::oCol[01] := ::oBrw:AddCol()
  ::oCol[01]:cHeader := "Sucursal"
  ::oCol[01]:bStrData := { || ::oLoc:desloc }
  ::oCol[01]:nWidth  := 90

..
..
::oBrw:bKeydown := { | nKey | ::Modifica( ::oDbf:RecNo()) }
::oBrw:CreateFromCode()

//-----------------------
STATIC FUNCTION Colores()
LOCAL aCol:={}
IF (ordkeyno()) % 2 == 0
aCol:={CLR_BLACK, RGB(193,221,255) }
ELSE
aCol:={CLR_BLACK, RGB(221,245,255) }
ENDIF
RETURN (aCol)

Muchas gracias

salu2
Mauro

Continue the discussion

Static archive · New replies & topics via GitHub Discussions