Выделение строк в DBGrid по условию в Delphi: изменяем цвета для удобства восприятия

Delphi , Графика и Игры , Цвета и Палитра

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

Решение проблемы

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

Пример кода для изменения цвета строк, где значение поля 'Teacher' равно 'Joe', выглядит следующим образом:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Table1.FieldByName('Teacher').AsString = 'Joe' then
    DBGrid1.Canvas.Brush.Color:= clRed; // Задаем цвет для строк с учителем Joe
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); // Вызываем стандартную обработку для отрисовки ячейки
end;

Если же необходимо выделить строки для всех учителей, а не только для одного, то можно использовать следующий подход:

var
  TeacherStringList: TStringList;
  lastColorUsed: TColor;
  AColors: Array of TColor;
  function mycolor: TColor;
begin
  result := RGB(Random(256), Random(256), Random(256));
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  if TeacherStringList.Count <> 0 then TeacherStringList.Clear;
  Table1.DisableControls;
  try
    while not Table1.Eof do
    begin
      CurrS := Table1.FieldByName('Teacher').AsString;
      if not TeacherStringList.Find(CurrS, Index) and not CurrS.IsEmpty then
        TeacherStringList.Add(CurrS);
      Table1.Next;
    end;
    Table1.First;
    SetLength(AColors, TeacherStringList.Count);
    for Index := Low(AColors) to High(AColors) do
      AColors[Index] := mycolor;
  finally
    Table1.EnableControls;
  end;
end;

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Index: Integer;
begin
  if TeacherStringList.Find(Table1.FieldByName('Teacher').AsString, Index) then
    DBGrid1.Canvas.Brush.Color := AColors[Index];
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

В этом примере создается список уникальных значений учителей (TeacherStringList) и массив случайных цветов (AColors), к которым затем обращаются для изменения цвета строк в DBGrid.

Для реализации чередования цветов (например, для каждой группы строк с одинаковым учителем) можно использовать следующий метод:

var
  TeacherColors: TDictionary<string, TColor>;
begin
  TeacherColors := TDictionary<string, TColor>.Create(TStringComparer.Default);
  with TeacherColors do
  begin
    Assign(TeacherColors, 'Joe', clRed);
    Assign(TeacherColors, 'Jack', clGreen);
    Assign(TeacherColors, 'Jim', clBlue);
    // Присвоение других цветов для других учителей
  end;
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  TeacherName: string;
begin
  TeacherName := Table1.FieldByName('Teacher').AsString;
  if TeacherColors.TryGetValue(TeacherName, ResultColor) then
    DBGrid1.Canvas.Brush.Color := ResultColor;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

В этом случае для каждого учителя задан свой уникальный цвет, и при отрисовке строки проверяется значение поля Teacher, по которому и производится назначение цвета.

Подтвержденный ответ

Используя обработчик события onDrawColumnCell, можно реализовать чередование цветов для строк в DBGrid, которые группируются по значению поля 'Teacher'. Для каждого учителя можно задать индивидуальный цвет, что позволит легко идентифицировать группы строк в таблице.

Альтернативный ответ (не требуется)

В контексте вопроса альтернативный ответ не требуется, так как предоставленный контекст уже содержит рабочие решения для задачи изменения цвета строк в DBGrid в зависимости от значения поля 'Teacher'.

В статье был рассмотрен вопрос изменения цвета строк в компоненте DBGrid в среде разработки Delphi. Представлены различные подходы, включая использование обработчика событий для отрисовки ячеек, создание списка уникальных значений и массива случайных цветов, а также чередование цветов для разных групп строк. Приведены примеры кода на Object Pascal (Delphi), которые могут быть использованы в реальных проектах для удобства восприятия данных в DBGrid.

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

Вопрос связан с изменением цвета строк в компоненте `DBGrid` в среде разработки Delphi для выделения строк с одинаковыми значениями в определённом поле, например, для строк, принадлежащих одному преподавателю.

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

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

:: Главная :: Цвета и Палитра ::