TButton [TButton] Как изменить размер шрифта в рантайме?

[Shagrid]

разработка для Android, Delphi XE7.

Проблема следующая:

На форме есть пара кнопок, при помощи компонента TButton, а так же множество кнопок, созданных динамически.

В кнопках, созданных компонентом, изменениеразмера рифта текста решается банальной строчкой:

TButton(obj).TextSettings.Font.Size := 40;

В кнопках, динамически созданых, изменение шрифта подобным образом не помогает, при этом само свойство меняется.

Фрагмент кода создания кнопки:

      btn := TButton.Create(PanelNew);
      btn.Parent := Self;
      btn.Position.X := (i - 1) * (w) + 10;
      btn.Position.Y := (j - 1) * (h) + 60;
      btn.Width := (w);
      btn.Height := (h);
      btn.Enabled := true;
      btn.Name := 'btn1';
      btn.TextSettings.Font.Size := 40;
      btn.text := FloatToStr(btn.TextSettings.Font.Size);
      btn.OnClick := clickbtn;
      btn.TintColor := TAlphaColorRec.Null;

это баг среды разработки, баг моих мозгов или чего-то не хватает?

 

Проверил подобное на C++. Видимо баг в среде. Присутствует в кнопках, созданых любым способом.

Заключается в следующем:

В TButton.TextSetting.Font.Size по умолчанию прописано (Default)

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

Вот только теперь не могу придумать, как изменить значение без визуального компонента.

[Brovin Yaroslav]

Добрый день

 

Нет, не баг. Ответ для кнопки и аналогичных компонентов с текстом аналогичен:

• Почему не изменяется Font.Style и Font.Size?
• Изменение размера шрифта в RunTime