разработка для 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)
Пока это значение присутствует, любые изменения с размером шрифта игнорируются. Если в настройках визуального компонента поменять на любую цифру, то тогда вся работа со шрифтом коде будет работать.
Вот только теперь не могу придумать, как изменить значение без визуального компонента.
