Как изменить цвет текста в элементе `TText` для закладки `TTabItem` во FireMonkey без создания нового `TabItem`

Delphi , Компоненты и Классы , Вкладки и Страницы

Как изменить цвет текста в элементе TText для закладки TTabItem во FireMonkey без создания нового TabItem

Вопрос пользователя связан с необходимостью добавления дополнительного текста в заголовок закладки (TTabItem) в TTabControl во FireMonkey, причем текст должен быть другого цвета. Проблема заключается в том, что стандартным способом переместить контроль в эту часть интерфейса не удается.

Описание решения

Решение задачи заключается в использовании события OnPaint элемента TTabItem. Это событие позволяет нарисовать текст в определенной части закладки, не создавая новый элемент TabItem. Пример кода, который можно использовать для реализации этого подхода:

procedure TForm1.TabItem1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  R: TRectF;
begin
  // Определение области для текста
  R := RectF(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom / 3);
  // Установка цвета и размера шрифта
  Canvas.Fill.Color := TAlphaColors.Seagreen; // Зеленый цвет
  Canvas.Font.Size := 12; // Размер шрифта 12
  // Рисование текста
  Canvas.FillText(R, 'New!', False, 1, [], TTextAlign.Center, TTextAlign.Center);
end;

В этом примере кода создается текст "New!" зеленого цвета с размером шрифта 12 в верхней части закладки. Текст выравнивается по центру.

Результат

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

Заключение

Использование события OnPaint позволяет добавить текст в заголовок закладки TTabItem без создания нового элемента TabItem и без изменения стандартного внешнего вида TTabControl. Это простой и эффективный способ изменить цвет и размер текста в заголовке закладки, сохраняя при этом функциональность и удобство использования компонента TTabControl в вашем приложении FireMonkey.

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

Вопрос связан с изменением цвета текста в заголовке закладки (TTabItem) в компоненте TTabControl в среде разработки FireMonkey, используя событие OnPaint для добавления текста другого цвета без создания нового элемента TabItem.

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

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

:: Главная :: Вкладки и Страницы ::