Как изменить цвет фона заголовков столбцов в компоненте FMX StringGrid в Delphi

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

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

Проблема, с которой столкнулся разработчик, заключалась в том, что при попытке изменить фон заголовков столбцов в FMX StringGrid с помощью события OnDrawColumnHeader, цвет фона изменялся успешно, но при этом терялись текст и сетка заголовков. Это было вызвано тем, что при перерисовке фона не учитывались текст и границы заголовков.

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

Для решения данной проблемы необходимо было использовать метод Canvas.FillText для отображения текста заголовка столбца. В коде ниже показано, как можно изменить цвет фона заголовков столбцов, сохранив при этом текст и сетку:

procedure TfrmCustomers.GridDrawColumnHeader(Sender: TObject; const Canvas: TCanvas;
  const Column: TColumn; const Bounds: TRectF);
var
  R : TRectF;
begin
  R := Bounds;
  Canvas.Fill.Kind := TBrushKind.Solid;
  Canvas.Fill.Color := TAlphaColorRec.Dimgray;
  Canvas.FillRect(R, True);
  R.Inflate(0, 0, -0.25, -0.25);
  Canvas.Fill.Color := TAlphaColorRec.Whitesmoke;
  Canvas.FillRect(R, True);
  Canvas.Fill.Color := TAlphaColors.Black;
  Canvas.Font.Style := [TFontStyle.fsBold];
  Canvas.Font.Size := 12;
  Canvas.FillText(Bounds, Grid.ColumnByIndex(Column.Index).Header, False, 1, [],
    TTextAlign.Center, TTextAlign.Center);
end;

В этом коде сначала закрашивается весь заголовок столбца в серый цвет (Dimgray), после чего создается внутренняя область белого цвета (Whitesmoke), которая немного меньше исходного заголовка столбца, что создает эффект границы. Затем текст заголовка столбца рисуется черным цветом (Black) с использованием жирного шрифта и центрируется.

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

• При использовании метода Canvas.FillText необходимо учитывать размеры текста и его стиль, чтобы текст хорошо читался на фоне.
• Эффект границы достигается за счет уменьшения размеров внутреннего прямоугольника, что позволяет тонкой полоске цвета фона основного прямоугольника оставаться видимой по краям.
• Для получения текста заголовка столбца используется свойство Grid.ColumnByIndex(Column.Index).Header.

Заключение

Изменение цвета фона заголовков столбцов в FMX StringGrid - это задача, которая требует внимания к деталям и понимания того, как работает процесс рисования компонентов в Delphi. Приведенный выше код предоставляет рабочий пример того, как можно достичь желаемого результата, сохраняя при этом читаемость и визуальную привлекательность интерфейса.

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

Разработчик в Delphi стремится изменить цвет фона заголовков столбцов в `FMX StringGrid`, сохраняя при этом тексты и сетку заголовков.

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

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

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