Стилизация текста в TLabel под FMX в Delphi XE8: жирный шрифт и обратно

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

В статье мы рассмотрим, как изменить стиль шрифта текста в компоненте TLabel на жирный и обратно в режиме выполнения в проекте FireMonkey под Delphi XE8.

При работе с TLabel в FireMonkey для изменения стиля шрифта текста используется свойство StyledSettings. Для того чтобы сделать текст жирным, нам нужно добавить флаг TStyledSetting.Style в это свойство. Однако, попытка直接 изменить стиль шрифта, как в коде ниже, не будет работать:

label.TextSettings.Font.Style := [TFontStyle.fsBold];

Или так:

label.Font.Style := [TFontStyle.fsBold];

Чтобы изменить стиль шрифта текста в TLabel в режиме выполнения, мы должны сначала установить StyledSettings.Style в false, а затем следовать настройкам FontStyle. Вот пример кода, который делает текст жирным:

label.StyledSettings.Style := False;
label.Font.Style := [TFontStyle.fsBold];

Чтобы вернуть текст к обычному шрифту, мы просто устанавливаем FontStyle в обычный:

label.Font.Style := [];

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  if label.Font.Style in [TFontStyle.fsBold] then
    label.Font.Style := []
  else
    label.Font.Style := [TFontStyle.fsBold];
end;

В этом примере, при каждом нажатии на кнопку, стиль шрифта текста в TLabel меняется между жирным и обычным.

В заключение, изменение стиля шрифта текста в TLabel в FireMonkey под Delphi XE8 требует понимания свойства StyledSettings и настройки FontStyle. Используя приведенные выше примеры кода, вы можете легко менять стиль шрифта текста в TLabel в режиме выполнения.

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

В статье описано, как изменить стиль шрифта текста в компоненте `TLabel` на жирный и обратно в режиме выполнения в проекте FireMonkey под Delphi XE8, используя свойство `StyledSettings` и настройку `FontStyle`.

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

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

:: Главная :: TLabel ::