Предварительно создал стиль для item “ListBoxItem1Style1”. В нем размещены TColorBox. Но при попытке присвоить им цвет выдает ошибку:
—————————
Error
—————————
Access violation at address 00DDC660 in module ‘fmx250.bpl’. Read of address 00000380.
—————————
ОК
—————————
Сам код:
ListBox2->BeginUpdate();
TListBoxItem *item = new TListBoxItem(ListBox1);
item->Height = 32;
item->Text = pam +”(“+nam+”)”;
item->StyleLookup = “ListBoxItem1Style1”;
TColorBox * ColorBox = dynamic_cast<TColorBox*> (item->FindStyleResource(“ClrBox”));
ColorBox->Color = StringToColor(RgbFromStr(colr));
ListBox2->AddObject(item);
ListBox2->EndUpdate();