Подсветка строк в Delphi: как реализовать пользовательскую раскраску с помощью OnPrepareCanvas и OnDrawColumnCell.

Delphi , Компоненты и Классы , TDBGrid

При работе с компонентом TDBGrid в Delphi часто возникает необходимость визуально выделить строки, соответствующие определенным критериям. Стандартные средства TDBGrid не всегда позволяют реализовать желаемую логику раскраски, поэтому приходится прибегать к обработчикам событий OnPrepareCanvas и OnDrawColumnCell. В этой статье мы рассмотрим, как использовать эти события для реализации пользовательской раскраски строк в TDBGrid, а также обсудим возможные проблемы и пути их решения, опираясь на опыт, описанный в обсуждении на форуме.

Использование OnPrepareCanvas для базовой раскраски строк

Событие OnPrepareCanvas вызывается непосредственно перед отрисовкой ячейки в TDBGrid. Это дает нам возможность изменить свойства Canvas (цвет кисти, цвет шрифта и т.д.) перед отрисовкой ячейки. Аргументы события не предоставляют информацию о номере строки или столбца, поэтому для определения, какую строку красить, необходимо использовать данные из связанного DataSet.

Пример кода:

procedure TForm1.DBGrid1PrepareCanvas(Sender: TObject; ACanvas: TCanvas;
  DataField: TField; AState: TGridDrawState);
begin
  if DataField.FieldName = 'IntField' then // Зависит от структуры вашей базы данных
  begin
    if DataField.AsInteger > 20 then
    begin
      ACanvas.Brush.Color := $00C1FFC1; // Светло-зеленый
      ACanvas.Font.Color := clBlack;
    end else if DataField.AsInteger < -20 then
    begin
      ACanvas.Brush.Color := $00C4C4FF; // Светло-синий
      ACanvas.Font.Color := clBlack;
    end else
    begin
      ACanvas.Brush.Color := $00B9FFFF; // Светло-желтый
      ACanvas.Font.Color := clBlack;
    end;
  end;
end;

В этом примере мы проверяем значение поля IntField в текущей записи DataSet и, в зависимости от значения, устанавливаем разные цвета для кисти и шрифта. Этот подход позволяет задать базовую раскраску строк.

Использование OnDrawColumnCell для более сложной раскраски

Событие OnDrawColumnCell вызывается после OnPrepareCanvas, но до отрисовки ячейки. Оно предоставляет больше информации о ячейке, включая ее координаты (Rect), номер столбца (DataCol) и объект TColumn. Это позволяет реализовать более сложную логику раскраски, например, раскраску отдельных ячеек в зависимости от их содержимого или положения.

Пример кода:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  xCor: TColor;
begin
  // Проверяем, находится ли ячейка в выбранной строке
  if gdSelected in State then
  begin
    DBGrid1.Canvas.Brush.Color := clNavy;
    DBGrid1.Canvas.Font.Color := clWhite;
  end else
  begin
    // Определяем цвет в зависимости от других условий
    xCor := clAliceBlue; // Цвет по умолчанию

    // Пример: раскраска строки, на которой находится фокус
    if (TccDBGridAux(DBGrid1).DataLink.ActiveRecord + 1) = TccDBGridAux(DBGrid1).Row then
    begin
      xCor := Intensidade(xCor, -30); // Затемнение цвета
    end;

    DBGrid1.Canvas.Brush.Color := xCor;
  end;

  // Заполняем прямоугольник цветом
  DBGrid1.Canvas.FillRect(Rect);

  // Рисуем содержимое ячейки стандартным способом
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

// Функция для затемнения цвета
function TForm1.Intensidade(cor: TColor; valor: integer): TColor;
begin
  Result := RGBToColor(Max(GetRValue(ColorToRGB(cor)) + valor, 0),
  Max(GetGValue(ColorToRGB(cor)) + valor, 0),
  Max(GetBValue(ColorToRGB(cor)) + valor, 0));
end;

// Вспомогательный класс для доступа к защищенным полям TDBGrid
type
  TccDBGridAux = class(TDBGrid);

В этом примере мы сначала проверяем, выделена ли ячейка. Если да, то красим ее в темно-синий цвет. В противном случае, определяем цвет в зависимости от других условий, например, является ли строка текущей строкой с фокусом. Важно отметить, что после установки цвета необходимо вызвать DBGrid1.Canvas.FillRect(Rect) для заполнения ячейки выбранным цветом и DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State) для отрисовки содержимого ячейки.

Проблемы и решения

• Конфликт с dgRowHighlight: Если вы используете OnPrepareCanvas или OnDrawColumnCell для раскраски строк, то опция dgRowHighlight может работать некорректно. Это связано с тем, что OnPrepareCanvas вызывается перед применением подсветки строки. Решение - отключить dgRowHighlight (DBGrid1.Options := DBGrid1.Options - [dgRowHighlight]) и реализовать подсветку строки вручную в OnDrawColumnCell, используя флаг gdSelected в параметре State. В этом случае, необходимо проверять наличие gdRowHighlight в State и применять соответствующую раскраску.

if gdSelected in AState then
begin
  // Раскраска для выделенной ячейки
  DBGrid1.Canvas.Brush.Color := clNavy;
  DBGrid1.Canvas.Font.Color := clWhite;
end else
begin
  // Раскраска в зависимости от значения поля
  if intValue > 20 then
  begin
    DBGrid1.Canvas.Brush.Color := $00C1FFC1;
    DBGrid1.Canvas.Font.Color := clBlack;
  end else
  if intValue < -20 then
  begin
    DBGrid1.Canvas.Brush.Color := $00C4C4FF;
    DBGrid1.Canvas.Font.Color := clBlack;
  end else
  begin
    DBGrid1.Canvas.Brush.Color := $00B9FFFF;
    DBGrid1.Canvas.Font.Color := clBlack;
  end;

  // Дополнительная раскраска для подсветки строки
  if gdRowHighlight in AState then
    DBGrid1.Canvas.Brush.Color := CorIntensidade( DBGrid1.Canvas.Brush.Color );
end;

• Некорректное обновление раскраски при навигации с клавиатуры: При использовании клавиш "вверх" и "вниз" для навигации по DBGrid раскраска может обновляться некорректно. Это может быть связано с тем, что событие OnDrawColumnCell не вызывается для всех ячеек строки при каждом перемещении фокуса. Решение - убедиться, что логика раскраски учитывает текущее состояние DataSet и правильно обновляет цвета при каждом вызове OnDrawColumnCell. Возможно, потребуется принудительно перерисовывать DBGrid после изменения текущей записи в DataSet.

• Различия в поведении между Delphi и Lazarus: Как было отмечено в исходном обсуждении, поведение TDBGrid может отличаться между Delphi и Lazarus. В частности, Lazarus может требовать более явного управления состоянием отрисовки ячеек. Важно тщательно протестировать код раскраски в обеих средах и учитывать возможные различия в реализации TDBGrid.

Альтернативные решения

Помимо использования OnPrepareCanvas и OnDrawColumnCell, существуют и другие подходы к реализации пользовательской раскраски строк в TDBGrid:

• Использование сторонних компонентов: Существуют сторонние компоненты TDBGrid, которые предоставляют более гибкие возможности для раскраски строк и ячеек. Эти компоненты могут упростить разработку и предоставить более широкий набор функций.

• Создание собственного компонента: Если вам требуется очень специфическая логика раскраски, можно создать собственный компонент, унаследованный от TDBGrid. Это позволит вам полностью контролировать процесс отрисовки и реализовать любую необходимую функциональность.

Заключение

Реализация пользовательской раскраски строк в TDBGrid с помощью OnPrepareCanvas и OnDrawColumnCell требует понимания принципов работы этих событий и учета возможных проблем. Правильное использование этих событий позволяет создать визуально привлекательный и информативный интерфейс для работы с данными. Не забывайте тщательно тестировать код и учитывать возможные различия в поведении TDBGrid в разных средах разработки.

Создано по материалам из источника по ссылке.

Статья описывает, как использовать события OnPrepareCanvas и OnDrawColumnCell в Delphi для реализации пользовательской раскраски строк в TDBGrid, включая решения распространенных проблем и альтернативные подходы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::