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

Необходимо обработать событие “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;

Tags: , , , , ,

Дата создания: Воскресенье, июня 8, 2008 - 13:23 и находится в категории Советы. Вы можете отслеживать ответы через RSS 2.0. Вы можете ответить.

Ответить

Вы должны быть в системе для комментирования.