Poner diferentes colores a un Grid

gracias hugo

no es lo que busco, ya que marea porque cambian los colores cada ves que te
mueves por el grid.

"Hugo M. Ranea" escribió en el mensaje
news:%

donato santana wrote:

>hola grupo
>
>n ecesito por cuestiones de una mejor vista de mis grillas, hacer que las
>lineas de los datos .Dinamycbackcolor sea de 2 diferentes colores,

intente

>con la siguientes instrucciòn
>
>With Thisform.Grid1
> .SetAll([DynamicBackColor] ,;
> "IIF(RECNO() % 2 != 0 ,;
> RGB(223,230,236) ,;
> RGB(255,255,255))" ,;
> [Column])
>EndWith
>
>pero no me sirvio ya que hago un filtro y el orden cambia segun las
>necesidades del usuario.
>
>mucho agradecere su ayuda, utilizo el VF8
>
>
>
>
>
Que pasa si haces algo así como:

en tu form creas un método nuevo: SetColor y una Propiedad nueva:
Resaltar (por ejemplo)

Thisform.Resaltar va a ser .f. por default, y en la funcion SetColor

pones:

lnColor = iif(thisform.Resaltar, rgb(223,230,236), rgb(255,255,255))
thisform.Resaltar = not thisform.resaltar
return lnColor

Luego en el init del form:

Thisform.Grid1.SetAll([DynamicBackColor], [thisform.SetColor()], [Column])

HTH

donato santana wrote:

hola grupo

n ecesito por cuestiones de una mejor vista de mis grillas, hacer que las
lineas de los datos .Dinamycbackcolor sea de 2 diferentes colores, intente
con la siguientes instrucciòn

With Thisform.Grid1
.SetAll([DynamicBackColor] ,;
"IIF(RECNO() % 2 != 0 ,;
RGB(223,230,236) ,;
RGB(255,255,255))" ,;
[Column])
EndWith

pero no me sirvio ya que hago un filtro y el orden cambia segun las
necesidades del usuario.

mucho agradecere su ayuda, utilizo el VF8

Que pasa si haces algo así como:

en tu form creas un método nuevo: SetColor y una Propiedad nueva:
Resaltar (por ejemplo)

Thisform.Resaltar va a ser .f. por default, y en la funcion SetColor pones:

lnColor = iif(thisform.Resaltar, rgb(223,230,236), rgb(255,255,255))
thisform.Resaltar = not thisform.resaltar
return lnColor

Luego en el init del form:

Thisform.Grid1.SetAll([DynamicBackColor], [thisform.SetColor()], [Column])

HTH

???

Esto te debería poner un renglon de cada color, independientemente de
que te muevas o no por el grid, pensé que eso era lo que querías

Hugo M. Ranea wrote:

???

Esto te debería poner un renglon de cada color, independientemente de
que te muevas o no por el grid, pensé que eso era lo que querías

Darn

Tienes razón, esto me pasa por no mirar lo que escribo, prueba agregando
una propiedad extra a las que te comente, llamemosla por ejemplo Count e
iniciala a 1, luego cambia el método SetColor a esto:

lnColor = iif(thisform.Resaltar, rgb(223,230,236), rgb(255,255,255))
if thisform.Count % thisform.grid1.ColumnCount = 0
thisform.Resaltar = not thisform.resaltar
thisform.count = 0 && No realmente necesaria, sólo para evitar
excedernos del valor max para enteros
endif
thisform.Count = thisform.count + 1
return lnColor

Hugo M. Ranea wrote:

Hugo M. Ranea wrote:

???

Esto te debería poner un renglon de cada color, independientemente de
que te muevas o no por el grid, pensé que eso era lo que querías

Darn

Tienes razón, esto me pasa por no mirar lo que escribo, prueba
agregando una propiedad extra a las que te comente, llamemosla por
ejemplo Count e iniciala a 1, luego cambia el método SetColor a esto:

lnColor = iif(thisform.Resaltar, rgb(223,230,236), rgb(255,255,255))
if thisform.Count % thisform.grid1.ColumnCount = 0
thisform.Resaltar = not thisform.resaltar
thisform.count = 0 && No realmente necesaria, sólo para evitar
excedernos del valor max para enteros
endif
thisform.Count = thisform.count + 1
return lnColor

ARGGGHHHH!!!

No es mi dia para nada.

Esto no funciona, parecería que va a funcionar pero cuando mueves el
cursor.. Pero, por ahí te ayuda a encontrar una solución...
Disculpame, pero apenas dormi anoche y se empieza a notar :)