MUDAR COR DA FONTE NO TRUE DBGRID EM TEMPO DE EXEC

MAXTELMO 26/08/2010 17:53:06
#351409
Poxa me ajudem.

Gostaria de saber qual evento do True Dbgrid eu chamo para que ele troque a cor de uma fonte ou fundo, ao identificar que naquela celula existe um valçor específico.

Por FAvor não sei mais o que tentar, no Dbgrid, existe um evento onDrawCollumCell, mas no Tdbgird num achei nada.

Agradeço a Atenção
PASCOAL 26/08/2010 19:22:55
#351423 Resposta escolhida
EU USO ASSIM :
Private Sub TDBGrid1_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueDBGrid70.StyleDisp)
Set RSetClone = Data5.Recordset.Clone
RSetClone.Bookmark = Bookmark

If RSetClone![Titulo] = True Then
CellStyle.ForeColor = &HFF&
CellStyle.BackColor = &HC0FFFF
Else
CellStyle.ForeColor = &H0&
CellStyle.BackColor = &HFFFFFF
End If

End Sub

E AINDA NA PROPRIEDADE FetchCellStyle COLOQUE TRUE NA COLUNA AONDE QUER QUE MUDE A COR.

QQ COISA ME AVISE
XXXANGELSXXX 26/08/2010 20:46:37
#351425
Boa noite, eu faço assim para alternar as cores..

num modulo..

 
Public Function CoresGrid(Grid As TDBGrid, EvenRowColor As String, OddRowColor As String, alternating As Boolean)
    Grid.EvenRowStyle.BackColor = EvenRowColor
    Grid.OddRowStyle.BackColor = OddRowColor
    Grid.AlternatingRowStyle = alternating
End Function



no load do form que tem o grid..

CoresGrid TDBGrid1, &HEFEFEF, &HFFFFFF, True
PASCOAL 26/08/2010 20:49:10
#351426
MAS AI MUDA UMA COLUNA DEPENDENDO O VALOR QUE ESTA NELA?

DO JEITO QUE FAÇO FICA CERTINHO
MAXTELMO 27/08/2010 11:14:36
#351463
Vou tentar e reporto para vc's
por enquanto muito obrigado
MAXTELMO 27/08/2010 13:50:11
#351486
tipo é o seguinte, funcionou os dois códigos, mas eu queria realmente o seguinte:

por exemplo:

colunas codigo, nome, idade

1 / max / 32
2 / edson / 30
3 / fulano / 17

o resgitro 3 está com a a idade < 18 então o campo idade, deste registro ficaria vermelho.

Deu pra entender
PASCOAL 27/08/2010 20:07:40
#351531
ai está :

Private Sub TDBGrid1_FetchCellStyle(ByVal Condition As Integer, ByVal Split As Integer, Bookmark As Variant, ByVal Col As Integer, ByVal CellStyle As TrueDBGrid70.StyleDisp)
Set RSetClone = Data1.Recordset.Clone
RSetClone.Bookmark = Bookmark
If Col = 5 And (Year(Date) - Year(RSetClone![DATANASC])) < 18 Then
CellStyle.ForeColor = vbRed
Else
CellStyle.ForeColor = vbBlue
End If

End Sub

não esqueça de informar FetchCellStyle = true na coluna aonde vai mudar de cor.

espero ter ajudado qq coisa me avise, se quiser mandar a rotina para eu ver me mande por email : flowsys@flowsys.com.br
MAXTELMO 30/08/2010 13:42:14
#351722
Pascoal...

Bixo te devo uma, valeu mermo, pode crer deu certin,
PASCOAL 01/09/2010 13:52:40
#351935
Beleza..........

Encerra o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar