Чередование цветов строк в DBGrid для проектов Delphi без дублирования кода

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

Разработчики, работающие с компонентом DBGrid в Delphi, часто сталкиваются с необходимостью применения чередования цветов строк для улучшения читаемости и визуального восприятия данных. Однако, если в проекте используется множество DBGrid, ручное добавление кода для каждого из них может привести к нежелательному увеличению объема кода и усложнению поддержки проекта.

Проблема

Разработчик ищет способ применения чередования цветов строк для всех DBGrid в проекте, не добавляя одинаковый код обработчика события DrawColumnCell для каждого грида. У него есть около 30 гридов, и он не хочет умножать 13 строк кода на 30, что приведет к увеличению объема проекта.

Решение

Для решения этой проблемы можно создать единый обработчик событий, который будет применяться ко всем DBGrid в проекте. Это позволит избежать дублирования кода и упростит его поддержку.

procedure TDataModule1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  RowColors: array[Boolean] of TColor = (clSilver, clDkGray);
var
  OddRow: Boolean;
begin
  if (Sender is TDBGrid) then
  begin
    OddRow := Odd(TDBGrid(Sender).DataSource.DataSet.RecNo);
    TDBGrid(Sender).Canvas.Brush.Color := RowColors[OddRow];
    TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Интеграция решения

Для использования данного обработчика, необходимо поместить его в модуль данных проекта (DataModule). Затем, для каждого DBGrid в проекте, нужно назначить этот обработчик на событие OnDrawColumnCell. Это можно сделать через Object Inspector или в коде.

Важные замечания

• Использование TDataSet.RecNo не рекомендуется, так как это может вызвать проблемы с производительностью. В качестве альтернативы можно использовать обработчик события OnAfterScroll для установки тега (Tag) в TDataSet, который будет хранить информацию о чередовании строк.
• Необходимо добавить компонент DBGrids в список использованных компонентов модуля данных.
• Обработчик событий следует добавить в раздел published модуля данных, чтобы он был доступен в других единицах.
• Необходимо обработать TGridDrawState в соответствии с требованиями приложения.
• Порядок цветов в массиве RowColors можно изменить в соответствии с желаемым визуальным эффектом.

Заключение

Применение данного решения позволит разработчикам избежать дублирования кода и упростить поддержку проекта. Это особенно актуально для больших проектов с множеством DBGrid, где поддержание кода является критически важной задачей.

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

Разработчики в Delphi ищут способ чередовать цвета строк в `DBGrid` без дублирования кода.

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

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

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