Como pintar linhas do DBGRID aleat�riamente?

Question

Peciso colocar a op��o de pintar a linha do dbgrid quando o usuario escolher fazer isso no PopUpMenu. No evento OnDrawColumnCell fa�o corretamente. Mas como fazer isso aleat�riamente?...

Lcfinformatica · Answer

J� descobri como fazer. Mas obrigado por ler mesmo assim....

.lg. · Answer

[quote:76fc44f530=�lcfinformatica�]J� descobri como fazer. Mas obrigado por ler mesmo assim.[/quote:76fc44f530]Ue...Posta ae pra gente. Tem como!?Gostaria de saber como fazer isso.  :D Agrade�o desde ja..lg....

Leandrosl · Answer

Aproveitando o t�pico,Eu estou usando a seguinte linda de comando para mudar a cor de uma linha do DBGrid:[code:1:959094e9ad]If QueryContas_Pagar.FieldByName(�Data_Pagamento�).AsDateTime>QueryContas_Pagar.FieldByName(�Data_Vencimento�).AsDateTime Then  Begin      DBGridPagar_Receber.Font.Color:=clBlue;      DBGridPagar_Receber.Canvas.Font.Color:= 0;      DBGridPagar_Receber.Canvas.Font.Style := &#91;fsBold&93;;     DBGridPagar_Receber.DefaultDrawDataCell(Rect, Column.Field, State);   End;[/code:1:959094e9ad]O grid muda de cor mais acontece que ele fica como se estivesse em loop infinito, n�o sei o que pode ser mais algu�m poderia me ajudar ?Obs: O c�digo est� no OnDrawColumnCell do DBGridObrigado...

.lg. · Answer

Leandrosl,Pelo que estou entendendo do seu c�digo, voc� faz com que ele mude a cor da palavra certo!?Eu preciso de algo parecido.Teria como voc� me explicar o que essas linhas fazem!? seria de grande ajuda.[code:1:f112f22e09]DBGridPagar_Receber.Canvas.Font.Color:= 0; DBGridPagar_Receber.Canvas.Font.Style := &#91;fsBold&93;;DBGridPagar_Receber.DefaultDrawDataCell(Rect, Column.Field, State);[/code:1:f112f22e09]...

Leandrosl · Answer

Na verdade eu quero mudar � a cor da linha e n�o da palavra,

If QueryContas_Pagar.FieldByName(�Data_Pagamento�).AsDateTime>QueryContas_Pagar.FieldByName(�Data_Vencimento�).AsDateTime Then
  Begin
      DBGridPagar_Receber.Font.Color:=clBlue;
      DBGridPagar_Receber.Canvas.Font.Style := [fsBold];
     DBGridPagar_Receber.DefaultDrawDataCell(Rect, Column.Field, State);
   End;

Fiz uma corre��o no codigo pq tinha uma linha que estava errada mais ainda continuo com problema.

Obrigado