Artigos Delphi Dicas - Colocando cores em um DBGrid

Colocando cores no DBGrid

 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

var

  holdColor: TColor;

begin

  holdColor := DBGrid1.Canvas.Brush.Color;

  if Column.FieldName = 'Condiçao' then

    if (Column.Field.AsInteger mod 2 <> 0) then

    begin

      DBGrid1.Canvas.Brush.Color := clGreen;

      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

      DBGrid1.Canvas.Brush.Color := holdColor;

    end;

end;