компонент DBGrid

[hint]

Возможно ли в компоненте DBGrid установить чередующийся цвет строк?

И ище как прописать так чтобы строка допустим с просроченной датой выделялась цветом

спасиба...

[Amsterdam]

Процедура OnDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState).

Пример использования (под себя переделаешь, думаю):

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;

  Field: TField; State: TGridDrawState);

begin

  if (Sender as TDBGrid).DataSource.DataSet.FieldByName('Extend').AsString =

    '@' then

    with (Sender as TDBGrid).Canvas do

      begin

        FillRect(Rect);

      // SET THE FONT STYLE

      Font.Color:= clRed;

      // DRAW THE CELL RIGHT ALIGNED FOR FLOATS + OFFSET

        if (Field.DataType = ftFloat) then

          TextOut(Rect.Right - TextWidth(Field.AsString) - 3,

            Rect.Top + 3, Field.AsString)

      // OTHERWISE DRAW THE CELL LEFT ALIGHED + OFFSET

        else

          TextOut(Rect.Left + 2, Rect.Top + 3, Field.AsString);

      end;

end;