Как изменить цветы линий строк и столбцов в TGrid для Delphi 12.2 с использованием FMX?

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

Изменение цветов линий строк и столбцов в TGrid (FMX, Delphi 12.2)

Введение

Работа с визуальными компонентами в Delphi часто требует кастомизации их внешнего вида. В случае с компонентом TGrid в FireMonkey (FMX) разработчики иногда сталкиваются с необходимостью изменения цветов линий строк и столбцов. В этой статье мы рассмотрим, как эффективно решить эту задачу в Delphi 12.2.

Основной подход: использование события OnDrawColumnCell

Как правильно отметил участник Serge_G, основным способом изменения внешнего вида ячеек в TGrid является обработка события OnDrawColumnCell. Это событие вызывается для каждой ячейки при ее отрисовке, что дает полный контроль над процессом.

procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas;
  const Column: TColumn; const Bounds: TRectF; const Row: Integer;
  const Value: TValue; const State: TGridDrawStates);
begin
  // Здесь можно настроить отрисовку ячейки
end;

Изменение цвета фона ячейки

Для изменения фона ячейки используйте метод FillRect объекта Canvas:

Canvas.Fill.Color := TAlphaColorRec.Lightblue; // Устанавливаем цвет заливки
Canvas.FillRect(Bounds, 0, 0, [], 1);         // Заливаем прямоугольник ячейки

Изменение цвета границ ячейки

Для изменения цвета линий (границ) ячейки используйте свойства Stroke:

Canvas.Stroke.Color := TAlphaColorRec.Red;    // Устанавливаем цвет линий
Canvas.Stroke.Thickness := 1.5;               // Толщина линии
Canvas.DrawRect(Bounds, 0, 0, AllCorners, 1); // Рисуем границы

Полный пример реализации

Рассмотрим полный пример изменения цветов линий и фона для TGrid:

procedure TForm1.Grid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas;
  const Column: TColumn; const Bounds: TRectF; const Row: Integer;
  const Value: TValue; const State: TGridDrawStates);
begin
  // Устанавливаем цвет фона в зависимости от четности строки
  if Row mod 2 = 0 then
    Canvas.Fill.Color := TAlphaColorRec.Whitesmoke
  else
    Canvas.Fill.Color := TAlphaColorRec.Lightcyan;

  Canvas.FillRect(Bounds, 0, 0, [], 1);

  // Устанавливаем цвет текста
  Canvas.Fill.Color := TAlphaColorRec.Black;
  Canvas.FillText(Bounds, Value.ToString, False, 1, [], TTextAlign.Leading);

  // Рисуем границы ячейки
  Canvas.Stroke.Color := TAlphaColorRec.Darkgray;
  Canvas.Stroke.Thickness := 1;
  Canvas.DrawRect(Bounds, 0, 0, AllCorners, 1);
end;

Альтернативные подходы

Использование TStyleBook

Для более сложных сценариев стилизации можно использовать компонент TStyleBook, который позволяет определить стили для элементов управления, включая TGrid.

1. Добавьте компонент TStyleBook на форму
2. Дважды кликните по нему для открытия редактора стилей
3. Добавьте стиль для TGrid или его элементов
4. Примените стиль к вашему гриду

Создание кастомного компонента

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

type
  TCustomStyledGrid = class(TGrid)
  protected
    procedure DrawColumnCell(const Canvas: TCanvas; const Column: TColumn; 
      const Bounds: TRectF; const Row: Integer; const Value: TValue; 
      const State: TGridDrawStates); override;
  end;

procedure TCustomStyledGrid.DrawColumnCell(const Canvas: TCanvas; 
  const Column: TColumn; const Bounds: TRectF; const Row: Integer; 
  const Value: TValue; const State: TGridDrawStates);
begin
  // Ваша кастомная реализация отрисовки
  inherited;
end;

Оптимизация производительности

При работе с большими наборами данных важно учитывать производительность. Вот несколько советов:

1. Минимизируйте сложные вычисления в обработчике OnDrawColumnCell
2. Кэшируйте стили и ресурсы, если они используются многократно
3. Избегайте создания временных объектов в процессе отрисовки

Заключение

Изменение цветов линий и фона в TGrid для FMX в Delphi 12.2 достигается преимущественно через обработку события OnDrawColumnCell. Этот подход дает гибкость в настройке внешнего вида компонента. Для более сложных сценариев можно использовать TStyleBook или создать кастомный компонент.

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

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

В Delphi 12.2 изменение цветов линий строк и столбцов в компоненте TGrid (FMX) эффективно осуществляется через обработку события `OnDrawColumnCell`, предоставляющего полный контроль над отрисовкой ячеек.

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

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

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