Как установить текст метки жирным шрифтом в delphi Xe8

Как вы можете установить TLabel на Bold и вернуться к нормальной работе в проекте Delphi XE8 firemonkey multi device?

Я пробовал это, но это не работает:

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

Также попробовал:

label.Font.Style := [TFontStyle.fsBold];
Источник

1 ответ

Решение

Задавать label.StyledSettings.Style ложь, тогда это будет следовать Fontstyle Настройки.

Вот пример кода для переключения StyledSettings.Styleс в коде (хотя я не помню, чтобы я когда-либо играл туда-сюда с ними. Для меня это больше один раз настройки при запуске).

procedure TForm6.Button9Click(Sender: TObject);
begin
  if TStyledSetting.Style in Label3.StyledSettings then
    Label3.StyledSettings := Label3.StyledSettings - [TStyledSetting.Style]
  else
    Label3.StyledSettings := Label3.StyledSettings + [TStyledSetting.Style]
end;

И переключать TextSettings.Font.Style

procedure TForm6.Button8Click(Sender: TObject);
begin
  if TFontStyle.fsBold in Label3.TextSettings.Font.Style then
    Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style - [TFontStyle.fsBold]
  else
    Label3.TextSettings.Font.Style := Label3.TextSettings.Font.Style + [TFontStyle.fsBold];
end;
Источник

Попробуй это:

Label1.Font.Style := [fsBold];

Я использовал delphi 10.4.

Источник
Другие вопросы по тегам