Colorear celda en xBrows según sus datos ?

Colorear celda en xBrows según sus datos ?

Postby Ruben D. Fernandez » 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.
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Re: Colorear celda en xBrows según sus datos ?

Postby Manuel Aranda » 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.
User avatar
Manuel Aranda
 
Posts: 604
Joined: Wed Oct 19, 2005 8:20 pm
Location: España

Postby Ruben D. Fernandez » Mon Sep 17, 2007 12:45 pm

GRACIAS Manuel...

Funcionó perfecto.

Saludos

Ruben Fernandez
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Postby QAZWSX2K » 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
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby Biel EA6DD » Thu Sep 20, 2007 1: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  Expand view  RUN
      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/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

Postby QAZWSX2K » Thu Sep 20, 2007 4: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
User avatar
QAZWSX2K
 
Posts: 364
Joined: Tue Oct 25, 2005 7:06 pm
Location: Bogota - Caracas

Postby un_jeepero » Fri Sep 21, 2007 2:08 pm

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

salu2

Mauro
un_jeepero
 
Posts: 31
Joined: Fri Mar 17, 2006 2:04 pm

Postby Biel EA6DD » Fri Sep 21, 2007 2:57 pm

Hola Mauro,
ya se ha comentado otras veces en el foro. Para txBrose seria con el siguiente código.

Code: Select all  Expand view  RUN
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/
User avatar
Biel EA6DD
 
Posts: 682
Joined: Tue Feb 14, 2006 9:48 am
Location: Mallorca

Postby un_jeepero » 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
un_jeepero
 
Posts: 31
Joined: Fri Mar 17, 2006 2:04 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 17 guests