0

  

Предварительно создал стиль для 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();