Как добраться до объектов стиля?

[aleksandrguru]

Подскажите как добраться до прогрессбара нужно менять значения прогрессбара в активном iteme/

 

 

[estra]

Это не подойдет, или это?

[aleksandrguru]

Да пробовал не получается.

пробую так не работает

 if Item.Index = 1 then

       ListBox1.BeginUpdate;
       Item.Parent := ListBox1;
       Item.StyleLookup := 'listboxitemstyle';
       Item.Height:=70;
       Item.Text := '';
       Item.StylesData['text2'] := '666666';
       Item.StylesData['info.OnClick'] := TValue.From<TNotifyEvent>(DoInfoClick);
       item.StylesData['progress1.value']:= Round(e);
       ListBox1.EndUpdate;

[ruslan]

пробуй держать прогресс бар не в стиле, а создай наследника от TListBoxItem, всунь туда прогресс-бар, перепиши ApplyStyle. и работай с прогрессом как со свойством наследника

[aleksandrguru]

Да в стилях мне понравилось , работать и визуально можно настроить все, сразу настроил несколько стилей и вставляй их

Непонятно нужно обращаться к layot2stule

[Zitto]

Конечно есть, TListBox в FireMonkey. Создание своих стилизованных итемов для TListBox. 1 часть

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

[aleksandrguru]

Спасибо за ссылку , помогло

Item := ListBox1.ItemByIndex(recbu[1]) as TMYListBoxItem;
Item.ProgressValue:= round(progress);