Как выделить окошко DBGrid другим цветом

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как выделить окошко DBGrid другим цветом

Оформил: DeeCo

Необходимо обработать событие "OnDrawCellData". Например для того, чтобы пометить выбранное окошко красным фоном, необходимо сделать следующее:

procedure TForm1.DBGridDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);

begin
  if gdFocused in State then
    with (Sender as TDBGrid).Canvas do
    begin
      Brush.Color := clRed;
      FillRect(Rect);
      TextOut(Rect.Left, Rect.Top, Field.AsString);
    end;
end;