Отображение состояния строк в TStringGrid с помощью цвета

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

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

Проблема

Имеется TStringGrid с четырьмя столбцами: ID, NAME, DATE и STATE. Необходимо, чтобы при условии, что значение в столбце STATE равно TRUE, вся строка окрашивалась в желтый цвет. В противном случае, цвет строки остается без изменений.

Пример некорректного решения

В коде ниже представлен пример процедуры, которая пытается изменить цвет строки, но она работает только для столбца STATE, не затрагивая остальные столбцы:

procedure TTNarudzbenice.grSomeNameDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  aRowColor: TBrush;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
  // Проверка, если значение в ячейке равно 'TRUE'
  if Value.ToString = 'TRUE' then
  begin
    aRowColor.Color := TAlphaColors.Yellow;
    // Заливка ячейки желтым цветом
    Canvas.FillRect(Bounds, 0, 0, [], 1, aRowColor);
  end;
  // Вызов стандартной функции отрисовки
  Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State);
  aRowColor.Free;
end;

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

Для того чтобы изменить цвет всей строки, необходимо проверить значение именно в столбце STATE, а не в текущей ячейке. Вот исправленный код:

procedure TTNarudzbenice.grSomeNameDrawCell(Sender: TObject; const Canvas: TCanvas; const ACol, ARow: Integer; const Rect: TRectF; const State: TGridDrawState);
var
  aRowColor: TBrush;
begin
  aRowColor := TBrush.Create(TBrushKind.Solid, TAlphaColors.Alpha);
  // Проверка значения в четвертом столбце (STATE) текущей строки
  if (Sender as TStringGrid).Cells[3, ARow] = 'TRUE' then
  begin
    aRowColor.Color := TAlphaColors.Yellow;
    // Заливка всей строки желтым цветом
    Canvas.FillRect(Rect, aRowColor);
  end;
  // Необходимо восстановить вызов стандартной функции отрисовки, если это необходимо для других свойств ячейки
  // Column.DefaultDrawCell(Canvas, Bounds, Row, Value, State); // закомментировать, если не требуется дополнительная отрисовка
  aRowColor.Free;
end;

Важно отметить, что константа 3 в коде указывает на четвертый столбец, и если структура столбцов изменяется, эту константу следует обновить соответствующим образом.

Альтернативное решение

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

Выводы

Изменение цвета строки в TStringGrid на основе значения в столбце STATE решается путем проверки этого значения в процедуре отрисовки ячейки и последующей заливки всей строки нужным цветом. Это основной момент, который был упущен в исходном коде, и исправление которого приводит к решению поставленной задачи.

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

Вопрос связан с изменением цвета строк в компоненте TStringGrid на основе логического значения в определенном столбце.

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

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

:: Главная :: TStringGrid и TDrawGrid ::