RE:"Pintar" un TDBGrid
Publicado por
Nacho (1 intervención) el 01/07/2001 20:27:49
Hola:
A ver si me explico bien.
Desde el formulario que aparece cuando haces click con el botón derecho del ratón y elijes propiedades, debes seleccionar la pestaña splits.
Una vez allí marcas como True la propiedad FetchRowStyle. También debes seleccionar la característica EditorStyle y EvenRowStyle como HighLightRow. De esa forma creo que te selecciona la fila entera.
A partir de ese momento creo que este ejemplo de código te servirá de ayuda.
Private Sub grid_ordenes_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueDBGrid70.StyleDisp)
On Error Resume Next
DoEvents
CellStyle.BackColor = grid_ordenes.Columns(7).CellText(Bookmark)
On Error GoTo 0
End Sub
En la columna 7 (invisible para el usuario) guardo un código de color, almacenado en una tabla de una base de datos, que es el que me sirve de referencia para pintar la fila en cuestión.
Pruebalo y si tienes algún problema me lo comentas.