TDBGrid bileseninde gösterilen bilginin, daha kolay okunabilmesi, ve kullanicinin dikkatinin bazi özel durumlara cekilebilmesi icin, hücreleri renklendirmek faydali olabilir.
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 = 'EmpNo' 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;