Да в стилях мне понравилось , работать и визуально можно настроить все, сразу настроил несколько стилей и вставляй их
Непонятно нужно обращаться к layot2stule
Да пробовал не получается.
пробую так не работает
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;