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

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

Как установить свойство WordWrap в ListBoxItem, когда итемы грузятся из базы через Live Binding? В цикле после открытия таблицы sqlite не прикольно, есть еще варианты?

Всем привет. Когда добавляю в TListBox новый Item, и в дизайнере ставлю свойство WordWrap = True, то текст успешно переносится на новую строку. Но если добавлять динамически в TListBox новые Item - то текст не переносится. Добавляю так: procedure TFrame1.GenerateTestVis; var x: integer; Itm: TListBoxItem; begin ListBox1.Clear; ProgressBar1.Value := TestQA1.ItemIndex + 1; Label1.Text := TestQA1.ItemSelected.Quest; for x := 0 to TestQA1.ItemSelected.Count - 1 do begin Itm := TListBoxItem.Create(ListBox1); Itm.WordWrap := true; Itm.Text := TestQA1.ItemSelected.Answers[x].Answer; // Itm.WordWrap := true; ListBox1.AddObject(Itm); //Пользуясь случаем:Itm.Free потом ListBox сам сделает, да? end; end; Но длинный текст не переносится на новую строку, и "уходит в глубь" формы. Выделенный на скрине Итем - я добавил в дизайнере. А вот второй - с помошью вышеописанного кода. Вот собственно необходимо добавить перенос длинного текста для Итемов, которые добавляются динамически. Спасибо.

Подскажите как программно поменять шрифт на всех котролах формы и его размер Желательно в реализации с++ На ВСЛ в принципе было достаточно поменять размер шрифта формы, а в обезьяне пока не знаю как. Через стили не желательно, но как вариант для развития тоже подойдет. спасибо