Ver Mensaje Individual
  #8 (permalink)  
Antiguo 02/04/2007, 00:47
Insomnia
 
Fecha de Ingreso: noviembre-2005
Mensajes: 751
Antigüedad: 19 años, 5 meses
Puntos: 13
Re: Cambiar el color de una celda en tdbgrid de acuerdo a una condicion

Hola

Para cambiar el color de la línea completa, utilizo el siguiente código:

Código:
Dim Anuleta As New TrueOleDBGrid80.Style

Form_Load
'Pone una linea de la rejilla de un color determinado
    Rejilla.FetchRowStyle = True 'Para poder aplicar el color de linea tiene q estar en true
    Set Anuleta = Rejilla.Styles.Add("Anuleta") 'Cargamos el estilo
    Anuleta.BackColor = vbRed 'Definimos el estilo (podemos poner mas cosas como font.italic, font.bold, .forecolor,...)

Rejilla_FetchRowStyle
If Rejilla.Columns(24).CellText(Bookmark) = "-1" Then
        RowStyle = Anuleta
End If
En mi ejemplo, pongo todas las lineas que tengan valor -1 en la columna 24 a rojo, si lo que quieres es que cambie de color al hacer click en una línea tendrás que adaptarlo, tal vez, en el evento click.

--Saludos--