Fórum Cores no Registros do DBGRid #220234

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
begin 
  if (Column.Field= Table1.FieldByName(´Nome Do Campo´))then 
    begin 
       if Table1.FieldByName(´Nome Do Campo´).AsInteger > 18 Then
            DBGrid1.Canvas.Font.Color:=ClBlue
       Else
         if Table1.FieldByName(´Nome Do Campo´).AsInteger < 18 Then
            DBGrid1.Canvas.Font.Color:=ClRed; 
     end;         
 DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;