Перейти к содержанию
Fire Monkey от А до Я
  • 0

TListboxItem: не меняются текстовые свойства


Steepe_Hare

Вопрос

Почему если создаешь в ран-тайме TListboxItem, то текстовые свойства не меняются? Вложил пример. Заранее спасибо.

procedure TForm1.Button1Click(Sender: TObject);
var
  ListBoxItem: TListboxItem;
  J: Integer;
begin
  ListBox1.BeginUpdate;
  try
    for J := 1 to 5 do
    begin
      ListBoxItem := TListboxItem.Create(ListBox1);
      ListBoxItem.TextSettings.FontColor := TAlphaColors.Red;
      ListBoxItem.TextSettings.Font.Style := [TFontStyle.fsBold];
      ListBoxItem.Text := 'Item' + IntToStr(J);
      ListBox1.AddObject(ListBoxItem);
    end;
  finally
    ListBox1.EndUpdate;
  end;
end;

 

1.zip

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
Только что, Steepe_Hare сказал:

Спасибо, помогло. Только непонятно зачем так нужно делать

Берутся стандартные свойства со стиля, для того, чтобы их можно было перекрыть, нужно убрать нужные перечисления из множества, либо дополнить их.

Ссылка на комментарий
  • 0
13 минут назад, egorea1999 сказал:

Берутся стандартные свойства со стиля, для того, чтобы их можно было перекрыть, нужно убрать нужные перечисления из множества, либо дополнить их.

А не подскажете, какое свойство отвечает за цвет выделенного  ListBoxItem?

Ссылка на комментарий
  • 0
15 минут назад, Steepe_Hare сказал:

А не подскажете, какое свойство отвечает за цвет выделенного  ListBoxItem?

Выделенного? Вам нужно редактировать стиль TListBoxItem'a, чтобы настроить его вид.

Изменено пользователем egorea1999
Ссылка на комментарий
  • 0

Немного не то написал. Не цвет самого выделенного айтема, а цвет фона выделенного айтема.

Наверное это больше к Listbox-у относится

Изменено пользователем Steepe_Hare
Ссылка на комментарий
  • 0
Только что, Steepe_Hare сказал:

Произвольный. Я думал, как-то цвет можно поставить через свойство

Да, тогда сейчас попробую переделать мой пример, чтобы было виднее.

Ссылка на комментарий
  • 0

tmp.zip

 

screen.png

StyleBook1->TestListBoxItemStyle->background->SourceLink

Было бы хорошо, если был TActiveTintedStyleObject (есть только TTintedStyleObject), можно было регулировать цвет как угодно ..

Изменено пользователем egorea1999
Ссылка на комментарий
  • 0
  • Модераторы

не смотрел исходник, но уже на скрине видно что стиль сделан под Platform: Windows 10 Desktop

если вы переключитесь на андроид например или ваша ос не win 10, StyleBook будет пустой

общие элементы которые не хотите завязывать на платформы, нужно делать под Platform: Default

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...