Cor de fonte no dbGrid

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin -if (Column.FieldName = ´LastInvoiceDate´) then --with DBGrid1.Canvas do begin ---if (QueryINFORMACAO.Value > INTEIRO) and Column.Field=´COLUNA´ then ----Font.Color := clNavy ---else ---Font.Color := clRed; --end; -DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State); end; é só trabalhar neste exemplo que vc consegue

Voce deve inserir isso no evento OnDrawColumnCell do seu DBGrid //cabeçalho do evento //de dois clicks no Object Inspector que abrirá esta função procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState); begin -if (Column.FieldName = ´CAMPO´) then //aqui vc coloca o campo que deseja colorir por exemplo DATA ou VALORPAGO --with DBGrid1.Canvas do begin //canvas é o elemento de desenho, tudo está nele ---if (QueryINFORMACAO.Value > INTEIRO) then //Aqui vc coloca o valor tipo QryVALORPAGO.value>100 significa que vai colorir onde o valor é maior que 100 ----Font.Color := clNavy //as cores desejadas para a condição ---else ---Font.Color := clRed; // a cor que --end; -DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State); //esta é a função default para desenhar end; Tente entender Qualquer coisa tente este exemplo para zebrar o DBGrid que é muito simples Tente isso com uma Query1 qualquer ligada a um DBGrid1 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin -If Odd(Query1.RecNo) then -begin ---DBGrid1.Canvas.Brush.Color:= clmoneygreen; -end -else -begin ---DBGrid1.Canvas.Brush.Color:= clWhite; -end; ---DBGrid1.Canvas.FillRect(Rect); ---DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); end;