Поиск сообщества

Не могу настроить цвет текста заголовка в TabItem. Меняю шрифт, размер и цвет. Но все остается прежним.

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

Доброго времени суток. Создаю программно компоненты TLabel. Status1 := TLabel.Create(Form1); Status1.Name := 'LabelStatus1_'+idMachine.ToString; Status1.Parent := RectangleStatus; Status1.Align := TAlignLayout(9); Status1.TextSettings.HorzAlign := TTextAlign(0); //По умолчанию, при создании объекта TLabel, размер шрифта устанавливается в значение 12 Status1.TextSettings.Font.Size := 24; Status1.TextSettings.WordWrap := true; Status1.Text := 'Статус 1'; Status1.Visible := true; Изменяю значение размера шрифта: Status1.TextSettings.Font.Size := 24 Значение изменяется, но размер шрифта TLabel при отображении на форме остается прежним. Как можно, или нужно изменять размер шрифта компонента в RunTime?

Как программно изменить размер шрифта TCornerButton? Пробовал так но почему-то не работает... Font.size:=MyValue